JavaScript , Java , DOS , HTML(CSS) , JSP , SQL , VB , VBScript , ・・・etc などの覚書
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
プリンタ名変更スクリプト
strComputer = "."
Set objWMIService = GetObject("winmgmts:￥￥" & strComputer & "￥root￥cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where DeviceID = 'プリンタ名変更前'")
For Each objPrinter in colPrinters
objPrinter.RenamePrinter("プリンタ名変更後")
Next
ダウンロード(vbs)
PR
この記事にコメントする