vbscript - 場所に基づいてデフォルトのプリンタを変更する

Question

接続されているプリンターに基づいて、デフォルトのプリンターを変更するVBScriptを作成したいと思います。
職場と自宅で使用しているラップトップを持っています。Windowsを起動するときにこのスクリプトを実行したいので、デフォルトのプリンターが常に正しいプリンターになります。
XPでこれを行う別の方法がある場合、私はすべての耳です。

Answer 1

WMI が適している場合があります。

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

ドメインなどを見つけることもできます：

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