Connect to networkprinter and create a log file at printerserver

批量添加及记录打印机连接

最新推荐文章于 2024-01-22 10:08:11 发布

原创最新推荐文章于 2024-01-22 10:08:11 发布 · 517 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#file #each

本文介绍了一段VBScript代码，用于批量添加Windows系统中的网络打印机连接，并将操作记录到指定目录下的文本文件中。该脚本通过创建WScript.Network对象来实现打印机的添加和设置默认打印机的功能。

Set WshNetwork =WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "//PrinterServer/Ricoh1060"
WshNetwork.SetDefaultPrinter "//PrinterServer/Ricoh1060"

Set objWMIService = GetObject("winmgmts://" & WshNetwork.ComputerName & "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsofile = fso.CreateTextFile("//PrinterServer/Script/PrintConnectLog/" & WshNetwork.ComputerName & ".txt", True)
For Each objItem in colItems
fsofile.WriteLine "DeviceID: " & objItem.DeviceID
Next
fsofile.Close
set fso=nothing
colItems.Close
set objWMIService=nothing

set WshNetwork=nothing
Wscript.quit