> Dear All,
>
> I have been tasked with creating a script that will rename computers on my
> network. The script should be able to do the following.
>
> Rename the computer name to the serial number of the computer
>
> Change the computer description to the username of the logged on user.
>
> I ran this script found on the internet for test purposes
>
> *****************************************************************************************
> This code renames a computer in its domain and on the computer itself.
> ' This script works only against Windows XP and Windows Server 2003
> computers.
> ' ---------------------------------------------------------------
> ' From the book "Windows Server Cookbook" by Robbie Allen
> ' Publisher: O'Reilly Media
> ' ISBN: 0-596-00633-0
> ' Book web site:
http://rallenhome.com/books/winsckbk/code.html> ' ---------------------------------------------------------------
>
> ' ------ SCRIPT CONFIGURATION ------
> strComputer = "<ComputerName>" ' e.g. joe-xp
> strNewComputer = "<NewComputerName>" ' e.g. joe-pc
> strDomainUser = "<DomainUserUPN>" ' e.g.
> administrator[ at ]rallencorp.com
> strDomainPasswd = "<DomainUserPasswd>"
> strLocalUser = "<ComputerAdminUser>" ' e.g. joe-xp\administrator
> strLocalPasswd = "<ComputerAdminPasswd>"
> ' ------ END CONFIGURATION ---------
> ' Connect to Computer
> set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
> objWMILocator.Security_.AuthenticationLevel = 6
> set objWMIComp = objWMILocator.ConnectServer(strComputer, _
> "root\cimv2", _
> strLocalUser, _
> strLocalPasswd)
> set objWMICompSys = objWMIComp.Get("Win32_ComputerSystem.Name='" & _
> strComputer & "'")
> ' Rename Computer
> intRC = objWMICompSys.Rename(strNewComputer, _
> strDomainPasswd, _
> strDomainUser)
> if intRC <> 0 then
> WScript.Echo "Rename failed with error: " & intRC
> else
> WScript.Echo "Successfully renamed " & strComputer & " to " &
> strNewComputer
> end if
>
> WScript.Echo "Rebooting system..."
> Set colOS = objWMIComp.InstancesOf("Win32_OperatingSystem")
> for each objOS in colOS
> objOS.Reboot()
> next
> ***************************************************************************************
>
> Plugging in all parameters as needed but it returns the following error
> SWbemLocator RPC server is unavailable.
>
> What should I do.
>
> Need assistance please
>
> Thanks
>
> VascoSputs