WMI and Rename Method

[chucks0]

I am trying to use WMI to rename a Windows XP computer, but I can't seem to get the syntax quite right. The vbscript equivalent from http://msdn.microsoft.com/library/default....putersystem.asp looks like:

Name = "name"
Password = "password"
Username = "username"

Set objWMIService = GetObject("Winmgmts:root\cimv2")

' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
    objWMIService.InstancesOf("Win32_ComputerSystem")

        Return = objComputer.rename(Name,Password,User)
        If Return <> 0 Then
           WScript.Echo "Rename failed. Error = " & Err.Number
        Else
           WScript.Echo "Rename succeeded." & _
               " Reboot for new name to go into effect"
        End If

Next

Any suggestions?

[/dev/null]

I am trying to use WMI to rename a Windows XP computer, but I can't seem to get the syntax quite right. 

$name = "name"
$password = "password"
$user = "user"

$objWMIService = ObjGet("Winmgmts:root\cimv2")

for $objComputer in $objWMIService.InstancesOf("Win32_ComputerSystem")

        $return = $objComputer.rename($name,$password,$user)

        if $return <> 0 then
           msgbox(4096, "Error", "Rename failed. Error = " & $return) 
        else
           msgbox(4096, "OK", "Rename succeeded. Reboot for new name to go into effect")
        endIf
next

Cheers

Kurt

[Private]

$name = "name"
$password = "password"
$user = "user"

$objWMIService = ObjGet("Winmgmts:root\cimv2")

for $objComputer in $objWMIService.InstancesOf("Win32_ComputerSystem")

        $return = $objComputer.rename($name,$password,$user)

        if $return <> 0 then
           msgbox(4096, "Error", "Rename failed. Error = " & $return) 
        else
           msgbox(4096, "OK", "Rename succeeded. Reboot for new name to go into effect")
        endIf
next

Cheers

Kurt

Woaw, thnx guys!

just what i needed u guys are 's