Vista - Need help with script

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@xxxxxx
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

--
EdemObong

Please don't multi-post.

/Al

"VascoSputs" <VascoSputs@xxxxxx> wrote in message
news:2807B13D-C343-4D30-B782-0B1F670DB31C@xxxxxx