怎么用shell实现打开计划任务的功能？

[tjj3000]

在计划任务的文件夹中双击一个任务就能显示任务的设置界面，我想通过程序实现此功能，结果无论我用shell,还是ShellExecute调用任务文件,都无法调出此界面，请问怎么实现啊？

[Dunzip]

楼上代码只能启动计划任务的文件夹

直接启动计划任务代码
Private Sub Command1_Click()
Dim SA As Object, Verbs As Object, ShedulFoldX As Object
Dim vFolder, ItemFold, MyItemFolder, ShedulFold, SchedWizard, Verb As Object
Dim Found As Boolean

Set SA = CreateObject("Shell.Application")
Set vFolder = SA.NameSpace(3)
Set ItemFold = vFolder.Items

Found = False
For Each MyItemFolder In ItemFold
If MyItemFolder.Name = "Scheduled Tasks" Then
Set ShedulFold = MyItemFolder.GetFolder
Found = True
Exit For
End If
Next
If Found = False Then
End
End If
Set ShedulFoldX = ShedulFold.Items
For Each SchedWizard In ShedulFoldX
If SchedWizard.Name = "Add Scheduled Task" Then
Set Verbs = SchedWizard.Verbs
SchedWizard.InvokeVerb (Verbs.Item(0))
Exit For
End If
Next
End Sub

[Hassle]

Private Sub Command1_Click()
Shell "cmd.exe /c ""%SystemRoot%\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"""
End Sub

[tjj3000]

谢谢以上两位，问题已解决，再请问那怎样获得后面该计划的上次运行时间，下次运行时间及状态？