通過服務器2003上的計劃任務運行vbs文件

我一直在努力修改現有的vbscript。奇怪的部分是，當我手動運行腳本時，它工作正常。但是，只要我嘗試將它作爲計劃任務運行，它就會報告爲完整，但實際上沒有做任何事情。經過許多故障排除之後，我認爲我已將其追蹤到原始的CreateObject。下面的代碼：通過服務器2003上的計劃任務運行vbs文件

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:

是，源描述行是空白的。使用Google搜索錯誤似乎沒有提供任何有用的信息。所以我不確定發生了什麼事。權限已被多次檢查，並且始終以管理員身份運行，與我登錄時的用戶相同。有趣的是，這個腳本在Windows 2000下運行良好。關於我唯一能想到的事情是，我使用的遠程桌面連接可能會干擾它。

任何人有任何想法或事情我可能會嘗試解決這個問題？

來源

2010-06-25 Frank Bueckert

它看起來像你試圖從網站導入數據。您可以使用excel中的內置功能來創建一個webquery而不是一個vbs腳本 – 2011-01-11 13:37:33

僅供參考，如果您在使用Google搜索十進制錯誤號時遇到問題，請嘗試將其轉換爲十六進制。 -2147467259與80004005是一樣的，如果你搜索這個，你會發現這是一個很常見的錯誤，通常意味着你被拒絕訪問某些東西，所以即使你確定它不是你的東西的權限，已經檢查過，可能值得進行以下檢查：

計劃任務是否在您手動執行腳本時使用的相同帳戶下運行？否則，請嘗試在腳本上執行RunAs以作爲與任務相同的用戶帳戶運行，如果可行，請嘗試將任務安排爲您的帳戶。
這樣你就會知道它是否是（任務vs手冊）還是它（user1 vs user2）。這可能會更容易找出問題。

來源

2010-06-25 19:31:59

通過服務器2003上的計劃任務運行vbs文件

回答

相關問題