'============================================================================================ 'VBScript that returns all printers 'Each line in All Printers is displayed with a Printer followed by the Port '============================================================================================ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer") For Each objPrinter in colPrinters PrntrLst = PrntrLst & objPrinter.Name & " - " & objPrinter.PortName & vbCrLf Next Wscript.echo "--ALL PRINTERS: " & vbCrLf & PrntrLst wscript.Quit(0)