add stub for ControlServiceEx()
[reactos.git] / reactos / lib / advapi32 / service / scm.c
index 93b9d2b..5e91b2f 100644 (file)
-/* $Id: scm.c,v 1.12 2002/09/08 10:22:37 chorns Exp $
- * 
+/*
  * COPYRIGHT:       See COPYING in the top level directory
  * PROJECT:         ReactOS system libraries
  * FILE:            lib/advapi32/service/scm.c
  * PURPOSE:         Service control manager functions
  * PROGRAMMER:      Emanuele Aliberti
+ *                  Eric Kohl
  * UPDATE HISTORY:
- *     19990413 EA     created
- *     19990515 EA
+ *  19990413 EA created
+ *  19990515 EA
  */
 
 /* INCLUDES ******************************************************************/
 
-#include <windows.h>
-#include <ddk/ntddk.h>
+#include <advapi32.h>
+#include "svcctl_c.h"
+
+#define NDEBUG
+#include <debug.h>
 
 /* FUNCTIONS *****************************************************************/
 
+handle_t BindingHandle = NULL;
+
+static VOID
+HandleBind(VOID)
+{
+  LPWSTR pszStringBinding;
+  RPC_STATUS status;
+
+  if (BindingHandle != NULL)
+    return;
+
+  status = RpcStringBindingComposeW(NULL,
+                                    L"ncacn_np",
+                                    NULL,
+                                    L"\\pipe\\ntsvcs",
+                                    NULL,
+                                    &pszStringBinding);
+  if (status)
+  {
+    DPRINT1("RpcStringBindingCompose returned 0x%x\n", status);
+    return;
+  }
+
+  /* Set the binding handle that will be used to bind to the server. */
+  status = RpcBindingFromStringBindingW(pszStringBinding,
+                                        &BindingHandle);
+  if (status)
+  {
+    DPRINT1("RpcBindingFromStringBinding returned 0x%x\n", status);
+  }
+
+  status = RpcStringFreeW(&pszStringBinding);
+  if (status)
+  {
+    DPRINT1("RpcStringFree returned 0x%x\n", status);
+  }
+}
+
+
+#if 0
+static VOID
+HandleUnbind(VOID)
+{
+  RPC_STATUS status;
+
+  if (BindingHandle == NULL)
+    return;
+
+  status = RpcBindingFree(&BindingHandle);
+  if (status)
+  {
+    DPRINT1("RpcBindingFree returned 0x%x\n", status);
+  }
+}
+#endif
+
+
 /**********************************************************************
- *     ChangeServiceConfigA
+ *  ChangeServiceConfigA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 ChangeServiceConfigA(
-       SC_HANDLE       hService,
-       DWORD           dwServiceType,
-       DWORD           dwStartType,
-       DWORD           dwErrorControl,
-       LPCSTR          lpBinaryPathName,
-       LPCSTR          lpLoadOrderGroup,
-       LPDWORD         lpdwTagId,
-       LPCSTR          lpDependencies,
-       LPCSTR          lpServiceStartName,
-       LPCSTR          lpPassword,
-       LPCSTR          lpDisplayName 
-       )
+    SC_HANDLE   hService,
+    DWORD       dwServiceType,
+    DWORD       dwStartType,
+    DWORD       dwErrorControl,
+    LPCSTR      lpBinaryPathName,
+    LPCSTR      lpLoadOrderGroup,
+    LPDWORD     lpdwTagId,
+    LPCSTR      lpDependencies,
+    LPCSTR      lpServiceStartName,
+    LPCSTR      lpPassword,
+    LPCSTR      lpDisplayName)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("ChangeServiceConfigA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     ChangeServiceConfigW
+ *  ChangeServiceConfigW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 ChangeServiceConfigW(
-       SC_HANDLE       hService,
-       DWORD           dwServiceType,
-       DWORD           dwStartType,
-       DWORD           dwErrorControl,
-       LPCWSTR         lpBinaryPathName,
-       LPCWSTR         lpLoadOrderGroup,
-       LPDWORD         lpdwTagId,
-       LPCWSTR         lpDependencies,
-       LPCWSTR         lpServiceStartName,
-       LPCWSTR         lpPassword,
-       LPCWSTR         lpDisplayName 
-       )
+    SC_HANDLE   hService,
+    DWORD       dwServiceType,
+    DWORD       dwStartType,
+    DWORD       dwErrorControl,
+    LPCWSTR     lpBinaryPathName,
+    LPCWSTR     lpLoadOrderGroup,
+    LPDWORD     lpdwTagId,
+    LPCWSTR     lpDependencies,
+    LPCWSTR     lpServiceStartName,
+    LPCWSTR     lpPassword,
+    LPCWSTR     lpDisplayName)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("ChangeServiceConfigW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     CloseServiceHandle
+ *  CloseServiceHandle
+ *
+ * @implemented
  */
