Dim objWMIService, colInstalledPrinters, objPrinter, PrinterNew
  Dim strComputer : strComputer = "."
 
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
  Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from" & _
  "Win32_Printer")
 
  For Each objPrinter in colInstalledPrinters
 
		MsgBox objprinter.name
  Next