vbs,未指定的错误,80004005
我写了个安装打印机的脚本,在很多机器上运行没有问题,但是在领导的机器上运行却出错!
总是提示:未指定的错误;代码:80004005
提示红色部分有问题,请问哪位老大知道怎么回事?是他的机器设置问题吗?
set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
ie.menubar=0
ie.toolbar=0
ie.statusbar=0
ie.resizable=0
ie.visible=1
with ie.document
.write "<html>"
.write "<head><title>打印机设置脚本</title></head>"
.write "<body>"
.write "<h2 align=center>打印机设置脚本</h2><br>"
.write "<h2 align=center>你所在的位置</h2><br>"
.write "<h2 align=center>字母请小写</h2><br>"
.write "<center><p><input id=zuo type=text size=10>座</center>"
.write "<center><p><input id=ceng type=text size=10>层</center>"
.write "<p><center><input id=update type=button value=确定></center>"
.write "</body></html>"
end with
set id=ie.document.all
id.update.onclick=getref("event_update")
do while true '由于ie对象支持事件,所以相应的,'
wscript.sleep 200 '脚本以无限循环来等待各种事件。'
loop
sub event_update()
if id.zuo.value="c" then
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.9\c401-print"
WshNetwork.SetDefaultPrinter "\\192.168.0.9\c401-print"
Wscript.Echo "打印机已经连接!"
elseif id.zuo.value="d" then
select case id.ceng.value
case 1
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.9\d1-1-print"
WshNetwork.SetDefaultPrinter "\\192.168.0.9\d1-1-print"
Wscript.Echo "打印机已经连接!"
case 2
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.9\d1-2-print"
WshNetwork.SetDefaultPrinter "\\192.168.0.9\d1-2-print"
Wscript.Echo "打印机已经连接!"
case else
Wscript.Echo "请输入正确的数据"
id.zuo.value=""
id.ceng.value=""
end select
else
Wscript.Echo "请输入正确的数据"
id.zuo.value=""
id.ceng.value=""
end if
end sub