WMI Alternative

[codewalker]

Hi again,

Is there an alternative in AutoIt to use instead of going through WMI? I mean performing certain functions without using WMI. This is because my script fails if the WMI scripting engine in a certain workstation in corrupted. Alternative to the script below would be appreciated. All it does is enumerate all the sound devices in XP including their hardware device PIDs.

Func GetAudioDevices() ;get list of all audio devices
    Dim $results[1]

    If Not IsObj(ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & @ComputerName & "\root\CIMV2")) Then
        MsgBox(0, "Error", "Windows WMI scripting engine is corrupted. Please contact your administrator.")
        Exit 0
    Else
        $objWMI = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & @ComputerName & "\root\CIMV2")
        $objItems = $objWMI.ExecQuery("SELECT * FROM Win32_SoundDevice", "WQL", 0x10 + 0x20)
        For $objItem In $objItems
            $results &= $objItem.PNPDeviceID & " - " & $objItem.Caption & @CRLF
            _ArrayAdd($results, $objItem.PNPDeviceID & " - " & $objItem.Caption)
        Next
    EndIf

    Return $results
EndFunc

[guinness]

Maybe via the Windows API >> http://msdn.microsoft.com/en-us/library/dd370840(v=vs.85).aspx OR http://msdn.microsoft.com/en-us/library/dd743844(v=vs.85).aspx

Edit: I did the searching for you & came up with this >>

Edited August 23, 2011 by guinness

[Tripredacus]

  On 8/22/2011 at 11:56 AM, 'guinness said:

Maybe via the Windows API >> http://msdn.microsoft.com/en-us/library/dd370840(v=vs.85).aspx OR http://msdn.microsoft.com/en-us/library/dd743844(v=vs.85).aspx

Use the Link button to post links to MSDN that have the ( ) in them, as it breaks board link formatting.

[guinness]

Done, was in a rush when I initially posted.