Dim wmi As ManagementObjectSearcher = New ManagementObjectSearcher("Select *" & _
  "from WIN32_SERVICE")
        For Each moo As ManagementObject In wmi.Get
            If (moo.Item("Name").ToString.ToUpper = Dienst.text) Then
                moo.InvokeMethod("ChangeStartMode", New Object() {"Disabled"}) _
                  : Exit For
            End If
        Next

(Visual Basic .net - Version 2008)