URAMIRAIKAN

1020のなれの果て (since 2005.6.19)

Windowsの既定のプリンタをスクリプトで変更

 ちょっとログオンスクリプトで「通常使うプリンター」を変更する必要があったのでメモです。
 最近は、こういった設定はActive Directory(グループポリシー)頼みになりつつなってしまっていましたが、スクリプトでやった方がいろいろと応用が利くとは思います。
 例によってVBSで作成しました。

Option Explicit On Error Resume Next Dim objWshNetWork, strPrinterName Set objWshNetWork = WScript.CreateObject("WScript.NetWork") ' プリンタ名を指定 strPrinterName = "Microsoft XPS Document Writer" objWshNetWork.SetDefaultPrinter strPrinterName If Err.Number = 0 then Else WScript.Echo "エラーが発生しました : " & Err.Description End If Set objWshNetWork = Nothing WScript.Quit(0)