使用vbscript自动化IE SaveAs对话

Question

我正在尝试使用vbscript在Windows服务器中创建计划的自动化。

以下是我用来自动执行“另存为”对话框的脚本。当服务器连接到显示器（使用RDC）时工作正常，但是当它被安排无头运行时失败。我在这里错过了什么。

Dim ReportPath
Dim oShell
ReportPath = WScript.Arguments(0)

if len(ReportPath) = 0 then
WScript.Quit
end if

Set oShell = CreateObject("WScript.Shell")

oShell.AppActivate("Internet Explorer")

msgbox 

WScript.Sleep 2000
oShell.SendKeys "{TAB}"

WScript.Sleep 2000  
oShell.SendKeys "{TAB}"

WScript.Sleep 2000 
oShell.SendKeys "{Enter}"

WScript.Sleep 2000 
oShell.SendKeys ReportPath

WScript.Sleep 2000 
oShell.SendKeys "{Enter}"

' Return status of script execution
' WScript.StdOut.Write(returnVal)