Код:

Option Explicit
Dim answer, answer2, answer3, answer4, answer5, answer6, computerName, domainAdminPass, domainName, domainAdminUsername, RegisteredOrganization, OU, 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("Введите имя компьютера :", "Computer Name")
answer = MsgBox("correct?" & vbCrLf & "Computer Name: " & computerName, vbYesNo, "Name")
Loop
Do While answer6 <> vbYes
OU = InputBox("Введите различающееся имя нужного подразделения(OU=MyOU,DC=Domain,DC=com) :", "Подразделение")
answer6 = MsgBox("correct?" & vbCrLf & "различающееся имя нужного подразделения(OU=MyOU,DC=Domain,DC=com): " & OU, vbYesNo, "OU")
Loop
Do While answer4 <> vbYes
domainName = InputBox("Введите имя домена :", "Domain")
answer4 = MsgBox("correct?" & vbCrLf & "Domaine : " & domainName, vbYesNo, "Domain")
Loop
Do While answer3 <> vbYes
domainAdminUsername = InputBox("Пользоваель to join domain :", "User Name")
answer3 = MsgBox("correct?" & vbCrLf & "user : " & domainAdminUsername, vbYesNo, "username")
Loop
Do While answer2 <> vbYes
domainAdminPass = InputBox("Пароль to join domain :", "Domain Admin Password")
answer2 = MsgBox("correct?" & vbCrLf & "Domain Admin Password: " & domainAdminPass, vbYesNo, "Password")
Loop
Do While answer5 <> vbYes
RegisteredOrganization = InputBox("Организация :", "Название организации")
answer5 = MsgBox("correct?" & vbCrLf & "Название организации: " & RegisteredOrganization, vbYesNo, "RegisteredOrganization")
Loop
WshShell.Run "%SYSTEMDRIVE%\sources\setup.exe /noreboot", 0, true
If fso.FileExists(unattendFile) = False Then
wscript.echo "Не удается найти файл автоматической установки"
Else
'Чтение файла автоматической установки и замена соответствующих переменных
Set unattendFileObject = fso.OpenTextFile(unattendFile, 1)
strContents = unattendFileObject.ReadAll
strContents = Replace(strContents, "ReplaceMe1", computerName)
strContents = Replace(strContents, "ReplaceMe6", OU)
strContents = Replace(strContents, "ReplaceMe2", domainAdminPass)
strContents = Replace(strContents, "ReplaceMe3", domainAdminUsername & "@" & domainName)
strContents = Replace(strContents, "ReplaceMe4", domainName)
strContents = Replace(strContents, "ReplaceMe5", RegisteredOrganization)
unattendFileObject.Close
'Запись обновленного содержимого в файл автоматической установки
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