(Visual Basic .net - Version 2008)

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

dim sc as new system.serviceprocess.servicecontroller
sc.servicename = "Test"
sc.pause
sc.continue

dim sc as new system.serviceprocess.servicecontroller
sc.servicename = "Test"
if sc.canpauseandcontinue = true then
    sc.pause 
    sc.continue
end if

(Visual Basic .net - Version 2008)

(Visual Basic .net - Version 2008)

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)

        If (moo.Item("Name").ToString.ToUpper = Dienst.text.ToUpper) Then

moo.InvokeMethod("ChangeStartMode", New Object() {"Disabled"}) : Exit For

(Visual Basic .net - Version 2008)

(Visual Basic .net - Version 2008)

Micke

 
Dim userdir As String = getuserdir()
 
Public Function getuserdir() As String
        Return _ removebackslash(System.Environment.GetEnvironmentVariable( _
          "USERPROFILE"))
    End Function
 
Dim SVC_BAK As String = userdir + "\services.reg"
 
 cache = ("regedit /e " & SVC_BAK & "  _" & _
   "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services") 
 
 Shell(cache, AppWinStyle.Hide, True)

(Visual Basic .net - Version 2008)