计算机计划任务不执行,在Windows 8中作为计划任务调用时，VBS脚本无法运行

我创建了一个VBS脚本，即使在没有管理员权限的ID上，也可以在Windows 8 Home计算机上手动运行时完美运行。无论我用什么用户凭据通过计算机启动时的计划任务运行它，同样的脚本都会反复失败。我已经尝试过机器上的系统，管理员和非特权用户ID都没有成功。

这个相同的VBS脚本在多个Windows 7以及Windows 8.1 Home和Professional计算机上的计划任务中完全没有问题。

此脚本尝试成功ping网站，并且成功ping后将使用本地计算机的当前时间将数据发布到网页。

boolExitFlag = False

Do

If Ping("HOSTNAME") Then

Call pingsuccess

boolExitFlag = True

End If

WScript.sleep 1000

Loop while boolExitFlag <> True

Sub pingsuccess

set oHTTP = CreateObject("Microsoft.XMLHTTP")

oHTTP.open "POST", "URL",false

oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

oHTTP.setRequestHeader "Content-Length", Len("send=send&time=" & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now))

oHTTP.send "send=send&time=" & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)

End Sub

Function Ping(strHost)

Dim oPing, oRetStatus, bReturn

Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & strHost & "'")

For Each oRetStatus In oPing

If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then

bReturn = False

Else

bReturn = True

End If

Set oRetStatus = Nothing

Next

Set oPing = Nothing

Ping = bReturn

End Function

当我在Windows 8计算机上运行计划任务时，我看到了

＆＃34;任务当前正在运行。 (0x41301)＆＃34;没有成功。我已经尝试了几乎所有尝试在编写批处理脚本以运行VBS脚本之外的工作。这似乎过分没必要了。