Rename a computer while on the domain

[msnriggs]

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