vbs，未指定的错误，80004005

2009-01-12 11:55:33 735 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

darkdragon1981 墨衍会员 · AI 创作全网分发关注 + 加入社区

手把手教你用RK3568开发板实现FPGA与Linux的DMA通信（含完整代码解析）本文详细介绍了如何在RK3568开发板上实现FPGA与Linux系统的DMA通信，包括硬件配置、软件环境搭建、DMA通信原理、驱动开发及性能优化。通过完整的代码解析和实战案例，帮助开发者快速掌握异构系统间的高效数据传输技术，适用于物联网和边缘计算等场景。阅读详情

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

...全文