I have found this script that works pretty well in using netdom to rename a compuer... but I need it to do a little more.
'On Error Resume Next
'open the file system object
Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")
Dim sNewCname 'Variable to hold Computer Name you enter in the inputbox
Dim sOldCname 'computers current name
'First param is message text, second is message title
sOldCname = InputBox("Enter computers current name","Windows 2k3 Netdom Rename Script")
sNewCname = InputBox("Enter computers new name","Windows 2k3 Netdom Rename Script")
Call WSHShell.Run("cmd.exe /K netdom renamecomputer " & sOldCname & " /newname:" & sNewCname & " /userd:DOMAIN\ADMINISTRATOR /passwordd:PASSWORD /usero:DOMAIN\ADMINISTRATOR /passwordo:PASSWORD /force ")
I would like this to be modified so that it RCMDs to the old machine first and executes Timedate.cpl to change the timezone based on the operators input of Eastern, Central, Mountain, Pacifc, Alaska, Hawaii into the text box. Then it carries out the netdom procedure as above.