Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        GetAll("\")
    End Sub
 
 
    Public Sub GetAll(taskFolderPath As String)
        Dim taskService1 = New TaskScheduler.TaskScheduler
        taskService1.Connect()
        Dim taskFolder As ITaskFolder = taskService1.GetFolder(taskFolderPath)
        For Each task As IRegisteredTask In taskFolder.GetTasks(0)
            If task.Name = "test" Then
                ' Hir soll der Task deaktiviert werden
            End If
        Next
    End Sub

   Public Sub GetAll(taskFolderPath As String)
        Dim taskService1 = New TaskScheduler.TaskScheduler
        taskService1.Connect()
        Dim taskFolder As ITaskFolder = taskService1.GetFolder(taskFolderPath)
        For Each task As IRegisteredTask In taskFolder.GetTasks(0)
            If task.Name = "test" AndAlso task.Definition.Settings.Enabled = _
              True Then
                task.Definition.Settings.Enabled = False
 
                MsgBox(task.Definition.Settings.Enabled)
            End If
        Next
    End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
   Button3.Click
 
        Dim ts As New TaskScheduler.TaskScheduler
        ts.Connect(Nothing, Nothing, Nothing, Nothing)
 
        Dim folder As ITaskFolder = ts.GetFolder("\Microsoft\Office")
        Dim hh As IRegisteredTask = folder.GetTask("test")
        hh.Enabled = False
    End Sub