Standarddrucker ermitteln

strComputer = "."
ScriptedPrinter = "TIFF Image Printer 10.0"

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems1 = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")
 for each objitem1 in colitems1
 if objitem1.name = ScriptedPrinter then
        objitem1.SetDefaultprinter()
 end if
 next