New
#1
Windows 7 Sysprep VBS Script Help
I am setting up an Image for Windows 7 and using WAIK and everything. I have a script file that prompts PC name, domain name and user name and password to join domain. I want to make it to where the password is NOT shown while typing. Any suggestions?
Thanks in advance.
here is the VBS script file info
Option Explicit
Dim answer, answer2, answer3, answer4, computerName, domainname, domainAdminName, domainAdminPass, unattendFile, WshShell, fso, unattendFileObject, strContents
unattendFile = "C:\Windows\Panther\unattend.xml"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Do While answer <> vbYes
computerName = InputBox("Enter the desired Computer Name:", "Computer Name")
answer = MsgBox("Is this correct?" & vbCrLf & "Computer Name: " & computerName, vbYesNo, "Verify Name")
Loop
Do While answer2 <> vbYes
domainName = InputBox("Enter the Domain Name :", "Domain Name")
answer2 = MsgBox("Is this correct?" & vbCrLf & "Domain Name: " & domainName, vbYesNo, "Verify Name")
Loop
Do While answer3 <> vbYes
domainAdminName = InputBox("Enter the Domain Admin Name :", "Domain Admin Name")
answer3 = MsgBox("Is this correct?" & vbCrLf & "Domain Admin Name: " & domainAdminname, vbYesNo, "Verify Name")
Loop
Do While answer4 <> vbYes
domainAdminPass = InputBox("Enter the Domain Admin Password :", "Domain Admin Password")
answer4 = MsgBox("Is this correct?" & vbCrLf & "Domain Admin Password: " & domainAdminPass, vbYesNo, "Verify Password")
Loop I want to make the text invisible when I type the password in.
If fso.FileExists(unattendFile) = False Then
wscript.echo "ERROR: Could not find the unattend file"
Else
'Read the unattend file in and replace apprpriate variables
Set unattendFileObject = fso.OpenTextFile(unattendFile, 1)
strContents = unattendFileObject.ReadAll
strContents = Replace(strContents, "ReplaceMe1", computerName)
strContents = Replace(strContents, "ReplaceMe2", domainName)
strContents = Replace(strContents, "ReplaceMe3", domainAdminName)
strContents = Replace(strContents, "ReplaceMe4", domainAdminPass)
unattendFileObject.Close
'Write the updated contents back to the unattend file
Set unattendFileObject = fso.OpenTextFile(unattendFile, 2)
unattendFileObject.Write(strContents)
unattendFileObject.Close
End If
' Launch setup (will use the modified unattend.xml)
WScript.Sleep 5000
WshShell.Run "%WINDIR%\System32\oobe\windeploy.exe", 0, True