用vbs实现天界一个五分钟执行一次notepadexe的计划任务

以下是使用VBScript实现每五分钟执行一次notepad.exe的计划任务的代码：

Set objShell = CreateObject("WScript.Shell")
Set objTaskScheduler = CreateObject("Schedule.Service")
objTaskScheduler.Connect()
Set objRootFolder = objTaskScheduler.GetFolder("\")
Set objTask = objRootFolder.RegisterTaskDefinition("Notepad Task", _
    task_trigger, _
    0, _
    0, _
    1, _
    True)

objTask.Settings.Enabled = True
objTask.Settings.StartWhenAvailable = True
objTask.Settings.Hidden = False

Set action = objTask.Actions.Create(0)
action.Path = "notepad.exe"

Set task_trigger = objTask.Triggers.Create(3)
task_trigger.StartBoundary = FormatDateTime(DateAdd("n", 5, Now), 4)
task_trigger.Enabled = True

objTask.RegisterChanges()

这段代码使用Windows任务计划程序创建了一个名为“Notepad Task”的计划任务，该任务会在每五分钟触发一次，然后运行notepad.exe。请注意，您需要以管理员身份运行此脚本才能成功创建计划任务。