Hallo Gemeinde,
mit der nachfolgenden Funktion versuche ich auszulesen ob ein WWAN-Modul verbaut ist oder nicht:
Code
Func _CI_GetNetwork()
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\.\root\StandardCimv2")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM MSFT_NetAdapter")
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.InterfaceType = 243 Then ; InterfaceType 243 ist für WWAN-Adapter
Local $s_OutputWWAN = "WWAN Yes"
Else
Local $s_OutputWWAN = "WWAN No"
EndIf
Next
Else
MsgBox(0, "Error", "No network adapters found or query failed.")
EndIf
Return $s_OutputWWAN
EndFunc ;==>_CI_GetNetwork
Alles anzeigen
Kann mir jemand den Fehler aufzeigen warum Die If-Verzweigung immer "WWAN No" zurückgibt obwohl ein WWAN-Modul verbeut ist. Debug von $objItem.InterfaceType ergibt 243