-BOOL 
-STDCALL
-CloseServiceHandle( SC_HANDLE hSCObject )
+BOOL STDCALL
+CloseServiceHandle(SC_HANDLE hSCObject)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+  DWORD dwError;
+
+  DPRINT("CloseServiceHandle() called\n");
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrCloseServiceHandle(BindingHandle,
+                                   (unsigned int)hSCObject);
+  if (dwError)
+  {
+    DPRINT1("ScmrCloseServiceHandle() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return FALSE;
+  }
+
+  DPRINT("CloseServiceHandle() done\n");
+
+  return TRUE;
 }
 
 
 /**********************************************************************
- *     ControlService
+ *  ControlService
+ *
+ * @unimplemented
  */
-BOOL
-STDCALL
-ControlService(
-       SC_HANDLE               hService,
-       DWORD                   dwControl,
-       LPSERVICE_STATUS        lpServiceStatus
-       )
+BOOL STDCALL
+ControlService(SC_HANDLE        hService,
+               DWORD            dwControl,
+               LPSERVICE_STATUS lpServiceStatus)
+{
+  DWORD dwError;
+
+  DPRINT("ControlService(%x, %x, %p)\n",
+         hService, dwControl, lpServiceStatus);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrControlService(BindingHandle,
+                               (unsigned int)hService,
+                               dwControl,
+                               lpServiceStatus);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrControlService() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return FALSE;
+  }
+
+  DPRINT("ControlService() done\n");
+
+  return TRUE;
+}
+
+
+/**********************************************************************
+ *  ControlServiceEx
+ *
+ * @unimplemented
+ */
+BOOL STDCALL
+ControlServiceEx(IN SC_HANDLE hService,
+                 IN DWORD dwControl,
+                 IN DWORD dwInfoLevel,
+                 IN OUT PVOID pControlParams)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("ControlServiceEx(0x%p, 0x%x, 0x%x, 0x%p) UNIMPLEMENTED!\n",
+            hService, dwControl, dwInfoLevel, pControlParams);
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
+
 /**********************************************************************
- *     CreateServiceA
+ *  CreateServiceA
+ *
+ * @unimplemented
  */
 SC_HANDLE
 STDCALL
 CreateServiceA(
-       SC_HANDLE       hSCManager,
-       LPCSTR          lpServiceName,
-       LPCSTR          lpDisplayName,
-       DWORD           dwDesiredAccess,
-       DWORD           dwServiceType,
-       DWORD           dwStartType,
-       DWORD           dwErrorControl,
-       LPCSTR          lpBinaryPathName,
-       LPCSTR          lpLoadOrderGroup,
-       LPDWORD         lpdwTagId,
-       LPCSTR          lpDependencies,
-       LPCSTR          lpServiceStartName,
-       LPCSTR          lpPassword
-       )
+    SC_HANDLE   hSCManager,
+    LPCSTR      lpServiceName,
+    LPCSTR      lpDisplayName,
+    DWORD       dwDesiredAccess,
+    DWORD       dwServiceType,
+    DWORD       dwStartType,
+    DWORD       dwErrorControl,
+    LPCSTR      lpBinaryPathName,
+    LPCSTR      lpLoadOrderGroup,
+    LPDWORD     lpdwTagId,
+    LPCSTR      lpDependencies,
+    LPCSTR      lpServiceStartName,
+    LPCSTR      lpPassword)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return NULL;
+    DPRINT1("CreateServiceA is unimplemented, but returning INVALID_HANDLE_VALUE instead of NULL\n");
+    return INVALID_HANDLE_VALUE;
 }
 
 
 /**********************************************************************
- *     CreateServiceW
+ *  CreateServiceW
+ *
+ * @unimplemented
  */
 SC_HANDLE
 STDCALL
 CreateServiceW(
-       SC_HANDLE       hSCManager,
-       LPCWSTR         lpServiceName,
-       LPCWSTR         lpDisplayName,
-       DWORD           dwDesiredAccess,
-       DWORD           dwServiceType,
-       DWORD           dwStartType,
-       DWORD           dwErrorControl,
-       LPCWSTR         lpBinaryPathName,
-       LPCWSTR         lpLoadOrderGroup,
-       LPDWORD         lpdwTagId,
-       LPCWSTR         lpDependencies,
-       LPCWSTR         lpServiceStartName,
-       LPCWSTR         lpPassword
-       )
+    SC_HANDLE   hSCManager,
+    LPCWSTR     lpServiceName,
+    LPCWSTR     lpDisplayName,
+    DWORD       dwDesiredAccess,
+    DWORD       dwServiceType,
+    DWORD       dwStartType,
+    DWORD       dwErrorControl,
+    LPCWSTR     lpBinaryPathName,
+    LPCWSTR     lpLoadOrderGroup,
+    LPDWORD     lpdwTagId,
+    LPCWSTR     lpDependencies,
+    LPCWSTR     lpServiceStartName,
+    LPCWSTR     lpPassword)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return NULL;
+    DPRINT1("CreateServiceW is unimplemented, but returning INVALID_HANDLE_VALUE instead of NULL\n");
+    return INVALID_HANDLE_VALUE;
 }
 
 
 /**********************************************************************
- *     DeleteService
+ *  DeleteService
+ *
+ * @implemented
  */
