Need Help with Scipts

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.
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

Check the answer(s) you received in scripting.vbscript and have a look at
this site to see the advantages of cross-posting vs. multi-posting:
http://www.blakjak.demon.co.uk/mul_crss.htm


"Victor Asuquo" <> wrote in message
news:FFA2128E-839A-47F9-8473-...
> 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.
>
> 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

Sorry, I cannot help with your RPC server unavailable issue. But the two
things you are wanting to do - I don't think they belong in the same script.

first, when this script runs, it might be that nobody is logged on to it.
Second, even if someone is and the description is changed, that description
will remain the same when other people logon. Is that your intent, or do you
want the description to be update when each user logs on? If so, will the
user accounts have the required privilege to do this?

If that is what you want I think you would be better off implementing some
sort of "session logging" facility such as described here:

http://www.rlmueller.net/Logon5.htm


/Al

"Victor Asuquo" <> wrote in message
news:FFA2128E-839A-47F9-8473-...
> 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.
>
> 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