vbs to au3

[sanhen]

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery("Associators of " _

& "{Win32_service.Name='SMTPSVC'} Where " _

& "AssocClass=Win32_DependentService " & "Role=Dependent")

For Each objService in colServiceList

Wscript.Echo objService.DisplayName

Next

Change how kind?

[MHz]

Try this.

$Wscript = ObjCreate("WScript.Shell")
If Not @error Then
    $strComputer = "."
    $objWMIService = ObjGet("winmgmts:" _
             & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    If Not @error Then
        $colServiceList = $objWMIService.ExecQuery ("Associators of " _
                 & "{Win32_service.Name='SMTPSVC'} Where " _
                 & "AssocClass=Win32_DependentService " & "Role=Dependent")
        For $objService In $colServiceList
            $Wscript.Popup ($objService.DisplayName)
        Next
    EndIf
EndIf

[sanhen]

Thank you. But let it shows how call on the services?

$Wscript = ObjCreate("WScript.Shell")

If Not @error Then

$strComputer = "."

$objWMIService = ObjGet("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

If Not @error Then

$colServiceList = $objWMIService.ExecQuery ("Associators of " _

& "{Win32_service.Name='SMTPSVC'} Where " _

& "AssocClass=Win32_DependentService " & "Role=Dependent")

For $objService In $colServiceList

Local $Data= ($objService.DisplayName)

Next

EndIf

MsgBox(64,"service",$a)

EndIf

why msgbox error???

Edited March 26, 2007 by sanhen

[therks]

Because there's no variable $a defined anywhere? Kind of hard to msgbox something that doesn't exist.