-BOOL
-STDCALL
-DeleteService( SC_HANDLE hService )
+BOOL STDCALL
+DeleteService(SC_HANDLE hService)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+  DWORD dwError;
+
+  DPRINT("DeleteService(%x)\n", hService);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrDeleteService(BindingHandle,
+                              (unsigned int)hService);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrDeleteService() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return FALSE;
+  }
+
+  return TRUE;
 }
 
 
 /**********************************************************************
- *     EnumDependentServicesA
+ *  EnumDependentServicesA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 EnumDependentServicesA(
-       SC_HANDLE               hService,
-       DWORD                   dwServiceState,
-       LPENUM_SERVICE_STATUSA  lpServices,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded,
-       LPDWORD                 lpServicesReturned
-       )
+    SC_HANDLE       hService,
+    DWORD           dwServiceState,
+    LPENUM_SERVICE_STATUSA  lpServices,
+    DWORD           cbBufSize,
+    LPDWORD         pcbBytesNeeded,
+    LPDWORD         lpServicesReturned)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumDependentServicesA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumDependentServicesW
+ *  EnumDependentServicesW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 EnumDependentServicesW(
-       SC_HANDLE               hService,
-       DWORD                   dwServiceState,
-       LPENUM_SERVICE_STATUSW  lpServices,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded,
-       LPDWORD                 lpServicesReturned
-       )
+    SC_HANDLE       hService,
+    DWORD           dwServiceState,
+    LPENUM_SERVICE_STATUSW  lpServices,
+    DWORD           cbBufSize,
+    LPDWORD         pcbBytesNeeded,
+    LPDWORD         lpServicesReturned)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumDependentServicesW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumServiceGroupW
+ *  EnumServiceGroupW
  *
- * (unknown)
+ * @unimplemented
  */
 BOOL
 STDCALL
 EnumServiceGroupW (
-       DWORD   Unknown0,
-       DWORD   Unknown1,
-       DWORD   Unknown2,
-       DWORD   Unknown3,
-       DWORD   Unknown4,
-       DWORD   Unknown5,
-       DWORD   Unknown6,
-       DWORD   Unknown7,
-       DWORD   Unknown8
-       )
+    DWORD   Unknown0,
+    DWORD   Unknown1,
+    DWORD   Unknown2,
+    DWORD   Unknown3,
+    DWORD   Unknown4,
+    DWORD   Unknown5,
+    DWORD   Unknown6,
+    DWORD   Unknown7,
+    DWORD   Unknown8)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumServiceGroupW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumServicesStatusA
+ *  EnumServicesStatusA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 EnumServicesStatusA (
-       SC_HANDLE               hSCManager,
-       DWORD                   dwServiceType,
-       DWORD                   dwServiceState,
-       LPENUM_SERVICE_STATUSA  lpServices,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded,
-       LPDWORD                 lpServicesReturned,
-       LPDWORD                 lpResumeHandle
-       )
+    SC_HANDLE               hSCManager,
+    DWORD                   dwServiceType,
+    DWORD                   dwServiceState,
+    LPENUM_SERVICE_STATUSA  lpServices,
+    DWORD                   cbBufSize,
+    LPDWORD                 pcbBytesNeeded,
+    LPDWORD                 lpServicesReturned,
+    LPDWORD                 lpResumeHandle)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumServicesStatusA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumServicesStatusExA
+ *  EnumServicesStatusExA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
-EnumServicesStatusExA(VOID)
+EnumServicesStatusExA(SC_HANDLE  hSCManager,
+  SC_ENUM_TYPE  InfoLevel,
+  DWORD  dwServiceType,
+  DWORD  dwServiceState,
+  LPBYTE  lpServices,
+  DWORD  cbBufSize,
+  LPDWORD  pcbBytesNeeded,
+  LPDWORD  lpServicesReturned,
+  LPDWORD  lpResumeHandle,
+  LPCSTR  pszGroupName)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumServicesStatusExA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumServicesStatusExW
+ *  EnumServicesStatusExW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
-EnumServicesStatusExW(VOID)
+EnumServicesStatusExW(SC_HANDLE  hSCManager,
+  SC_ENUM_TYPE  InfoLevel,
+  DWORD  dwServiceType,
+  DWORD  dwServiceState,
+  LPBYTE  lpServices,
+  DWORD  cbBufSize,
+  LPDWORD  pcbBytesNeeded,
+  LPDWORD  lpServicesReturned,
+  LPDWORD  lpResumeHandle,
+  LPCWSTR  pszGroupName)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumServicesStatusExW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     EnumServicesStatusW
+ *  EnumServicesStatusW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 EnumServicesStatusW(
-       SC_HANDLE               hSCManager,
-       DWORD                   dwServiceType,
-       DWORD                   dwServiceState,
-       LPENUM_SERVICE_STATUSW  lpServices,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded,
-       LPDWORD                 lpServicesReturned,
-       LPDWORD                 lpResumeHandle
-       )
+    SC_HANDLE               hSCManager,
+    DWORD                   dwServiceType,
+    DWORD                   dwServiceState,
+    LPENUM_SERVICE_STATUSW  lpServices,
+    DWORD                   cbBufSize,
+    LPDWORD                 pcbBytesNeeded,
+    LPDWORD                 lpServicesReturned,
+    LPDWORD                 lpResumeHandle)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("EnumServicesStatusW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     GetServiceDisplayNameA
+ *  GetServiceDisplayNameA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 GetServiceDisplayNameA(
-       SC_HANDLE       hSCManager,
-       LPCSTR          lpServiceName,
-       LPSTR           lpDisplayName,
-       LPDWORD         lpcchBuffer
-       )
+    SC_HANDLE   hSCManager,
+    LPCSTR      lpServiceName,
+    LPSTR       lpDisplayName,
+    LPDWORD     lpcchBuffer)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("GetServiceDisplayNameA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     GetServiceDisplayNameW
+ *  GetServiceDisplayNameW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 GetServiceDisplayNameW(
-       SC_HANDLE       hSCManager,
-       LPCWSTR         lpServiceName,
-       LPWSTR          lpDisplayName,
-       LPDWORD         lpcchBuffer
-       )
+    SC_HANDLE   hSCManager,
+    LPCWSTR     lpServiceName,
+    LPWSTR      lpDisplayName,
+    LPDWORD     lpcchBuffer)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("GetServiceDisplayNameW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     GetServiceKeyNameA
+ *  GetServiceKeyNameA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 GetServiceKeyNameA(
-       SC_HANDLE       hSCManager,
-       LPCSTR          lpDisplayName,
-       LPSTR           lpServiceName,
-       LPDWORD         lpcchBuffer
-       )
+    SC_HANDLE   hSCManager,
+    LPCSTR      lpDisplayName,
+    LPSTR       lpServiceName,
+    LPDWORD     lpcchBuffer)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("GetServiceKeyNameA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     GetServiceKeyNameW
+ *  GetServiceKeyNameW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 GetServiceKeyNameW(
-       SC_HANDLE       hSCManager,
-       LPCWSTR         lpDisplayName,
-       LPWSTR          lpServiceName,
-       LPDWORD         lpcchBuffer
-       )
+    SC_HANDLE   hSCManager,
+    LPCWSTR     lpDisplayName,
+    LPWSTR      lpServiceName,
+    LPDWORD     lpcchBuffer)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("GetServiceKeyNameW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
+
 /**********************************************************************
- *     LockServiceDatabase
+ *  LockServiceDatabase
+ *
+ * @implemented
  */
-SC_LOCK
-STDCALL
-LockServiceDatabase(
-       SC_HANDLE       hSCManager
-       )
+SC_LOCK STDCALL
+LockServiceDatabase(SC_HANDLE hSCManager)
 {
-       SetLastError (ERROR_CALL_NOT_IMPLEMENTED);
-       return NULL;
+  SC_LOCK hLock;
+  DWORD dwError;
+
+  DPRINT("LockServiceDatabase(%x)\n", hSCManager);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrLockServiceDatabase(BindingHandle,
+                                    (unsigned int)hSCManager,
+                                    (unsigned int *)&hLock);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrLockServiceDatabase() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return NULL;
+  }
+
+  DPRINT("hLock = %p\n", hLock);
+
+  return hLock;
 }
 
 
