Windows 7 Forums
Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: Windows 7 Sysprep VBS Script Help

28 Jan 2011   #1
jokerZwild

XP and Windows 7
 
 
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




Attached Files
File Type: vbs EditUnattend - good.vbs (2.1 KB, 81 views)
My System SpecsSystem Spec
01 Feb 2011   #2
jokerZwild

XP and Windows 7
 
 

Is this in the wrong forum?
My System SpecsSystem Spec
Reply

 Windows 7 Sysprep VBS Script Help




Thread Tools



Similar help and support threads for2: Windows 7 Sysprep VBS Script Help
Thread Forum
Sysprep - Windows 7 - unable to sysprep image that joins domain Virtualization
win7 after sysprep reboot always with sysprep box Installation & Setup
Sysprep help for Windows 7 Installation & Setup

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 07:13 AM.
Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App