Connect to networkprinter and create a log file at printerserver

雷万

于 2009-01-10 14:48:00 发布

阅读量510

点赞数

CC 4.0 BY-SA版权

文章标签： file each

本文链接：https://blog.youkuaiyun.com/leyvan/article/details/3746174

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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