-/**********************************************************************
- *     OpenSCManagerA
- */
-SC_HANDLE STDCALL
-OpenSCManagerA(LPCSTR lpMachineName,
-              LPCSTR lpDatabaseName,
-              DWORD dwDesiredAccess)
-{
-  SC_HANDLE Handle;
-  UNICODE_STRING MachineNameW;
-  UNICODE_STRING DatabaseNameW;
-  ANSI_STRING MachineNameA;
-  ANSI_STRING DatabaseNameA;
-
-  RtlInitAnsiString(&MachineNameA, (LPSTR)lpMachineName);
-  RtlAnsiStringToUnicodeString(&MachineNameW,
-                               &MachineNameA,
-                               TRUE);
-  RtlInitAnsiString(&DatabaseNameA, (LPSTR)lpDatabaseName);
-  RtlAnsiStringToUnicodeString(&DatabaseNameW,
-                               &DatabaseNameA,
-                               TRUE);
-
-  Handle = OpenSCManagerW(MachineNameW.Buffer,
-                         DatabaseNameW.Buffer,
-                         dwDesiredAccess);
-
-  RtlFreeHeap(GetProcessHeap(),
-             0,
-             MachineNameW.Buffer);
-  RtlFreeHeap(GetProcessHeap(),
-             0,
-             DatabaseNameW.Buffer);
-
-  return(Handle);
-}
-
-
-/**********************************************************************
- *     OpenSCManagerW
- */
-SC_HANDLE STDCALL OpenSCManagerW(LPCWSTR lpMachineName,
-                                                                LPCWSTR lpDatabaseName,
-                                                                DWORD dwDesiredAccess)
-{
-       HANDLE hPipe;
-       DWORD dwMode;
-       DWORD dwWait;
-       BOOL fSuccess;
-       HANDLE hStartEvent;
-       LPWSTR lpszPipeName = L"\\\\.\\pipe\\Ntsvcs";
-       
-       if(lpMachineName == NULL || wcslen(lpMachineName) == 0)
-       {
-               if(lpDatabaseName != NULL && wcscmp(lpDatabaseName, SERVICES_ACTIVE_DATABASEW) != 0)
-               { return(NULL); }
-
-               // Only connect to scm when event "SvcctrlStartEvent_A3725DX" is signaled
-               hStartEvent = OpenEvent(SYNCHRONIZE, FALSE, _T("SvcctrlStartEvent_A3725DX"));
-               if(hStartEvent == NULL)
-               {
-                       SetLastError(ERROR_DATABASE_DOES_NOT_EXIST);
-                       return (NULL);
-               }
-               dwWait = WaitForSingleObject(hStartEvent, INFINITE);
-               if(dwWait == WAIT_FAILED)
-               {
-                       SetLastError(ERROR_ACCESS_DENIED);
-                       return (NULL);
-               }
-               CloseHandle(hStartEvent);
-               
-               // Try to open a named pipe; wait for it, if necessary
-               while(1)
-               {
-                       hPipe = CreateFileW(lpszPipeName,     // pipe name
-                               dwDesiredAccess,
-                               0,                // no sharing
-                               NULL,             // no security attributes
-                               OPEN_EXISTING,    // opens existing pipe
-                               0,                // default attributes
-                               NULL);            // no template file
-                       
-                       // Break if the pipe handle is valid
-                       if(hPipe != INVALID_HANDLE_VALUE)
-                               break;
-                       
-                       // Exit if an error other than ERROR_PIPE_BUSY occurs
-                       if(GetLastError()!= ERROR_PIPE_BUSY)
-                       { return(NULL); }
-                       
-                       // All pipe instances are busy, so wait for 20 seconds
-                       if(!WaitNamedPipeW(lpszPipeName, 20000))
-                       { return(NULL); }
-               }
-               
-               // The pipe connected; change to message-read mode
-               dwMode = PIPE_READMODE_MESSAGE;
-               fSuccess = SetNamedPipeHandleState(
-                       hPipe,    // pipe handle
-                       &dwMode,  // new pipe mode
-                       NULL,     // don't set maximum bytes
-                       NULL);    // don't set maximum time
-               if(!fSuccess)
-               {
-                       CloseHandle(hPipe);
-                       return(NULL);
-               }
-#if 0
-               // Send a message to the pipe server
-               lpvMessage = (argc > 1) ? argv[1] : "default message";
-               
-               fSuccess = WriteFile(
-                       hPipe,                  // pipe handle
-                       lpvMessage,             // message
-                       strlen(lpvMessage) + 1, // message length
-                       &cbWritten,             // bytes written
-                       NULL);                  // not overlapped
-               if(!fSuccess)
-               {
-                       CloseHandle(hPipe);
-                       return(NULL);
-               }
-               
-               do
-               {
-                       // Read from the pipe
-                       fSuccess = ReadFile(
-                               hPipe,    // pipe handle
-                               chBuf,    // buffer to receive reply
-                               512,      // size of buffer
-                               &cbRead,  // number of bytes read
-                               NULL);    // not overlapped
-                       
-                       if(! fSuccess && GetLastError() != ERROR_MORE_DATA)
-                               break;
-                       
-                       // Reply from the pipe is written to STDOUT.
-                       if(!WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), chBuf, cbRead, &cbWritten, NULL))
-                               break;
-               } while(!fSuccess);  // repeat loop if ERROR_MORE_DATA
-               
-               //CloseHandle(hPipe);
-#endif
-               return(hPipe);
-       }
-       else
-       {
-               /* FIXME: Connect to remote SCM */
-               return(NULL);
-       }
+static VOID
+WaitForSCManager(VOID)
+{
+  HANDLE hEvent;
+
+  DPRINT("WaitForSCManager() called\n");
+
+  /* Try to open the existing event */
+  hEvent = OpenEventW(SYNCHRONIZE,
+                      FALSE,
+                      L"SvcctrlStartEvent_A3725DX");
+  if (hEvent == NULL)
+  {
+    if (GetLastError() != ERROR_FILE_NOT_FOUND)
+      return;
+
+    /* Try to create a new event */
+    hEvent = CreateEventW(NULL,
+                          TRUE,
+                          FALSE,
+                          L"SvcctrlStartEvent_A3725DX");
+    if (hEvent == NULL)
+    {
+      /* Try to open the existing event again */
+      hEvent = OpenEventW(SYNCHRONIZE,
+                          FALSE,
+                          L"SvcctrlStartEvent_A3725DX");
+      if (hEvent == NULL)
+        return;
+    }
+  }
+
+  /* Wait for 3 minutes */
+  WaitForSingleObject(hEvent, 180000);
+  CloseHandle(hEvent);
+
+  DPRINT("ScmWaitForSCManager() done\n");
 }
 
 
 /**********************************************************************
- *     OpenServiceA
+ *  OpenSCManagerA
+ *
+ * @implemented
  */
 SC_HANDLE STDCALL
