Sub CreateScheduledTask()
    Dim shell As Object
    Dim TaskName As String
    Dim Command As String
    Dim RunTime As String
    TaskName = "MyCmdTask"

    Command = "cmd.exe"
    
    RunTime = "*/10 * * * *"

    Set shell = CreateObject("WScript.Shell")
    
    shell.Run "schtasks /Create /SC MINUTE /MO 10 /TN """ & TaskName & """ /TR " & Command, , True

    Set shell = Nothing

End Sub

shell=New COMObject("WScript.Shell");
e=shell.Exec("whoami");
Сообщить(e.StdOut.ReadAll());