Advanced Search

Return to Snippet

Revision: 61699
at January 7, 2013 23:58 by goo
Initial Code 
strComputer = "."
printer = "PRINTER_NAME"

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = '" & printer & "'")

For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
    msgbox "Printer Changed to:" & Chr(13) & Chr(13)_
       & printer, vbokonly + vbinformation, "Printers"
Next
Initial URL 









Initial Description





Change default printer with vbs script









Initial Title





[VBS] Change Default Printer









Initial Tags














Initial Language





Visual Basic