$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For $objItem in $colItems
ConsoleWrite ( "Имя принтера: " & $objItem.Caption & ", Имя порта: " & $objItem.PortName & @CRLF)
Next