On Error Resume Next
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.AddWindowsPrinterConnection ""
WshNetwork.SetDefaultPrinter ""
Wscript.Echo "请手动设置您的默认打印机.Please manually set your default printer."
dim oShell
set oshell = WScript.CreateObject("WScript.Shell")
oshell.run ("control.exe printers")
Set oShell=NoThing
WScript.quit
'添加网络打印机的脚本,以上内容保存为VBS.
阅读(1483) | 评论(0) | 转发(0) |