Here is a script I put together for some remote computer renaming that I need to do - don't bash the coding skills I'm a Systems Engineer by trade
'#############
'# Get Host #
'#############
On error resume next
strComputer = WScript.arguments.item(0)
if strComputer = "" then
strComputer = InputBox( "Name of computer to rename" )
if strComputer = "" then
wscript.echo "No computer name suppled"
wscript.quit
end if
end if
'##########
'# Ping #
'##########
Dim colPingResults, objPingResult, strQuery
' Define the WMI query
strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & strcomputer & "'"
' Run the WMI query
Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery( strQuery )
For Each objPingResult In colPingResults
If Not IsObject( objPingResult ) Then
Ping = False
ElseIf objPingResult.StatusCode = 0 Then
Ping = True
Else
Wscript.Echo "Computer COULD NOT be contacted - Exiting"
wscript.quit
Ping = False
End If
Next
Set colPingResults = Nothing
'##########
'# Get SN #
'##########
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For each objBIOS in colBIOS
strSerialNumber = trim(objBIOS.SerialNumber)
Next
'##############
'# Get Info #
'##############
strSerialPrompt = "Hint: SN is " & strSerialNumber
if strSerialNumber = "N/A" then
strSerialPrompt = "Serial Number Not Available"
strSerialNumber = ""
end if
if strSerialNumber = "" then
strSerialPrompt = "Serial Number Not Available"
strSerialNumber = ""
end if
strNewComputer = InputBox( "Enter new computer name - " & strSerialPrompt, "New Computer", "???-??-" & strSerialNumber)
if strNewComputer = "" then
wscript.echo "No new computername suppled"
wscript.quit
end if
strDomainUser = InputBox( "Enter username in this format: domain\username" )
if strDomainUser = "" then
wscript.echo "No Domain User suppled"
wscript.quit
end if
strDomainPasswd = InputBox( "Enter account password" )
if strDomainPasswd = "" then
wscript.echo "No Domain Password suppled"
wscript.quit
end if
'#############
'# Connect #
'#############
set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
objWMILocator.Security_.AuthenticationLevel = 6
set objWMIComputer = objWMILocator.ConnectServer(strComputer, _
"root\cimv2", _
strDomainUser, _
strDomainPasswd)
set objWMIComputerSystem = objWMIComputer.Get( _
"Win32_ComputerSystem.Name='" & _
strComputer & "'")
'##########
'# Rename #
'##########
rc = objWMIComputerSystem.Rename(strNewComputer, _
strDomainPasswd, _
strDomainUser)
if rc <> 0 then
WScript.Echo "Rename failed with error: " & rc
else
WScript.Echo "Successfully renamed " & strComputer & " to " & _
strNewComputer
end if
'##########
'# Reboot?#
'##########
intAnswer = _
Msgbox("Do you want to reboot the remote computer?", _
vbYesNo, "Reboot")
If intAnswer = vbYes Then
Set objOSSet = GetObject("winmgmts:{(RemoteShutdown)}//" & strComputer & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For each objOS in objOSSet
objOS.Reboot()
Next
Else
'No
End If