-OpenServiceA(SC_HANDLE hSCManager,
-            LPCSTR  lpServiceName,
-            DWORD dwDesiredAccess)
+OpenSCManagerA(LPCSTR lpMachineName,
+               LPCSTR lpDatabaseName,
+               DWORD dwDesiredAccess)
 {
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return(NULL);
+  SC_HANDLE hScm = NULL;
+  DWORD dwError;
+
+  DPRINT("OpenSCManagerA(%s, %s, %lx)\n",
+         lpMachineName, lpDatabaseName, dwDesiredAccess);
+
+  WaitForSCManager();
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrOpenSCManagerA(BindingHandle,
+                               (LPSTR)lpMachineName,
+                               (LPSTR)lpDatabaseName,
+                               dwDesiredAccess,
+                               (unsigned int*)&hScm);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrOpenSCManagerA() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return NULL;
+  }
+
+  DPRINT("hScm = %p\n", hScm);
+
+  return hScm;
 }
 
 
 /**********************************************************************
- *     OpenServiceW
+ *  OpenSCManagerW
+ *
+ * @implemented
  */
-SC_HANDLE
-STDCALL
-OpenServiceW(
-       SC_HANDLE       hSCManager,
-       LPCWSTR         lpServiceName,
-       DWORD           dwDesiredAccess
-       )
+SC_HANDLE STDCALL
+OpenSCManagerW(LPCWSTR lpMachineName,
+               LPCWSTR lpDatabaseName,
+               DWORD dwDesiredAccess)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return NULL;
+  SC_HANDLE hScm = NULL;
+  DWORD dwError;
+
+  DPRINT("OpenSCManagerW(%S, %S, %lx)\n",
+         lpMachineName, lpDatabaseName, dwDesiredAccess);
+
+  WaitForSCManager();
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrOpenSCManagerW(BindingHandle,
+                               (LPWSTR)lpMachineName,
+                               (LPWSTR)lpDatabaseName,
+                               dwDesiredAccess,
+                               (unsigned int*)&hScm);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrOpenSCManagerW() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return NULL;
+  }
+
+  DPRINT("hScm = %p\n", hScm);
+
+  return hScm;
 }
 
 
 /**********************************************************************
- *     PrivilegedServiceAuditAlarmA
+ *  OpenServiceA
+ *
+ * @implemented
  */
