Windows 10: VBS Script Renaming a pc script fails

can anyone tell me why this script fails with rc=5.. I am not very well versedin resolving scripts....
MUCH APPRECIATED IN ADVANCE!


Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
Name = InputBox("Enter asset tag number:", "Identify Computer")
username = "addcomputer"
password = "XXXXXX"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = objComputer.Rename(Name, Password, Username)
If Err.Number = 0 Then
WScript.Echo "Successfully renamed computer to " & name & "!"
WScript.Echo "*** NOTE : You !MUST! restart pc for name change to take effect!"
WScript.Echo "*** NOTE : You !MUST! restart pc for name change to take effect!"
WScript.Echo "*** NOTE : You !MUST! restart pc for name change to take effect!"
Call endit
Else
WScript.Echo "An error occurred renaming the computer!"
WScript.Echo "Error Number: " & Err.Number
WScript.Echo "Error" & Err.Description
End If
Next
Sub endit
End Sub

:)

 

Restoration impossible after PC Suite update

Great VB script! Thanks a lot! Just wanted to add that instead of renaming contacts.dat you can directly use PCCSContact.db file which present in the same folder.

 

"wuauclt.exe /detectnow" command doesn't work in Windows 10?

I downloaded that vbs file from microsoft after searching for "VB Script to Check, Download, and Install Windows Updates from Microsoft"

VB Script to Check, Download, and Install Windows Updates from Microsoft

 

Byt the way .. this is being run on Windows 10 64 bit machines.