シンクライアント環境でプリンタを自動設定するスクリプト

シンクライアント環境で、起動した環境に応じてプリンタを自動設定するスクリプトです。
前提条件として、
　・プリントサーバを準備すること
　・拠点別にコンピュータ名の命名規則を決めること
　　今回は、本社での命名規則は、02＋HQ+G01 or G02（オフィスでの島をイメージ）
　　支店での命名規則は、03+BR+G01 or G02

以下のスクリプトをログインスクリプトに仕掛けておきます。
パソコン起動からプリンタ設定までの流れとしては、
①PCの電源投入
↓
②シンクライアントイメージのダウンロード
↓
③シンクライアントOSが起動
↓
④ログインする
↓
⑤グループポリシーによりプリンタ設定のスクリプトが実行される

　
　
　
　
↓ここから ************************************************
Dim WSHShell
Dim WSHNetwork

Set WSHshell=Wscript.CreateObject("Wscript.Shell")
Set WshNetwork = CreateObject("WScript.Network")

ComputerName=WSHNetwork.ComputerName

'本社
IF Left(ComputerName,2) = "02" THEN
 WshNetwork.AddWindowsPrinterConnection "\\本社プリントサーバ\本社カラー"
 WshNetwork.AddWindowsPrinterConnection "\\本社プリントサーバ\本社モノクロ1"
 WshNetwork.AddWindowsPrinterConnection "\\本社プリントサーバ\本社モノクロ2"

 IF Right(ComputerName,3) >= "G01" THEN
        PDvice = "\\本社プリントサーバ\本社モノクロ1,winspool,Ne00"
 END IF

 IF Right(ComputerName,3) >= "G02" THEN
        PDvice = "\\本社プリントサーバ\本社モノクロ2,winspool,Ne00"
 END IF

 PDvice = "\\本社プリントサーバ\本社カラー,winspool,Ne00"

 WSHShell.RegWrite "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device", Pdvice
END IF

'支店
IF Left(ComputerName,2) = "03" THEN
 WshNetwork.AddWindowsPrinterConnection "\\支店プリントサーバ\支店カラー"
 WshNetwork.AddWindowsPrinterConnection "\\支店プリントサーバ\支店モノクロ1"
 WshNetwork.AddWindowsPrinterConnection "\\支店プリントサーバ\支店モノクロ2"

 IF Right(ComputerName,3) >= "G01" THEN
        PDvice = "\\支店プリントサーバ\支店モノクロ1,winspool,Ne00"
 END IF

 IF Right(ComputerName,3) >= "G02" THEN
        PDvice = "\\支店プリントサーバ\支店モノクロ2,winspool,Ne00"
 END IF

 PDvice = "\\支店プリントサーバ\支店カラー,winspool,Ne00"

 WSHShell.RegWrite "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device", Pdvice
END IF
↑ここまで***************************

規則性を持たせることで最適化できますね。
このスクリプトは、応用することでシンクライアント以外でも活用できます。