Help Converting WMI Script

[ken82m]

I'm trying to convert this WMI script to AU3. It's supposed to rename a computer.

I think I got everything right, but I'm not sure what to do with "objComputer" on lines 8 and 9.

Thanks,

Kenny

expandcollapse popup

$Name = "testname-xp"
$Password = "password"
$Username = "kmorrissey"

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

;Call always gets only one Win32_ComputerSystem object.
For $objComputer In $objWMIService.InstancesOf("Win32_ComputerSystem")
    $Return = $objComputer.rename($Name,$Password,$Username)
    If $Return <> 0 Then
        MsgBox(0,"", "Rename failed. Error = " & $Return)
    Else
        MsgBox(0,"", "Rename succeeded." & @CR & "Reboot for new name to go into effect")
    EndIf
Next


#cs   ORIGINAL FROM MSDN
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,Username)
        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
#ce

Edited May 30, 2009 by ken82m

[stampy]

mild change...

expandcollapse popup

$Name = "testname-xp"
$Password = "password"
$Username = "kmorrissey"

;$objWMIService = ObjCreate("Winmgmts:\root\cimv2")
$objWMIService = ObjGet("winmgmts:\root\cimv2");<<<<<<<<<<<<<<<<<<<<

;Call always gets only one Win32_ComputerSystem object.
For $objComputer In $objWMIService.InstancesOf("Win32_ComputerSystem")
    $Return = $objComputer.rename($Name,$Password,$Username)
    If $Return <> 0 Then
        MsgBox(0,"", "Rename failed. Error = " & $Return)
    Else
        MsgBox(0,"", "Rename succeeded." & @CR & "Reboot for new name to go into effect")
    EndIf
Next


#cs   ORIGINAL FROM MSDN
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,Username)
        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
#ce

[ken82m]

Thanks I appreciate it -Kenny