Wiedergabegerät verfügbar?

  • hallo leute,

    gibt es einen weg zu ermitteln , ob ein wiedergabegerät verfügbar ist?
    Habe nämlich eine Funktion die den Wmp nutzt , diese funzt aber nur , wenn auch ein Wiedergabegerät verfügbar (bzw. aktiviert) ist.
    In der registry hab ich schon geguckt...nix.., geht das i-wie über COM?

    MfG hellboy

    [autoit]

    Do
    _help($user)
    Until $questions = 0

    [/autoit]

    Meine Werke:
    Ste`s Web-Radio

    Einmal editiert, zuletzt von hellboy3 (5. April 2012 um 19:38)

  • Aus meiner Sammlung. Bin aber nicht sicher, ob das so ok ist.

    [autoit]

    #include <array.au3>
    $res = GetAudioDevices()
    _ArrayDisplay($res)
    Func GetAudioDevices() ;get list of all audio devices
    Dim $results[1]

    [/autoit][autoit][/autoit][autoit]

    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.Status)
    Next
    EndIf

    [/autoit][autoit][/autoit][autoit]

    Return $results
    EndFunc

    [/autoit]
  • hi i2c,

    danke für die func , scheint auch zu funktionieren aber leider nicht ganz das was ich suche..
    Es geht mir darum das ein Wiedergabegerät aktiviert sein muss , sonst gibt der WMP ja diese Meldung aus:

    Fehler

    Jemand ne Idee?

    MfG hellboy

    [autoit]

    Do
    _help($user)
    Until $questions = 0

    [/autoit]

    Meine Werke:
    Ste`s Web-Radio