My translation from Vbs

[ScriptUSER]

I was trying to convert this Vbs script to autoit .

and gettng error on " select part " can one tell my mistake

$strComputer = "." 
 $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI") 
 
 $colItems = $objWMIService.ExecQuery( _
    "SELECT * FROM MSMouse_PortInformation",,48) 

; vbs script for error line translated as above 
;--------------------------------------------
;Set colItems = objWMIService.ExecQuery( _
;    "SELECT * FROM MSMouse_PortInformation",,48) 
;~---------------------------------

For $objItem in $colItems 
    
    
    MsgBox(4096,"Active " , $objItem.Active)
    MsgBox(4096,"ConnectorType " , $objItem.ConnectorType)
    MsgBox(4096,"Buttons " , $objItem.Buttons)
    
    

Next

[BigDaddyO]

Not totally sure what the return should be but if you take off the ,,48 it will run with no errors.

[PsaltyDS]

This works for me:

$objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\WMI")

$colItems = $objWMIService.ExecQuery ("SELECT * FROM MSMouse_PortInformation")

$n = 1
For $objItem In $colItems
    MsgBox(4096, "Mouse: " & $n, "Active: " & $objItem.Active & @CRLF & _
            "ConnectorType: " & $objItem.ConnectorType & @CRLF & _
            "Buttons: " & $objItem.Buttons)
    $n += 1
Next