$colItems = ""
$objPrinters = ObjGet("WinNT://" & $strComputer & "" )

Dim $filter[2] = ["PrintQueue"]
$objPrinters.Filter = $filter
$colItems = $objPrinters