Ändern Sie den Standarddrucker basierend auf dem Standort.

Question

Ich möchte ein VBScript schreiben, um den Standarddrucker zu ändern, basierend darauf, welcher Drucker verbunden ist.
Ich habe ein Laptop, den ich sowohl bei der Arbeit als auch zuhause benutze, und ich möchte dieses Skript ausführen, wenn Windows gestartet wird, damit der Standarddrucker immer der richtige ist.
Wenn es einen anderen Weg gibt, dies in XP zu tun, bin ich ganz Ohr.

Answer 1

WMI kann passen.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")
For Each objPrinter in colInstalledPrinters
If objPrinter.Name="SomePrinterName" Then 
    objPrinter.SetDefaultPrinter()
End If
Next

-- http://msdn.microsoft.com/en-us/library/aa394598(VS.85).aspx

Sie können auch die Domäne und ähnliche Informationen herausfinden:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
    Wscript.Echo "System Name: " & objComputer.Name
    Wscript.Echo "Domain: " & objComputer.Domain
Next

-- http://msdn.microsoft.com/en-us/library/aa394586.aspx