[系统相关] 求助：如何利用批处理设置默认打印机？

cxmgxl

求助：如何利用批处理设置默认打印机？

czjt1234

假如本机可以通过网上邻居访问 \\a002
在计算机 a002 上共享打印机
共享名为 AGFA-Acc 和 CanonBub

Dim oWshNetwork
 
Set oWshNetwork = CreateObject("WScript.Network")

'映射一个网络打印机
oWshNetwork.AddWindowsPrinterConnection "\\a002\AGFA-Acc"

'设置默认打印机
oWshNetwork.SetDefaultPrinter "\\a002\AGFA-Acc"
复制代码

打开：控制面板 - 打印机和传真，可以查看默认打印机

winxp 和 win7x64 测试通过

至于你说的控制面板添加共享打印机的名字没效果
请先确认打开网上邻居可以看到共享的电脑和打印机

cloversky

回复 2# apang

如果设置的是其他电脑共享的打印机怎么设置，我打开控制面板添加共享打印机的名字没效果

cxmgxl

谢谢apang的热心帮助！

apang

set "PrinterName=Microsoft Office Document Image Writer"
wmic printer where (name="%PrinterName%") call setdefaultprinter
复制代码