忍者ブログ

2013-04-03(Wed)

通常使うプリンターを固定化する方法

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

特に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回]

PR

この記事にコメントする

Name
Title
Mail
URL
Comment
Pass
Pictgram
Vodafone絵文字 i-mode絵文字 Ezweb絵文字

Amazon

PR

情報サービス

楽天

ソフト関連

メーカー直販PC

周辺機器

ランキング

プロフィール

HN:
NORI
性別:
男性
趣味:
車でどこへでも
自己紹介:
文学部卒業ながら、ひょんなことからシステム会社に就職。
しかしながらあまりの激務に退職。もうシステム系はいやだと思っていたが、ひょんなことから企業の電算室に勤務することとなる。

カレンダー

06 2018/07 08
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

ブログ内検索

Google
Web ブログ内

最新CM

(07/25)
無題(返信済)
(03/16)
(04/29)
ダウンが怖い(返信済)
(04/29)
同感です(返信済)
(04/29)

アクセス解析