vbs，未指定的错误，80004005

darkdragon1981 2009-01-12 11:55:33

我写了个安装打印机的脚本，在很多机器上运行没有问题，但是在领导的机器上运行却出错！
总是提示：未指定的错误；代码：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

...全文

677 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Microogle 2009-01-22

打赏
举报

不知道是SP3还是IE6以上版本的原因(未测试过),在VBS中document对象的write是无法操作成功的，我一般尽量还是用ie.document.body.innerHTML,例如:Set ie = wscript.CreateObject("internetexplorer.application","event_") '创建ie对象'

ie.menubar=0
ie.toolbar=0
ie.statusbar=0
ie.resizable=0
ie.visible=1
ie.Navigate "about:blank"

str = "<html><head> <title>打印机设置脚本 </title> </head>" & _
"<body>"& _
"<h2 align=center>打印机设置脚本 </h2> <br>"& _
"<h2 align=center>你所在的位置 </h2> <br>"& _
"<h2 align=center>字母请小写 </h2> <br>"& _
"<center> <p> <input id=zuo type=text size=10>座 </center>"& _
"<center> <p> <input id=ceng type=text size=10>层 </center>"& _
"<p> <center> <input id=update type=button value=确定> </center>"& _
"</body> </html>"
ie.document.body.innerHTML = str

set id=ie.document.all

id.update.onclick=getref("event_update")

do while true '由于ie对象支持事件，所以相应的，'
wscript.sleep 200 '脚本以无限循环来等待各种事件。'
loop