【发布时间】:2011-03-08 10:03:36
【问题描述】:
我一直致力于修改现有的 vbscript。奇怪的是,当我手动运行脚本时,它工作正常。但是,一旦我尝试将其作为计划任务运行,它就会报告为已完成,但实际上并没有做任何事情。经过多次故障排除后,我想我将其追溯到原始的 CreateObject。代码如下:
On Error Resume Next
'create an instance of IE
Dim oIE, objFSO, linenum
linenum = 0
Set oIE = CreateObject("InternetExplorer.Application")
'If err.number <> 0 Then linenum = 6
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set objTextFile = objFSO.OpenTextFile ("C:\test.txt", ForAppending, True)
'objTextFile.WriteLine(now() & " Internet object created.")
'Execute our URL
'oIE.navigate("<intranet site>")
'objTextFile.WriteLine(now() & " Starting import")
'wait for the window to be closed (exit IE)
'Do Until Err : oIE.visible = True : wsh.sleep 1000 : Loop
'objTextFile.WriteLine(now() & " Import complete.")
if Err.Number <> 0 then
' An exception occurred
objTextFile.WriteLine("Exception:" & vbCrLf & " linenum: " & linenum & vbCrLf & " Error number: " & Err.Number & vbCrLf & " Error source: " & Err.source & vbCrLf & " Error description: " & Err.Description & vbCrLf)
End If
'clean up
'oIE.Quit
'oIE.Visible = False
'Set oIE = Nothing
我已经注释掉了大部分内容,以缩小范围,从我添加的日志中,它吐出了当前的错误:
Exception:
linenum: 0
Error number: -2147467259
Error source:
Error description:
是的,来源和描述行是空白的。 谷歌搜索错误似乎没有带来任何有用的信息。所以我不确定发生了什么。已多次检查权限,并且始终以管理员身份运行,与我登录时的用户相同。有趣的是,这个脚本在 Windows 2000 上运行良好。我唯一能想到的可能是我正在使用的远程桌面连接以某种方式干扰了它。
任何人有任何想法或事情我可以尝试解决这个问题?
【问题讨论】:
-
您似乎正在尝试从网站导入数据。您可以使用 excel 中的内置功能来创建 web 查询而不是 vbs 脚本吗
标签: vbscript windows-server-2003 scheduled-tasks