はい！電算室です

なぜだかわからないけれど、複数のプリンターが設定されている場合、通常使うプリンターをいくら設定しても戻ってしまうことってありませんか？

特にFaxやOneNoteなど、プリンター以外のものが入っているとそちらに通常使うプリンターが設定されてしまい、いくら待ってもプリンターから印刷されないということもしばしば・・・。

なぜなんだろう？
と原因を調べても、なにがなんだか・・・。

ならば通常使うプリンターが別に設定されても、起動するたびに指定したプリンターに設定するスクリプトを設定してしまえ！となりました。

そのスクリプトは以下のとおり。
vbスクリプトです。
------
Option Explicit

On Error Resume Next

Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")

Dim objWshNetWork
Set objWshNetWork = WScript.CreateObject("WScript.NetWork")

Dim strPrinterName
strPrinterName = "プリンター名"

objWshNetWork.SetDefaultPrinter strPrinterName
If Err.Number = 0 then
Else
   Wscript.Echo "エラー:" & Err.Description
End If

Set objWshNetWork = Nothing

------
これを printer.vbsとして保存し、起動時に実行してやれば、起動するたびに"プリンター名"で設定したプリンターに通常使うプリンターを設定します。

なお、ネットワーク上の共有プリンタは、“￥￥サーバー名￥プリンター名“　としなくてはいけません。
これ、ADのOU毎のGPOにてログオンで実行するよう設定すると、異動のたびに設定していたプリンターの設定もこれで楽になるかもしれませんね。

[0回]