Цитата:
|
Пытался сделать по этой статье.
|
Как всегда Microsoft - напортачил...
вот правильный синтаксис domainOU.vbs
Код:
Option Explicit
Dim computerName, OU, unattendFile, WshShell, result, fso, unattendFileObject, strContents
'----------------------------------------------------------------------
unattendFile = "C:\Windows\Panther\unattend.xml"
' параметры, заданные пользователем '----------------------------------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
dim answer
do while answer <> vbYes
computerName = InputBox("Введите имя компьютера", "Имя компьютера")
OU = InputBox("Введите различающееся имя нужного подразделения", "Подразделение")
answer = MsgBox("Все ли правильно?" & vbCrLf & vbCrLF & "Name: " & computerName & vbCrLF & "OU: " & OU, vbYesNo, "Сведения об учетной записи компьютера")
loop
WshShell.Run "%SYSTEMDRIVE%\sources\setup.exe /wds /noreboot", 0, true
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(unattendFile) = false then
wscript.echo "Не удается найти файл автоматической установки"
else 'Чтение файла автоматической установки и замена соответствующих переменных
Set unattendFileObject = fso.OpenTextFile(unattendFile, 1)
strContents = unattendFileObject.ReadAll
strContents = Replace(strContents, "%OU%", OU)
strContents = Replace(strContents, "%COMPUTERNAME%", computerName)
unattendFileObject.Close
'Запись обновленного содержимого в файл автоматической установки
Set unattendFileObject = fso.OpenTextFile(unattendFile, 2)
unattendFileObject.Write(strContents)
unattendFileObject.Close
End If
