Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;Create a Scheduled Task oSchAgent = ObjectCreate('Scheduler.SchAgent') oSchAgent.Refresh() oTask = oSchAgent.CreateTask('Run Notepad') oTask.ApplicationName = 'Notepad.exe' oTask.Commandline = '' oTask.Creator = 'SoAndSo' oTask.SetAccountInformation('MyDomain\SoAndSo', '******') ;Create the trigger oTrig = oTask.Triggers.Add oTrig.TriggerType = 1; ttDaily oTrig.BeginDay = ObjectType('DATE', '2008:06:26:03:00:00') oTrig.Flags = 0 oTrig.StartTime = ObjectType('DATE', '2008:06:26:03:00:00') oTrig.Update () oTask.Save oSchAgent.Refresh() oTrig = 0 oTask = 0 oSchAgent = 0 Exit
;Delete a Scheduled Tasks oSchAgent = ObjectCreate("Scheduler.SchAgent") oSchAgent.Refresh() sMessage = '' For index = 1 to oSchAgent.Count objTask = oSchAgent.Job(index) sMessage = sMessage : objTask.Name : @tab Next m_objScheduler = 0 taskname = AskItemList('Scheduled Task to Delete', sMessage, @tab, @unsorted, @single ) oSchAgent.Delete(taskname) Pause( Taskname ,'The task has been successfully deleted') exit
;List Scheduled Tasks oSchAgent = ObjectCreate("Scheduler.SchAgent") oSchAgent.Refresh sMessage = '' For index = 1 to oSchAgent.Count objTask = oSchAgent.Job(index) sMessage = sMessage : objTask.Name : @tab Next m_objScheduler = 0 AskItemList('Scheduled Tasks', sMessage, @tab, @unsorted, @single ) exit
;Create a scheduled task List outputfile = 'c:\ScheduledTaskListPlus.txt' oSchAgent = ObjectCreate("Scheduler.SchAgent") oSchAgent.Refresh sMessage = '' For index = 1 to oSchAgent.Count objTask = oSchAgent.Job(index) sMessage = sMessage : @crlf: @crlf: '** DETAILS ** ': @crlf sMessage = sMessage : 'Name = ' : objTask.Name : @crlf sMessage = sMessage : 'Comment = ' : objTask.Comment : @crlf sMessage = sMessage : 'Creator = ' : objTask.Creator : @crlf sMessage = sMessage : 'ApplicationName = ' : objTask.ApplicationName : @crlf sMessage = sMessage : 'CommandLine = ' : objTask.CommandLine : @crlf sMessage = sMessage : 'WorkingDirectory = ' : objTask.WorkingDirectory : @crlf sMessage = sMessage : 'MaxRunTime = ' : objTask.MaxRunTime : @crlf sMessage = sMessage : 'NextRunTime = ' : objTask.NextRunTime : @crlf sMessage = sMessage : @crlf: @crlf: '** FLAGS **' : @crlf sFlags = objTask.Flags if sFlags & 1 sMessage = sMessage : "TASK_FLAG_INTERACTIVE" : @crlf end if if sFlags & 2 sMessage = sMessage : "TASK_FLAG_DELETE_WHEN_DONE" :@crlf end if if sFlags & 4 sMessage = sMessage : "TASK_FLAG_DISABLED" : @crlf end if if sFlags & 16 sMessage = sMessage : "TASK_FLAG_START_ONLY_IF_IDLE" : @crlf end if if sFlags & 32 sMessage = sMessage : "TASK_FLAG_KILL_ON_IDLE_END" : @crlf end if if sFlags & 64 sMessage = sMessage : "TASK_FLAG_DONT_START_IF_ON_BATTERIES" : @crlf end if if sFlags & 128 sMessage = sMessage : "TASK_FLAG_KILL_IF_GOING_ON_BATTERIES" : @crlf end if if sFlags & 256 sMessage = sMessage : "TASK_FLAG_RUN_ONLY_IF_DOCKED" : @crlf end if if sFlags & 512 sMessage = sMessage : "TASK_FLAG_HIDDEN" : @crlf end if if sFlags & 1024 sMessage = sMessage : "TASK_FLAG_RUN_IF_CONNECTED_TO_INTERNET" : @crlf end if if sFlags & 2048 sMessage = sMessage : "TASK_FLAG_RESTART_ON_IDLE_RESUME" : @crlf end if if sFlags & 4096 sMessage = sMessage : "TASK_FLAG_SYSTEM_REQUIRED" : @crlf end if if sFlags & 8192 sMessage = sMessage : "TASK_FLAG_RUN_ONLY_IF_LOGGED_IN" : @crlf end if sMessage = sMessage : @crlf: @crlf: "** STATUS** " : @crlf sStatus = objTask.Status Select sStatus Case 267008 sMessage = sMessage : "SCHED_S_TASK_READY" : @crlf break Case 267009 sMessage = sMessage : "SCHED_S_TASK_RUNNING" : @crlf break Case 267010 sMessage = sMessage : "SCHED_S_TASK_DISABLED" : @crlf break Case 267011 sMessage = sMessage : "SCHED_S_TASK_HAS_NOT_RUN" : @crlf break Case 267012 sMessage = sMessage : "SCHED_S_TASK_NO_MORE_RUNS" : @crlf break Case 267013 sMessage = sMessage : "SCHED_S_TASK_NOT_SCHEDULED": @crlf break Case 267014 sMessage = sMessage : "SCHED_S_TASK_TERMINATED": @crlf break Case 267015 sMessage = sMessage : "SCHED_S_TASK_NO_VALID_TRIGGERS": @crlf break Case 267016 sMessage = sMessage : "SCHED_S_EVENT_TRIGGER": @crlf break EndSelect sMessage = sMessage : @crlf: @crlf : '_________________________________________' : @crlf: @crlf Next m_objScheduler = 0 FilePut(outputfile, sMessage) Run(outputfile,'') exit
;Run a Scheduled Task oSchAgent = ObjectCreate('Scheduler.SchAgent') oSchAgent.Refresh sMessage = '' For index = 1 to oSchAgent.Count objTask = oSchAgent.Job(index) sMessage = sMessage : objTask.Name : @tab Next m_objScheduler = 0 taskname = AskItemList('Choose Scheduled Task to Run', sMessage, @tab, @unsorted, @single ) objTask = oSchAgent.Job(taskname) objTask.Run exit
Article ID: W18267
Filename: Automate the Task Scheduler Using COM.txt
File Created: 2019:08:14:09:34:20
Last Updated: 2019:08:14:09:34:20