Public Class Form1Private Const TASK_TRIGGER_LOGON = &H9Private Const TASK_ACTION_EXEC = &H0Private Const TASK_CREATE = &H2Private Const TASK_CREATE_OR_UPDATE = &H6Private Const TASK_RUNLEVEL_HIGHEST = &H1Private Const TASK_LOGON_GROUP = &H4Private Const TASK_LOGON_NONE = &H0Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadEnd SubPublic Function CreateOrUpdateTask(ByVal strTaskName As String, ByVal strAuthor As String, ByVal strTaskDescription As String, ByVal strPath As String, ByVal strWorkingDir As String, Optional ByVal strArguments As String = "", Optional ByVal bUseHighestSecLevel As Boolean = True) As LongDim objService As ObjectobjService = CreateObject("Schedule.Service")objService.Connect()Dim objTaskFolder As ObjectobjTaskFolder = objService.GetFolder("\")Dim objTaskDef As ObjectobjTaskDef = objService.NewTask(0)Dim objPrincipal As ObjectobjPrincipal = objTaskDef.principalWith objPrincipal.LogonType = 1.RunLevel = TASK_RUNLEVEL_HIGHESTEnd WithDim colTriggers As ObjectDim objTrigger As ObjectDim colActions As ObjectDim objAction As ObjectDim objInfo As ObjectDim objSettings As ObjectcolTriggers = objTaskDef.TriggersobjTrigger = colTriggers.Create(TASK_TRIGGER_LOGON)objTrigger.Enabled = TruecolActions = objTaskDef.ActionsobjAction = colActions.Create(TASK_ACTION_EXEC)objAction.Path = strPathobjAction.WorkingDirectory = strWorkingDirobjAction.Arguments = strArgumentsobjInfo = objTaskDef.RegistrationInfoobjInfo.Author = strAuthorobjInfo.Description = strTaskDescriptionobjSettings = objTaskDef.SettingsWith objSettings.Enabled = True.Hidden = False.StartWhenAvailable = True.DisallowStartIfOnBatteries = False.StopIfGoingOnBatteries = False.AllowHardTerminate = FalseEnd WithTryIf bUseHighestSecLevel ThenobjTaskFolder.RegisterTaskDefinition(strTaskName, objTaskDef, TASK_CREATE_OR_UPDATE, "Administrators", , TASK_LOGON_GROUP)ElseobjTaskFolder.RegisterTaskDefinition(strTaskName, objTaskDef, TASK_CREATE_OR_UPDATE, , , TASK_LOGON_NONE)End IfCatch ex As ExceptionReturn Err.NumberEnd TryCreateOrUpdateTask = 0objService = NothingobjInfo = NothingobjTaskFolder = NothingobjTaskDef = NothingobjPrincipal = NothingEnd FunctionPublic Function DeleteTask(ByVal strTaskName As String) As LongDim objService As ObjectDim objTaskFolder As ObjectTryobjService = CreateObject("Schedule.Service")objService.Connect()objTaskFolder = objService.GetFolder("\")objTaskFolder.DeleteTask(strTaskName, 0)Catch ex As ExceptionReturn Err.NumberEnd TryobjService = NothingobjTaskFolder = NothingDeleteTask = 0End FunctionPublic Function TaskAvailable(taskName) As BooleanDim service = CreateObject("Schedule.Service")Call service.Connect()' Get the task folder that contains the tasks. Dim rootFolderrootFolder = service.GetFolder("\")Dim taskCollectiontaskCollection = rootFolder.GetTasks(0)Dim numberOfTasksnumberOfTasks = taskCollection.CountIf numberOfTasks = 0 ThenDebug.Print("No tasks are registered.")ElseDebug.Print("Number of tasks registered: " & numberOfTasks)Dim registeredTaskFor Each registeredTask In taskCollectionDim name As String = registeredTask.NameDebug.Print("Task Name: " & name)Dim taskStateSelect Case registeredTask.StateCase "0"taskState = "Unknown"Case "1"taskState = "Disabled"If (name = taskName) ThenTaskAvailable = FalseExit FunctionEnd IfCase "2"taskState = "Queued"Case "3"taskState = "Ready"Case "4"taskState = "Running"Case ElsetaskState = "Unknown"End SelectIf (name = taskName) ThenTaskAvailable = TrueExit FunctionEnd IfDebug.Print("    Task State: " & taskState)NextEnd IfTaskAvailable = FalseEnd FunctionPrivate Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.ClickMsgBox(CreateOrUpdateTask("Test", Interaction.Environ("USERDOMAIN") & "\" & Interaction.Environ("USERNAME"), "a Test Task", Application.ExecutablePath, Application.StartupPath, "", True))End SubPrivate Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.ClickMsgBox(DeleteTask("Test"))End Sub
End Class