Question

我正在尝试编写一个VBscript来安排任务随机启动。

当我双击VBscript时，它会被执行而没有任何错误，但是任务调度程序没有使用新任务进行更新。

sRndTime = Random2DigitNumber(08, 17) & ":" & Random2DigitNumber(0, 59) & ":" & Random2DigitNumber(0, 59)

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "SchTasks /create /tn New_Test_Task /sc WEEKLY /D MON,TUE /st " & sRndTime & " /TR ""C:\main_command.vbs"" /ru ""SYSTEM""", 1, True

Function Random2DigitNumber(iLower, iUpper)
Randomize
Random2DigitNumber = Right("00" & Int((iUpper - iLower + 1) * Rnd + iLower), 2)
End Function

我看不出这段代码的问题在哪里。

任何想法我做错了什么？

Answer 1

在命令前加cmd /k。如果您没有以管理员身份运行，您将看到拒绝访问。它与众不同。

但这很疯狂。您是一个程序而不是用户。做事情的方式。

Set TS = CreateObject("Schedule.Service")
TS.Connect("ComputerName")

Set rootFolder = TS.GetFolder("\")

Set tasks = rootFolder.GetTasks(0)

If tasks.Count = 0 Then 
    Wscript.Echo "No tasks are registered."
Else
    WScript.Echo "Number of tasks registered: " & tasks.Count

    For Each Task In Tasks
    A=Task.Name
    A = A & " " & Task.NextRunTime
    wscript.echo A
    Next
End If

如何通过VBscript文件随机安排任务？

1 个答案: