wmi and lpt prt

[Jochem]

I am trying to get information about the parallel port of the computers in a network, but I only get an empty array back. Does anyone has an idea about it.

finally I want to see whats inside the lpt port.

#include-once
#include <Array.au3>
#include <String.au3>
 
If Not(IsDeclared("$cI_CompName")) Then
Global $cI_CompName = @ComputerName
EndIf
Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20
 
_ComputerGetLPT($cI_CompName)
 
Func _ComputerGetLPT(ByRef $aLptconfig)
Local $colItems, $objWMIService, $objItem
$objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2")
If IsObj($objWMIService) Then
$colItems = $objWMIService.ExecQuery("SELECT * Win32_ParallelPort", "CIM_ParallelController", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
_ArrayDisplay($colItems)
MsgBox(4160, "Information", _ArrayToString($colItems,@tab ))
Else
ConsoleWrite("$colItemsisnt an object"  & @crlf)
EndIf
Else
ConsoleWrite("$objWMIService isnt an object" & @crlf)
EndIf
EndFunc

[JohnOne]

"SELECT * Win32_ParallelPort"

Should that be

"SELECT * FROM Win32_ParallelPort"

[Jochem]

oh yes,

but it still doesn't work...

[water]

Please have a look at the tool. It generates AutoIt code to query WMI for you.

[Jochem]

thanks, works like a charm, saves time!