Error changing computer name using WMI. please help

[marcsusy]

I'm trying to rename a computer in a domain and I get the following error:

 

: ==> The requested action with this object has failed.:

 

$rc = $objWMIComputerSystem.Rename($NewComputer,$sPassword,$sUserName)^ ERROR

 

 

The script is used:

 

 

$sHost = "HOST"

$sDomain = "Domain"

$sUserName = "User"

$sPassword = "pass"

$NewComputer = "NEW_HOST"

 

$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")

$objWMIComputer = $objSWbemLocator.ConnectServer($sHost, "rootcimv2", $sDomain&""&$sUserName, $sPassword)

$objSWbemLocator.Security_.ImpersonationLevel = 3

$objWMIComputerSystem = $objWMIComputer.Get("Win32_ComputerSystem.Name='" &$sHost & "'")

 

$rc = $objWMIComputerSystem.Rename($NewComputer,$sPassword,$sUserName)

 

IF $rc <> 0 then

MsgBox(0,"","failed")

Else

    MsgBox(0,"","Successfully renamed")

Endif

 

[water]

Add a COM error handler to get better error description. See how to do so in the help file for ObjEvent.

[marcsusy]

Thanks I' ll Tray, Water

[marcsusy]

I tried this new script at home and it works correctly, but at work it does not work, do not get any errors but does not change the hostname, I get the message failed, not why

 

$strComputer     = "HOST"       

$strNewComputer  = "NEWHOST"   

$strDomainUser   = "User"     

$strDomainPasswd = "pass"

$strLocalUser    = "HOSTAdminuser" 

$strLocalPasswd  = "passadmin"

 

$oErrorHandler = ObjEvent("AutoIt.Error","ObjErrorHandler")

 

$objWMILocator = ObjCreate("WbemScripting.SWbemLocator")

$objWMILocator.Security_.AuthenticationLevel = 6

$objWMIComp = $objWMILocator.ConnectServer($strComputer, _

                                             "rootcimv2", _

                                             $strLocalUser, _

                                             $strLocalPasswd)

 

$objWMICompSys = $objWMIComp.Get("Win32_ComputerSystem.Name='" & $strComputer & "'")

 

$intRC = $objWMICompSys.Rename($strNewComputer, _

                             $strDomainPasswd, _

                             $strDomainUser)

IF $intRC <> 0 then

MsgBox(0,"","Fail")

Else

    MsgBox(0,"","Successfully renamed")

Endif

 

 

Func ObjErrorHandler()

     Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _

             "err.description is: "    & @TAB & $oErrorHandler.description    & @CRLF & _

             "err.windescription:"     & @TAB & $oErrorHandler.windescription & @CRLF & _

             "err.number is: "         & @TAB & hex($oErrorHandler.number,8)  & @CRLF & _

             "err.lastdllerror is: "   & @TAB & $oErrorHandler.lastdllerror   & @CRLF & _

             "err.scriptline is: "     & @TAB & $oErrorHandler.scriptline     & @CRLF & _

             "err.source is: "         & @TAB & $oErrorHandler.source         & @CRLF & _

             "err.helpfile is: "       & @TAB & $oErrorHandler.helpfile       & @CRLF & _

             "err.helpcontext is: "    & @TAB & $oErrorHandler.helpcontext _

            )

[water]

What is the value of $intRC, @error and @extended after the rename?

[marcsusy]

Water

I get the error  is $intRC 1323

[water]

According to this documentation it means:

ERROR_WRONG_PASSWORD

Unable to update the password. The value provided as the current password is incorrect.

1323 (0x52B)

 

[water]

I think your problem is described here: "However, you cannot use the method remotely for domain computers."wever, you cannot use the method remotely for domain computers."

[water]

Google offers a lot of solutions for this problem.

One of them can be found here.

The AD part can be solved using my AD UDF (for download please check my signature).