Изменение имени компьютера с помощью программы Netdom.exe

1) netdom renamecomputer <старое имя> /newname: <новое имя> /userD:<администратор домена> /passwordD:<пароль администратора домена>
2)скрипт в сети

On Error Resume Next

dim doc, page
Message1 = "Пожайлуста, введите старое имя компьютера"
Message2 = "Пожайлуста, введите новое имя компьютера"
Title1 = "Старое имя компьютера"
Title2 = "Новое имя компьютера"
UserD = "DOMAIN\ivanov"
Text = "The command to complete successfully."
Comp = InputBox(Message1, Title, Comp, 100, 100)
If Comp = "" or Comp = Comp Then
' Canceled by the user
CompNew = InputBox(Message2, Title2, Comp, 100, 100)
' Evaluate the user input.
End If
If CompNew = "" or CompNew = Comp Then ' Canceled by the user
Else
szRA = "%SystemRoot%\system32\cmd.exe /K NETDOM RENAMECOMPUTER "
szRA = szRA & Comp & " "
szRA = szRA & "/NewName:"
szRA = szRA & CompNew & " /UserD:" & UserD & " /PasswordD:* "
if MsgBox("Перезагрузить компьютер после переименования?",4) = 6 then
szRA = szRA & " /REBoot:120"
End If
'szRA = szRA & "/computer=" & Comp & ""
MsgBox "Full command = " & szRA
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run szRA, 1, false
WScript.Echo Text & result
End If