「あやめ」の起動時自動実行ネタ(3)

今回は、共用プリンタの追加と通常使用プリンタの設定です。
あやめを起動すると共用プリンタの追加と、通常使用するプリンタをPC名を見て勝手に自動設定しています。

この御時世、カラープリントを抑制して経費節約するなんてどこでもやってる事だと思います。
そこで、1台のプリンタに白黒専用(設定変更でカラー印刷が選択できない)、カラー印刷可の共用プリンタを登録しておき、あやめを起動すると共用プリンタの追加と、通常使用するプリンタを白黒専用にします。

Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト
Dim strPrinterName

Set objWshNetwork = WScript.CreateObject("WScript.Network")

strPrinterName = "\\prtsvr01\DocuCentre-II C4300 1F □(カラー)"
objWshNetwork.AddWindowsPrinterConnection strPrinterName

strPrinterName = "\\prtsvr01\DocuCentre-II C4300 1F ■(白黒)"
objWshNetwork.AddWindowsPrinterConnection strPrinterName

strPrinterName = "\\prtsvr01\DocuCentre-II C4300 2F □(カラー)"
objWshNetwork.AddWindowsPrinterConnection strPrinterName

strPrinterName = "\\prtsvr01\DocuCentre-II C4300 2F ■(白黒)"
objWshNetwork.AddWindowsPrinterConnection strPrinterName

Dim wsh, computername, username
Set wsh = WScript.CreateObject("WScript.Shell")
computername = wsh.ExpandEnvironmentStrings("%COMPUTERNAME%")

if mid(computername,1,3) = "pc1" or mid(computername,1,3) = "pc2" then
  strPrinterName = "\\prtsvr01\DocuCentre-II C4300 2F ■(白黒)"
  objWshNetwork.SetDefaultPrinter strPrinterName
end if
if mid(computername,1,3) = "pc3" or mid(computername,1,3) = "pc4" then
  strPrinterName = "\\prtsvr01\DocuCentre-II C4300 1F ■(白黒)"
  objWshNetwork.SetDefaultPrinter strPrinterName
  'WScript.Echo computername
end if

Set wsh = Nothing
Set objWshNetwork = Nothing


■参考:自動起動設定

[Node]
Config=0F0000000064000073
Gesture=0
[No.0]
Title=Windows資格情報登録
Path=\\landisk\00_syatyou\Application\set_cmdkey.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.1]
Title=IEのセキュリティ設定
Path=\\landisk\00_syatyou\Application\set_IE_LocalInternet.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.2]
Title=プリンタドライバー警告非表示
Path=\\landisk\00_syatyou\Application\set_pointAndPrint.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.3]
Title=LANDISKからの実行時のセキュリティ警告を非表示
Path=\\landisk\00_syatyou\Application\set_Trusted Locations.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.4]
Title=Windows Update Uninstall
Path=\\landisk\00_syatyou\Application\update_uninstall.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.5]
Title=ESETインストール
Path=\\LANDISK\00_syatyou\Application\ESET_inst.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.6]
Title=共用プリンタ追加
Path=\\Landisk\00_syatyou\Application\prtadd2.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.7]
Title=共用プリンタ削除
Path=\\Landisk\00_syatyou\Application\prtdelete.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.8]
Title=共用プリンタ削除2
Path=\\Landisk\00_syatyou\Application\prtdel2.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.9]
Title=パソコン情報の収集
Path=\\Landisk\00_syatyou\Application\pccheck.vbs
WorkDir=C:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.10]
Title=あやめの自動スタート登録
Path=\\Landisk\00_syatyou\Application\ayame_inst2.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.11]
Title=あやめの自動リスタート
Path=\\Landisk\00_syatyou\Application\ayame_restart.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.12]
Title=お知らせ掲示板
Path=\\Landisk\00_syatyou\Application\bbsstart2.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.13]
Title=無料PowerPoint Viewer 2010 自動インストール
Path=\\landisk\00_syatyou\Application\PowerPointViewerInst2010.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.14]
Title=無料Accessのインストール
Path=\\LANDISK\00_syatyou\Application\AccessInst.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.15]
Title=無料DocuWorksViewerLight 自動インストール
Path=\\landisk\00_syatyou\Application\DocuWorks7ViewerInst.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.16]
Title=PC名確認
Path=\\LANDISK\00_syatyou\Application\pcnamecheck.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.17]
Title=WINSサーバ自動登録
Path=\\landisk\00_syatyou\Application\setwins.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.18]
Title=SQL ネイティブクライアントインストール
Path=\\landisk\00_syatyou\Application\sqlncli_inst.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.19]
Title=ワークグループ名変更
Path=\\LANDISK\00_syatyou\Application\mnet_set.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.20]
Title=hostsコピー 通常時
Path=\\landisk\00_syatyou\Application\hosts\hosts_copy.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.21]
Title=固定IPアドレスの解放
Path=\\landisk\00_syatyou\application\setipaddr.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.22]
Title=MintClientインストール
Path=\\landisk\00_syatyou\Application\mint_inst.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.23]
Title=時刻同期
Path=\\landisk\00_syatyou\Application\timeset.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.24]
Title=MSセキュリティソフトインストール
Path=\\landisk\00_syatyou\Application\MicrosoftSecurityEssentials_inst.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.25]
Title=アカウント名チェック
Path=\\landisk\00_syatyou\Application\usernamecheck.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.26]
Title=WebControl リモートアクセス以外はインターネット遮断
Path=C:\application\menu\webControl.vbs
WorkDir=C:\application\menu
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.27]
Title=WebControl 誤設定の削除
Path=C:\application\menu\webstart_delete.vbs
WorkDir=C:\application\menu
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.28]
Title=WAOインストール
Path=\\landisk\00_syatyou\Application\wao_download.vbs
WorkDir=\\landisk\00_syatyou\Application
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.29]
Title=wao ファイアウォール設定
Path=\\landisk\00_syatyou\WaoFile\◆wao_firewall_set.vbs
WorkDir=\\landisk\00_syatyou\WaoFile
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.30]
Title=menu download
Path=c:\application\menu\menu_copy.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.31]
Title=wao print driver インストール
Path=\\landisk\00_syatyou\WaoFile\waoprt_inst\waoprt_inst.vbs
WorkDir=
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.32]
Title=Excel VBA有効設定
Path=\\landisk\00_syatyou\Application\set_ExcelVBA.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.33]
Title=AutoCAD 監査
Path=\\landisk\00_syatyou\Application\AutoCadCheck.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=0
[No.34]
Title=win10 update icon の削除
Path=\\landisk\00_syatyou\Application\set_win10icon_delete.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.35]
Title=IEにEnterpriseMode追加
Path=\\landisk\00_syatyou\Application\set_EnterpriseMode.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1
[No.36]
Title=自動実行(5分毎)
Path=\\landisk\00_syatyou\Application\autoexec.vbs
WorkDir=c:\
CmdLine=
HotKey=000000
WinState=0
Priority=0
Icon=
Wait=0
Check=1

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です