プリントサーバ機器交換の場合

質問

プリンタサーバハードの交換を検討しています。

交換でする作業
新プリンタサーバへの登録は、プリンタ名称、型式、IPはすべて同じ設定を行います。

ホスト名を以下とした場合
現プリンタサーバ：PRINTOLD
新プリンタサーバ：PRINTNEW

利用者が登録していたプリンタは「\\PRINTOLD\PrinterNameA」と登録されます。

利用者によっては複数台のプリンタを登録している方もいるため
少しでも作業工数を減らすため、ログインスクリプト（BATかVBS）で
「\\PRINTOLD\PrinterNameA」が登録されていたら
「\\PRINTNEW\PrinterNameA」と登録させる方法はないでしょか。
（利用者の意思で名称を変更しているプリンタは対象外）

PRINTOLDに登録されている数は100近くあります。

ログインスクリプトは下記のイメージで考えてます。
・ログインスクリプトが実行された判断（何度も実行されないように）
・初回であればプリンタの条件を判断し新しいプリンタを登録する
・終了

以上、どなたかアドバイスよろしくお願いします。

回答No.1

temtecomai2 · ベストアンサー

初回判断とか無しにして、何度実行されても構わないようにすればいいと思う。
・ 古いプリンタが登録されていれば、古いプリンタを削除する。
・ 新しいプリンタが登録されていなければ、新しいプリンタを登録する。
このスクリプトを 1か月も繰り返していれば休職してるオーナーの PC や休眠 PC じゃないかぎり新しいプリンタの環境に移行できると思いますが。

---- 登録されているプリンタの一覧を表示するサンプル
Dim netObject
Set netObject = WScript.CreateObject("WScript.Network")

Dim printers
Dim i
Set printers = netObject.EnumPrinterConnections
For i = 0 To printers.Count -1
　　WScript.Echo printers.Item(i)
Next

-------- プリンタ移行のためのスクリプト
Dim netObject
Set netObject = WScript.CreateObject("WScript.Network")

' 古いプリンタが接続されていれば削除する
If PrinterExists(netObject, "\\PRINTOLD\PrinterNameA") Then
　　netObject.RemovePrinterConnection "\\PRINTOLD\PrinterNameA"
End If
' 新しいプリンタが接続されていなければ接続する
If Not(PrinterExists(netObject, "\\PRINTNEW\PrinterNameA")) Then
　　netObject.AddPrinterConnection "\\PRINTNEW\PrinterNameA"
End If

' 指定したプリンタが存在すれば Ture を返す
Function PrinterExists(aNetObject, aPrinterUNC)
　　Dim returnValue
　　returnValue = False

　　Dim printers
　　Dim i
　　Set printers = netObject.EnumPrinterConnections
　　For i = 0 To printers.Count -1 Step 2
　　　　If printers.Item(i + 1) = aPrinterUNC Then
　　　　　　returnValue = True
　　　　　　Exit For
　　　　End If
　　Next
　　PrinterExists = returnValue
End Function
--------

お礼

temtecomai2さん。
レス＋ソースまで記載いただいてありがとうございます。

早速、会社で動作確認してみます。