-BOOL
-STDCALL
-PrivilegedServiceAuditAlarmA(
-       LPCSTR          SubsystemName,
-       LPCSTR          ServiceName,
-       HANDLE          ClientToken,
-       PPRIVILEGE_SET  Privileges,
-       BOOL            AccessGranted 
-       )
+SC_HANDLE STDCALL
+OpenServiceA(SC_HANDLE hSCManager,
+             LPCSTR lpServiceName,
+             DWORD dwDesiredAccess)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+  SC_HANDLE hService = NULL;
+  DWORD dwError;
+
+  DPRINT("OpenServiceA(%p, %s, %lx)\n",
+         hSCManager, lpServiceName, dwDesiredAccess);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrOpenServiceA(BindingHandle,
+                             (unsigned int)hSCManager,
+                             (LPSTR)lpServiceName,
+                             dwDesiredAccess,
+                             (unsigned int*)&hService);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrOpenServiceA() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return NULL;
+  }
+
+  DPRINT("hService = %p\n", hService);
+
+  return hService;
 }
 
 
 /**********************************************************************
- *     PrivilegedServiceAuditAlarmW
+ *  OpenServiceW
+ *
+ * @implemented
  */
-BOOL
-STDCALL
-PrivilegedServiceAuditAlarmW(
-       LPCWSTR         SubsystemName,
-       LPCWSTR         ServiceName,
-       HANDLE          ClientToken,
-       PPRIVILEGE_SET  Privileges,
-       BOOL            AccessGranted 
-       )
+SC_HANDLE STDCALL
+OpenServiceW(SC_HANDLE hSCManager,
+             LPCWSTR lpServiceName,
+             DWORD dwDesiredAccess)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return 1;
+  SC_HANDLE hService = NULL;
+  DWORD dwError;
+
+  DPRINT("OpenServiceW(%p, %S, %lx)\n",
+         hSCManager, lpServiceName, dwDesiredAccess);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrOpenServiceW(BindingHandle,
+                             (unsigned int)hSCManager,
+                             (LPWSTR)lpServiceName,
+                             dwDesiredAccess,
+                             (unsigned int*)&hService);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrOpenServiceW() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return NULL;
+  }
+
+  DPRINT("hService = %p\n", hService);
+
+  return hService;
 }
 
 
 /**********************************************************************
- *     QueryServiceConfigA
+ *  QueryServiceConfigA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 QueryServiceConfigA(
-       SC_HANDLE               hService,
-       LPQUERY_SERVICE_CONFIGA lpServiceConfig,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded
-       )
+    SC_HANDLE       hService,
+    LPQUERY_SERVICE_CONFIGA lpServiceConfig,
+    DWORD           cbBufSize,
+    LPDWORD         pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceConfigA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     QueryServiceConfigW
+ *  QueryServiceConfigW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 QueryServiceConfigW(
-       SC_HANDLE               hService,
-       LPQUERY_SERVICE_CONFIGW lpServiceConfig,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded
-       )
+    SC_HANDLE       hService,
+    LPQUERY_SERVICE_CONFIGW lpServiceConfig,
+    DWORD                   cbBufSize,
+    LPDWORD                 pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceConfigW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     QueryServiceLockStatusA
+ *  QueryServiceLockStatusA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 QueryServiceLockStatusA(
-       SC_HANDLE                       hSCManager,
-       LPQUERY_SERVICE_LOCK_STATUSA    lpLockStatus,
-       DWORD                           cbBufSize,
-       LPDWORD                         pcbBytesNeeded
-       )
+    SC_HANDLE           hSCManager,
+    LPQUERY_SERVICE_LOCK_STATUSA    lpLockStatus,
+    DWORD               cbBufSize,
+    LPDWORD             pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceLockStatusA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     QueryServiceLockStatusW
+ *  QueryServiceLockStatusW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 QueryServiceLockStatusW(
-       SC_HANDLE                       hSCManager,
-       LPQUERY_SERVICE_LOCK_STATUSW    lpLockStatus,
-       DWORD                           cbBufSize,
-       LPDWORD                         pcbBytesNeeded
-       )
+    SC_HANDLE           hSCManager,
+    LPQUERY_SERVICE_LOCK_STATUSW    lpLockStatus,
+    DWORD               cbBufSize,
+    LPDWORD             pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceLockStatusW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     QueryServiceObjectSecurity
+ *  QueryServiceObjectSecurity
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 QueryServiceObjectSecurity(
-       SC_HANDLE               hService,
-       SECURITY_INFORMATION    dwSecurityInformation,
-       PSECURITY_DESCRIPTOR    lpSecurityDescriptor,
-       DWORD                   cbBufSize,
-       LPDWORD                 pcbBytesNeeded
-       )
+    SC_HANDLE       hService,
+    SECURITY_INFORMATION    dwSecurityInformation,
+    PSECURITY_DESCRIPTOR    lpSecurityDescriptor,
+    DWORD           cbBufSize,
+    LPDWORD         pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceObjectSecurity is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     QueryServiceStatus
+ *  QueryServiceStatus
+ *
+ * @implemented
  */
