Option Explicit
 
Private Declare Function OpenSCManager Lib "advapi32.dll" Alias _
  "OpenSCManagerA" _
    (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal _
    dwDesiredAccess As Long) As Long
 
Private Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" _
    (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal _
    dwDesiredAccess As Long) As Long
 
Private Declare Function StartService Lib "advapi32.dll" Alias "StartServiceA" _
    (ByVal hService As Long, ByVal dwNumServiceArgs As Long, ByVal _
    lpServiceArgVectors As Long) As Long
 
 
 
Private Const SERVICES_ACTIVE_DATABASE = "ServicesActive"
Private Const GENERIC_EXECUTE = &H20000000
 
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const SERVICE_QUERY_CONFIG = &H1
Private Const SERVICE_CHANGE_CONFIG = &H2
Private Const SERVICE_QUERY_STATUS = &H4
Private Const SERVICE_ENUMERATE_DEPENDENTS = &H8
Private Const SERVICE_START = &H10
Private Const SERVICE_STOP = &H20
Private Const SERVICE_PAUSE_CONTINUE = &H40
Private Const SERVICE_NO_CHANGE = &HFFFF
Private Const SERVICE_USER_DEFINED_CONTROL = &H100
Private Const SC_MANAGER_CONNECT = &H1
Private Const SC_MANAGER_CREATE_SERVICE = &H2
Private Const SC_MANAGER_ENUMERATE_SERVICE = &H4
Private Const SC_MANAGER_LOCK = &H8
Private Const SC_MANAGER_QUERY_LOCK_STATUS = &H10
Private Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20
Private Const SERVICE_INTERROGATE = &H80
 
 
Private Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
  SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE _
    Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or _
    SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG)
 
 
 
Private Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
  SERVICE_QUERY_CONFIG Or SERVICE_CHANGE_CONFIG Or _
    SERVICE_QUERY_STATUS Or SERVICE_ENUMERATE_DEPENDENTS Or SERVICE_START Or _
    SERVICE_STOP Or SERVICE_PAUSE_CONTINUE _
    Or SERVICE_INTERROGATE Or SERVICE_USER_DEFINED_CONTROL)
 
 
 
Private Sub Command1_Click()
    Dim hSCM As Long, hOPS As Long
 
    hSCM = OpenSCManager("NET-SERVER", SERVICES_ACTIVE_DATABASE, _
      SC_MANAGER_ALL_ACCESS)
 
    hOPS = OpenService(hSCM, "net send michael home", GENERIC_EXECUTE Or _
      SERVICE_ALL_ACCESS)
 
    Dim ExpApache
    ExpApache = StartService(hOPS, vbNullString, vbNullString)
    'lzf 13; Typen unverträglich
 
 
End Sub

>> <<