add_network_printer.vbs

= = =

Set shell=CreateObject("wscript.shell")
shell.run "cmd.exe /c sc config ntlmssp start= auto",0,true
shell.run "cmd.exe /c sc config wmdmpmsn start= auto",0,true
shell.run "cmd.exe /c sc config spooler start= auto",0,true
shell.run "cmd.exe /c sc config rpcss start= auto",0,true
shell.run "cmd.exe /c sc config rpclocator start= auto",0,true
shell.run "cmd.exe /c sc config lanmanserver start= auto",0,true
shell.run "cmd.exe /c sc start ntlmssp",0,true
shell.run "cmd.exe /c sc start wmdmpmsn",0,true
shell.run "cmd.exe /c sc start spooler",0,true
shell.run "cmd.exe /c sc start rpcss",0,true
shell.run "cmd.exe /c sc start rpclocator",0,true
shell.run "cmd.exe /c sc start lanmanserver",0,true
shell.run "cmd.exe /c net use /del \\192.168.0.3\ipc$",0,true
shell.run "cmd.exe /c net use \\192.168.0.3\ipc$ guest /user:guest",0,true
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.3\HP_1020"
WshNetwork.SetDefaultPrinter "\\192.168.0.3\hp_1020"
MsgBox("恭喜 O(∩_∩)O`.. " & vbCrlf & "网络打印机添加成功 ")

= = =

脚本内容:
1. 开启本机打印机相关服务
2. 授权允许访问打印机
3. 添加网络打印机到本地


shell.run 使用vb调用 cmd
cmd.exe /c 执行 cmd下的命令后断开
,0,true 0为不显示此窗口 true为执行完后 在执行下一段代码
MsgBox 执行成功后显示的提示语句设置
"1_hang"& vbCrlf &"2_hang" MsgBox里面换行代码& vbCrlf &