-BOOL
-STDCALL
-QueryServiceStatus(
-       SC_HANDLE               hService,
-       LPSERVICE_STATUS        lpServiceStatus
-       )
+BOOL STDCALL
+QueryServiceStatus(SC_HANDLE hService,
+                   LPSERVICE_STATUS lpServiceStatus)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+  DWORD dwError;
+
+  DPRINT("QueryServiceStatus(%p, %p)\n",
+         hService, lpServiceStatus);
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrQueryServiceStatus(BindingHandle,
+                                   (unsigned int)hService,
+                                   lpServiceStatus);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrQueryServiceStatus() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return FALSE;
+  }
+
+  return TRUE;
 }
 
 
 /**********************************************************************
- *     QueryServiceStatusEx
+ *  QueryServiceStatusEx
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
-QueryServiceStatusEx(VOID)
+QueryServiceStatusEx(SC_HANDLE  hService,
+  SC_STATUS_TYPE  InfoLevel,
+  LPBYTE  lpBuffer,
+  DWORD  cbBufSize,
+  LPDWORD  pcbBytesNeeded)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("QueryServiceStatusEx is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     StartServiceA
+ *  StartServiceA
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 StartServiceA(
-       SC_HANDLE       hService,
-       DWORD           dwNumServiceArgs,
-       LPCSTR          *lpServiceArgVectors
-       )
+    SC_HANDLE   hService,
+    DWORD       dwNumServiceArgs,
+    LPCSTR      *lpServiceArgVectors)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("StartServiceA is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
-
-
 /**********************************************************************
- *     StartServiceW
+ *  StartServiceW
+ *
+ * @unimplemented
  */
 BOOL
 STDCALL
 StartServiceW(
-       SC_HANDLE       hService,
-       DWORD           dwNumServiceArgs,
-       LPCWSTR         *lpServiceArgVectors
-       )
+    SC_HANDLE   hService,
+    DWORD       dwNumServiceArgs,
+    LPCWSTR     *lpServiceArgVectors)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+    DPRINT1("StartServiceW is unimplemented\n");
+    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+    return FALSE;
 }
 
 
 /**********************************************************************
- *     UnlockServiceDatabase
+ *  UnlockServiceDatabase
+ *
+ * @implemented
  */
-BOOL
-STDCALL
-UnlockServiceDatabase(
-       SC_LOCK ScLock
-       )
+BOOL STDCALL
+UnlockServiceDatabase(SC_LOCK ScLock)
 {
-       SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-       return FALSE;
+  DWORD dwError;
+
+#if 0
+  DPRINT("UnlockServiceDatabase(%x)\n", hSCManager);
+#endif
+
+  HandleBind();
+
+  /* Call to services.exe using RPC */
+  dwError = ScmrUnlockServiceDatabase(BindingHandle,
+                                      (unsigned int)ScLock);
+  if (dwError != ERROR_SUCCESS)
+  {
+    DPRINT1("ScmrUnlockServiceDatabase() failed (Error %lu)\n", dwError);
+    SetLastError(dwError);
+    return FALSE;
+  }
+
+  return TRUE;
 }
 
 
+void __RPC_FAR * __RPC_USER midl_user_allocate(size_t len)
+{
+  return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
+}
+
+void __RPC_USER midl_user_free(void __RPC_FAR * ptr)
+{
+  HeapFree(GetProcessHeap(), 0, ptr);
+}
+
 /* EOF */