Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

2806 lines
85 KiB

/*++
Copyright (c) 1990-1992 Microsoft Corporation
Module Name:
scapi.c
Abstract:
Contains the Service-related API that are implemented solely in
DLL form. These include:
StartServiceCtrlDispatcherA
StartServiceCtrlDispatcherW
RegisterServiceCtrlHandlerW
RegisterServiceCtrlHandlerA
RegisterServiceCtrlHandlerExW
RegisterServiceCtrlHandlerExA
This file also contains the following local support routines:
ScDispatcherLoop
ScCreateDispatchTableW
ScCreateDispatchTableA
ScReadServiceParms
ScConnectServiceController
ScExpungeMessage
ScGetPipeInput
ScGetDispatchEntry
ScNormalizeCmdLineArgs
ScSendResponse
ScSvcctrlThreadW
ScSvcctrlThreadA
RegisterServiceCtrlHandlerHelp
Author:
Dan Lafferty (danl) 09 Apr-1991
Environment:
User Mode -Win32
Revision History:
12-May-1999 jschwart
Convert SERVICE_STATUS_HANDLE to a context handle to fix security
hole (any service can call SetServiceStatus with another service's
handle and succeed)
10-May-1999 jschwart
Create a separate named pipe per service to fix security hole (any
process could flood the pipe since the name was well-known -- pipe
access is now limited to the service account and LocalSystem)
10-Mar-1998 jschwart
Add code to allow services to receive Plug-and-Play control messages
and unpack the message arguments from the pipe
30-Sep-1997 jschwart
StartServiceCtrlDispatcher: If this function [A or W] has already been
called from within this process, return ERROR_SERVICE_ALREADY_RUNNING.
Otherwise, can be destructive (e.g., overwrite AnsiFlag, etc.)
06-Aug-1997 jschwart
ScDispatcherLoop: If the service is processing a shutdown command from
the SCM, it no longer writes the status back to the SCM since the SCM is
now using WriteFile on system shutdown (see control.cxx for more info).
03-Jun-1996 AnirudhS
ScGetPipeInput: If the message received from the service controller
is not a SERVICE_CONTROL_START message, don't allocate space for the
arguments, since there are none, and since that space never gets freed.
22-Sep-1995 AnirudhS
Return codes from InitializeStatusBinding were not being handled
correctly; success was sometimes reported on failure. Fixed this.
12-Aug-1993 Danl
ScGetDispatchEntry: When the first entry in the table is marked as
OwnProcess, then this function should just return the pointer to the
top of the table. It should ignore the ServiceName. In all cases,
when the service is started as an OWN_PROCESS, only the first entry
in the dispath table should be used.
04-Aug-1992 Danl
When starting a service, always pass the service name as the
first parameter in the argument list.
27-May-1992 JohnRo
RAID 9829: winsvc.h and related file cleanup.
09 Apr-1991 danl
created
--*/
//
// INCLUDES
//
#include <scpragma.h>
extern "C"
{
#include <nt.h> // DbgPrint prototype
#include <ntrtl.h> // DbgPrint prototype
#include <nturtl.h> // needed for winbase.h
}
#include <rpc.h> // DataTypes and runtime APIs
#include <windef.h> // windows types needed for winbase.h
#include <winbase.h> // CreateFile
#include <winuser.h> // wsprintf()
#include <winreg.h> // RegOpenKeyEx / RegQueryValueEx
#include <string.h> // strcmp
#include <stdlib.h> // wide character c runtimes.
#include <tstr.h> // WCSSIZE().
#include <winsvc.h> // public Service Controller Interface.
#include "scbind.h" // InitializeStatusBinding
#include <valid.h> // MAX_SERVICE_NAME_LENGTH
#include <control.h> // CONTROL_PIPE_NAME
#include <scdebug.h> // STATIC
#include <sclib.h> // ScConvertToUnicode
//
// Internal Dispatch Table.
//
//
// Bit flags for the dispatch table's dwFlags field
//
#define SERVICE_OWN_PROCESS 0x00000001
#define SERVICE_EX_HANDLER 0x00000002
typedef union _START_ROUTINE_TYPE {
LPSERVICE_MAIN_FUNCTIONW U; // unicode type
LPSERVICE_MAIN_FUNCTIONA A; // ansi type
} START_ROUTINE_TYPE, *LPSTART_ROUTINE_TYPE;
typedef union _HANDLER_FUNCTION_TYPE {
LPHANDLER_FUNCTION Regular; // Regular version
LPHANDLER_FUNCTION_EX Ex; // Extended version
} HANDLER_FUNCTION_TYPE, *LPHANDLER_FUNCTION_TYPE;
typedef struct _INTERNAL_DISPATCH_ENTRY {
LPWSTR ServiceName;
LPWSTR ServiceRealName; // In case the names are different
START_ROUTINE_TYPE ServiceStartRoutine;
HANDLER_FUNCTION_TYPE ControlHandler;
SC_HANDLE StatusHandle;
DWORD dwFlags;
PVOID pContext;
} INTERNAL_DISPATCH_ENTRY, *LPINTERNAL_DISPATCH_ENTRY;
//
// This structure is passed to the internal
// startup thread which calls the real user
// startup routine with argv, argc parameters.
//
typedef struct _THREAD_STARTUP_PARMSW {
DWORD NumArgs;
LPSERVICE_MAIN_FUNCTIONW ServiceStartRoutine;
LPWSTR VectorTable;
} THREAD_STARTUP_PARMSW, *LPTHREAD_STARTUP_PARMSW;
typedef struct _THREAD_STARTUP_PARMSA {
DWORD NumArgs;
LPSERVICE_MAIN_FUNCTIONA ServiceStartRoutine;
LPSTR VectorTable;
} THREAD_STARTUP_PARMSA, *LPTHREAD_STARTUP_PARMSA;
//
// This structure contains the arguments passed
// to a service's extended control handler
//
typedef struct _HANDLEREX_PARMS {
DWORD dwEventType;
LPVOID lpEventData;
} HANDLEREX_PARMS, *LPHANDLEREX_PARMS;
//
// This union contains the arguments to the service
// passed from the server via named pipe
//
typedef union _SERVICE_PARAMS {
THREAD_STARTUP_PARMSW ThreadStartupParms;
HANDLEREX_PARMS HandlerExParms;
} SERVICE_PARAMS, *LPSERVICE_PARAMS;
//
// The following is the amount of time we will wait for the named pipe
// to become available from the Service Controller.
//
#ifdef DEBUG
#define CONTROL_WAIT_PERIOD NMPWAIT_WAIT_FOREVER
#else
#define CONTROL_WAIT_PERIOD 15000 // 15 seconds
#endif
//
// This is the number of times we will continue to loop when pipe read
// failures occur. After this many tries, we cease to read the pipe.
//
#define MAX_RETRY_COUNT 30
//
// Globals
//
LPINTERNAL_DISPATCH_ENTRY DispatchTable=NULL; // table head.
//
// This flag is set to TRUE if the control dispatcher is to support
// ANSI calls. Otherwise the flag is set to FALSE.
//
BOOL AnsiFlag = FALSE;
//
// This variable makes sure StartServiceCtrlDispatcher[A,W] doesn't
// get called twice by the same process, since this is destructive.
// It is initialized to 0 by the linker
//
LONG g_fCalledBefore;
//
// Are we running in the security process?
//
BOOL g_fIsSecProc;
#if defined(_X86_)
//
// Are we running inside a Wow64 process (on Win64)
//
BOOL g_fWow64Process = FALSE;
#endif
//
// Internal Functions
//
DWORD
ScCreateDispatchTableW(
IN CONST SERVICE_TABLE_ENTRYW *UserDispatchTable,
OUT LPINTERNAL_DISPATCH_ENTRY *DispatchTablePtr
);
DWORD
ScCreateDispatchTableA(
IN CONST SERVICE_TABLE_ENTRYA *UserDispatchTable,
OUT LPINTERNAL_DISPATCH_ENTRY *DispatchTablePtr
);
DWORD
ScReadServiceParms(
IN LPCTRL_MSG_HEADER Msg,
IN DWORD dwNumBytesRead,
OUT LPBYTE *ppServiceParams,
OUT LPBYTE *ppTempArgPtr,
OUT LPDWORD lpdwRemainingArgBytes
);
VOID
ScDispatcherLoop(
IN HANDLE PipeHandle,
IN LPCTRL_MSG_HEADER Msg,
IN DWORD dwBufferSize
);
DWORD
ScConnectServiceController (
OUT LPHANDLE pipeHandle
);
VOID
ScExpungeMessage(
IN HANDLE PipeHandle
);
DWORD
ScGetPipeInput (
IN HANDLE PipeHandle,
IN OUT LPCTRL_MSG_HEADER Msg,
IN DWORD dwBufferSize,
OUT LPSERVICE_PARAMS *ppServiceParams
);
DWORD
ScGetDispatchEntry (
OUT LPINTERNAL_DISPATCH_ENTRY *DispatchEntry,
IN LPWSTR ServiceName
);
VOID
ScNormalizeCmdLineArgs(
IN OUT LPCTRL_MSG_HEADER Msg,
IN OUT LPTHREAD_STARTUP_PARMSW ThreadStartupParms
);
VOID
ScSendResponse (
IN HANDLE pipeHandle,
IN DWORD Response,
IN DWORD dwHandlerRetVal
);
DWORD
ScSvcctrlThreadW(
IN LPTHREAD_STARTUP_PARMSW lpThreadStartupParms
);
DWORD
ScSvcctrlThreadA(
IN LPTHREAD_STARTUP_PARMSA lpThreadStartupParms
);
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerHelp (
IN LPCWSTR ServiceName,
IN HANDLER_FUNCTION_TYPE ControlHandler,
IN PVOID pContext,
IN DWORD dwFlags
);
#if defined(_X86_)
//
// Detect if the current process is a 32-bit process running on Win64.
//
VOID DetectWow64Process()
{
NTSTATUS NtStatus;
PVOID Peb32;
NtStatus = NtQueryInformationProcess(NtCurrentProcess(),
ProcessWow64Information,
&Peb32,
sizeof(Peb32),
NULL);
if (NT_SUCCESS(NtStatus) && (Peb32 != NULL))
{
g_fWow64Process = TRUE;
}
}
#endif
extern "C" {
//
// Private function for lsass.exe that tells us we're running
// in the security process
//
VOID
I_ScIsSecurityProcess(
VOID
)
{
g_fIsSecProc = TRUE;
}
//
// Private function for PnP that looks up a service's REAL
// name given its context handle
//
DWORD
I_ScPnPGetServiceName(
IN SERVICE_STATUS_HANDLE hServiceStatus,
OUT LPWSTR lpServiceName,
IN DWORD cchBufSize
)
{
DWORD dwError = ERROR_SERVICE_NOT_IN_EXE;
ASSERT(cchBufSize >= MAX_SERVICE_NAME_LENGTH);
//
// Search the dispatch table.
//
if (DispatchTable != NULL)
{
LPINTERNAL_DISPATCH_ENTRY dispatchEntry;
for (dispatchEntry = DispatchTable;
dispatchEntry->ServiceName != NULL;
dispatchEntry++)
{
//
// Note: SC_HANDLE and SERVICE_STATUS_HANDLE were originally
// different handle types -- they are now the same as
// per the fix for bug #120359 (SERVICE_STATUS_HANDLE
// fix outlined in the file comments above), so this
// cast is OK.
//
if (dispatchEntry->StatusHandle == (SC_HANDLE)hServiceStatus)
{
ASSERT(dispatchEntry->ServiceRealName != NULL);
ASSERT(wcslen(dispatchEntry->ServiceRealName) < cchBufSize);
wcscpy(lpServiceName, dispatchEntry->ServiceRealName);
dwError = NO_ERROR;
break;
}
}
}
return dwError;
}
} // extern "C"
BOOL
WINAPI
StartServiceCtrlDispatcherA (
IN CONST SERVICE_TABLE_ENTRYA * lpServiceStartTable
)
/*++
Routine Description:
This function provides the ANSI interface for the
StartServiceCtrlDispatcher function.
Arguments:
Return Value:
--*/
{
DWORD status;
NTSTATUS ntstatus;
HANDLE pipeHandle;
//
// Make sure this is the only time the control dispatcher is being called
//
if (InterlockedExchange(&g_fCalledBefore, 1) == 1) {
//
// Problem -- the control dispatcher was already called from this process
//
SetLastError(ERROR_SERVICE_ALREADY_RUNNING);
return(FALSE);
}
//
// Set the AnsiFlag to indicate that the control dispatcher must support
// ansi function calls only.
//
AnsiFlag = TRUE;
//
// Create an internal DispatchTable.
//
status = ScCreateDispatchTableA(
(LPSERVICE_TABLE_ENTRYA)lpServiceStartTable,
(LPINTERNAL_DISPATCH_ENTRY *)&DispatchTable);
if (status != NO_ERROR) {
SetLastError(status);
return(FALSE);
}
//
// Allocate a buffer big enough to contain at least the control message
// header and a service name. This ensures that if the message is not
// a message with arguments, it can be read in a single ReadFile.
//
BYTE bPipeMessageHeader[sizeof(CTRL_MSG_HEADER) +
(MAX_SERVICE_NAME_LENGTH+1) * sizeof(WCHAR)];
//
// Connect to the Service Controller
//
status = ScConnectServiceController (&pipeHandle);
if (status != NO_ERROR) {
goto CleanExit;
}
//
// Initialize the binding for the status interface (NetServiceStatus).
//
SCC_LOG(TRACE,"Initialize the Status binding\n",0);
ntstatus = InitializeStatusBinding();
if (ntstatus != STATUS_SUCCESS) {
status = RtlNtStatusToDosError(ntstatus);
CloseHandle(pipeHandle);
goto CleanExit;
}
//
// Enter the dispatcher loop where we service control requests until
// all services in the service table have terminated.
//
ScDispatcherLoop(pipeHandle,
(LPCTRL_MSG_HEADER)&bPipeMessageHeader,
sizeof(bPipeMessageHeader));
CloseHandle(pipeHandle);
CleanExit:
//
// Clean up the dispatch table. Since we created unicode versions
// of all the service names, in ScCreateDispatchTableA, we now need to
// free them.
//
if (DispatchTable != NULL) {
LPINTERNAL_DISPATCH_ENTRY dispatchEntry;
//
// If they're different, it's because we allocated the real name.
// Only check the first entry since this can only happen in the
// SERVICE_OWN_PROCESS case
//
if (DispatchTable->ServiceName != DispatchTable->ServiceRealName) {
LocalFree(DispatchTable->ServiceRealName);
}
//
// Do not free the dispatch table and the service name field if this
// API is successful. This is because after exiting this API successfully on the last stop
// service, a service can still be in the SetServiceStatus API at ScRemoveDispatchEntry.
// That function walks the dispatch table and touches the ServiceName and StatusHandle
// fields in the table.
//
if (status != NO_ERROR) {
for (dispatchEntry = DispatchTable;
dispatchEntry->ServiceName != NULL;
dispatchEntry++) {
LocalFree(dispatchEntry->ServiceName);
}
LocalFree(DispatchTable);
}
}
if (status != NO_ERROR) {
SetLastError(status);
return(FALSE);
}
return(TRUE);
}
BOOL
WINAPI
StartServiceCtrlDispatcherW (
IN CONST SERVICE_TABLE_ENTRYW * lpServiceStartTable
)
/*++
Routine Description:
This is the Control Dispatcher thread. We do not return from this
function call until the Control Dispatcher is told to shut down.
The Control Dispatcher is responsible for connecting to the Service
Controller's control pipe, and receiving messages from that pipe.
The Control Dispatcher then dispatches the control messages to the
correct control handling routine.
Arguments:
lpServiceStartTable - This is a pointer to the top of a service dispatch
table that the service main process passes in. Each table entry
contains pointers to the ServiceName, and the ServiceStartRotuine.
Return Value:
NO_ERROR - The Control Dispatcher successfully terminated.
ERROR_INVALID_DATA - The specified dispatch table does not contain
entries in the proper format.
ERROR_FAILED_SERVICE_CONTROLLER_CONNECT - The Control Dispatcher
could not connect with the Service Controller.
ERROR_SERVICE_ALREADY_RUNNING - The function has already been called
from within the current process
--*/
{
DWORD status;
NTSTATUS ntStatus;
HANDLE pipeHandle;
//
// Make sure this is the only time the control dispatcher is being called
//
if (InterlockedExchange(&g_fCalledBefore, 1) == 1) {
//
// Problem -- the control dispatcher was already called from this process
//
SetLastError(ERROR_SERVICE_ALREADY_RUNNING);
return(FALSE);
}
//
// Create the Real Dispatch Table
//
__try {
status = ScCreateDispatchTableW((LPSERVICE_TABLE_ENTRYW)lpServiceStartTable, &DispatchTable);
}
__except (EXCEPTION_EXECUTE_HANDLER) {
status = GetExceptionCode();
if (status != EXCEPTION_ACCESS_VIOLATION) {
SCC_LOG(ERROR,"StartServiceCtrlDispatcherW:Unexpected Exception 0x%lx\n",status);
}
}
if (status != NO_ERROR) {
SetLastError(status);
return(FALSE);
}
//
// Allocate a buffer big enough to contain at least the control message
// header and a service name. This ensures that if the message is not
// a message with arguments, it can be read in a single ReadFile.
//
BYTE bPipeMessageHeader[sizeof(CTRL_MSG_HEADER) +
(MAX_SERVICE_NAME_LENGTH+1) * sizeof(WCHAR)];
//
// Connect to the Service Controller
//
status = ScConnectServiceController(&pipeHandle);
if (status != NO_ERROR) {
//
// If they're different, it's because we allocated the real name.
// Only check the first entry since this can only happen in the
// SERVICE_OWN_PROCESS case
//
if (DispatchTable->ServiceName != DispatchTable->ServiceRealName) {
LocalFree(DispatchTable->ServiceRealName);
}
LocalFree(DispatchTable);
SetLastError(status);
return(FALSE);
}
//
// Initialize the binding for the status interface (NetServiceStatus).
//
SCC_LOG(TRACE,"Initialize the Status binding\n",0);
ntStatus = InitializeStatusBinding();
if (ntStatus != STATUS_SUCCESS) {
status = RtlNtStatusToDosError(ntStatus);
CloseHandle(pipeHandle);
//
// If they're different, it's because we allocated the real name.
// Only check the first entry since this can only happen in the
// SERVICE_OWN_PROCESS case
//
if (DispatchTable->ServiceName != DispatchTable->ServiceRealName) {
LocalFree(DispatchTable->ServiceRealName);
}
LocalFree(DispatchTable);
SetLastError(status);
return(FALSE);
}
//
// Enter the dispatcher loop where we service control requests until
// all services in the service table have terminated.
//
ScDispatcherLoop(pipeHandle,
(LPCTRL_MSG_HEADER)&bPipeMessageHeader,
sizeof(bPipeMessageHeader));
CloseHandle(pipeHandle);
//
// If they're different, it's because we allocated the real name.
// Only check the first entry since this can only happen in the
// SERVICE_OWN_PROCESS case
//
if (DispatchTable->ServiceName != DispatchTable->ServiceRealName) {
LocalFree(DispatchTable->ServiceRealName);
}
return(TRUE);
}
VOID
ScDispatcherLoop(
IN HANDLE PipeHandle,
IN LPCTRL_MSG_HEADER Msg,
IN DWORD dwBufferSize
)
/*++
Routine Description:
This is the input loop that the Control Dispatcher stays in through-out
its life. Only two types of events will cause us to leave this loop:
1) The service controller instructed the dispatcher to exit.
2) The dispatcher can no longer communicate with the the
service controller.
Arguments:
PipeHandle: This is a handle to the pipe over which control
requests are received.
Return Value:
none
--*/
{
DWORD status;
DWORD controlStatus;
BOOL continueDispatch;
LPWSTR serviceName = NULL;
LPSERVICE_PARAMS lpServiceParams = NULL;
LPTHREAD_START_ROUTINE threadAddress = NULL;
LPVOID threadParms = NULL;
LPTHREAD_STARTUP_PARMSA lpspAnsiParms;
LPINTERNAL_DISPATCH_ENTRY dispatchEntry = NULL;
DWORD threadId;
HANDLE threadHandle;
DWORD i;
DWORD errorCount = 0;
DWORD dwHandlerRetVal = NO_ERROR;
BOOL fCreatedThread;
BOOL fOpenedService;
//
// Input Loop
//
continueDispatch = TRUE;
#if defined(_X86_)
//
// Detect if this is a Wow64 Process ?
//
DetectWow64Process();
#endif
do
{
status = NO_ERROR;
fCreatedThread = FALSE;
fOpenedService = FALSE;
//
// Wait for input
//
controlStatus = ScGetPipeInput(PipeHandle,
Msg,
dwBufferSize,
&lpServiceParams);
//
// If we received good input, check to see if we are to shut down
// the ControlDispatcher. If not, then obtain the dispatchEntry
// from the dispatch table.
//
if (controlStatus == NO_ERROR)
{
//
// Clear the error count
//
errorCount = 0;
serviceName = (LPWSTR) ((LPBYTE)Msg + Msg->ServiceNameOffset);
SCC_LOG(TRACE, "Read from pipe succeeded for service %ws\n", serviceName);
if ((serviceName[0] == L'\0') &&
(Msg->OpCode == SERVICE_STOP))
{
//
// The Dispatcher is being asked to shut down.
// (security check not required for this operation)
// although perhaps it would be a good idea to verify
// that the request came from the Service Controller.
//
controlStatus = NO_ERROR;
continueDispatch = FALSE;
}
else
{
dispatchEntry = DispatchTable;
if (Msg->OpCode == SERVICE_CONTROL_START_OWN)
{
dispatchEntry->dwFlags |= SERVICE_OWN_PROCESS;
}
//
// Search the dispatch table to find the service's entry
//
if (!(dispatchEntry->dwFlags & SERVICE_OWN_PROCESS))
{
controlStatus = ScGetDispatchEntry(&dispatchEntry, serviceName);
}
if (controlStatus != NO_ERROR)
{
SCC_LOG(TRACE,"Service Name not in Dispatch Table\n",0);
}
}
}
else
{
if (controlStatus != ERROR_NOT_ENOUGH_MEMORY)
{
//
// If an error occured and it is not an out-of-memory error,
// then the pipe read must have failed.
// In this case we Increment the error count.
// When this count reaches the MAX_RETRY_COUNT, then
// the service controller must be gone. We want to log an
// error and notify an administrator. Then go to sleep forever.
// Only a re-boot will solve this problem.
//
// We should be able to report out-of-memory errors back to
// the caller. It should be noted that out-of-memory errors
// do not clear the error count. But they don't add to it
// either.
//
errorCount++;
if (errorCount > MAX_RETRY_COUNT)
{
Sleep(0xffffffff);
}
}
//
// Service params aren't allocated -- avoid freeing them later
//
lpServiceParams = NULL;
}
//
// Dispatch the request
//
if ((continueDispatch == TRUE) && (controlStatus == NO_ERROR))
{
switch(Msg->OpCode)
{
case SERVICE_CONTROL_START_SHARE:
case SERVICE_CONTROL_START_OWN:
{
SC_HANDLE hScManager = OpenSCManagerW(NULL,
NULL,
SC_MANAGER_CONNECT);
if (hScManager == NULL)
{
status = GetLastError();
SCC_LOG1(ERROR,
"ScDispatcherLoop: OpenSCManagerW FAILED %d\n",
status);
}
else
{
//
// Update the StatusHandle in the dispatch entry table
//
dispatchEntry->StatusHandle = OpenServiceW(hScManager,
serviceName,
SERVICE_SET_STATUS);
if (dispatchEntry->StatusHandle == NULL)
{
status = GetLastError();
SCC_LOG1(ERROR,
"ScDispatcherLoop: OpenServiceW FAILED %d\n",
status);
}
else
{
fOpenedService = TRUE;
}
CloseServiceHandle(hScManager);
}
if (status == NO_ERROR
&&
(dispatchEntry->dwFlags & SERVICE_OWN_PROCESS)
&&
(_wcsicmp(dispatchEntry->ServiceName, serviceName) != 0))
{
//
// Since we don't look up the dispatch record in the OWN_PROCESS
// case (and can't since it will break existing services), there's
// no guarantee that the name in the dispatch table (acquired from
// the RegisterServiceCtrlHandler call) is the real key name of
// the service. Since the SCM passes across the real name when
// the service is started, save it away here if necessary.
//
dispatchEntry->ServiceRealName = (LPWSTR)LocalAlloc(
LMEM_FIXED,
WCSSIZE(serviceName)
);
if (dispatchEntry->ServiceRealName == NULL)
{
//
// In case somebody comes searching for the handle (though
// they shouldn't), it's nicer to return an incorrect name
// than to AV trying to copy a NULL pointer.
//
SCC_LOG1(ERROR,
"ScDispatcherLoop: Could not duplicate name for service %ws\n",
serviceName);
dispatchEntry->ServiceRealName = dispatchEntry->ServiceName;
status = ERROR_NOT_ENOUGH_MEMORY;
}
else
{
wcscpy(dispatchEntry->ServiceRealName, serviceName);
}
}
if (status == NO_ERROR)
{
//
// The Control Dispatcher is to start a service.
// start the new thread.
//
lpServiceParams->ThreadStartupParms.ServiceStartRoutine =
dispatchEntry->ServiceStartRoutine.U;
threadAddress = (LPTHREAD_START_ROUTINE)ScSvcctrlThreadW;
threadParms = (LPVOID)&lpServiceParams->ThreadStartupParms;
//
// If the service needs to be called with ansi parameters,
// then do the conversion here.
//
if (AnsiFlag)
{
lpspAnsiParms = (LPTHREAD_STARTUP_PARMSA)
&lpServiceParams->ThreadStartupParms;
for (i = 0;
i < lpServiceParams->ThreadStartupParms.NumArgs;
i++)
{
if (!ScConvertToAnsi(
*(&lpspAnsiParms->VectorTable + i),
*(&lpServiceParams->ThreadStartupParms.VectorTable + i))) {
//
// Conversion error occured.
//
SCC_LOG0(ERROR,
"ScDispatcherLoop: Could not convert "
"args to ANSI\n");
status = ERROR_NOT_ENOUGH_MEMORY;
}
}
threadAddress = (LPTHREAD_START_ROUTINE)ScSvcctrlThreadA;
threadParms = lpspAnsiParms;
}
}
if (status == NO_ERROR)
{
//
// Create the new thread
//
threadHandle = CreateThread (
NULL, // Thread Attributes.
0L, // Stack Size
threadAddress, // lpStartAddress
threadParms, // lpParameter
0L, // Creation Flags
&threadId); // lpThreadId
if (threadHandle == NULL)
{
SCC_LOG(ERROR,
"ScDispatcherLoop: CreateThread failed %d\n",
GetLastError());
status = ERROR_SERVICE_NO_THREAD;
}
else
{
fCreatedThread = TRUE;
CloseHandle(threadHandle);
}
}
break;
}
default:
if (dispatchEntry->ControlHandler.Ex != NULL)
{
__try
{
//
// Call the proper ControlHandler routine.
//
if (dispatchEntry->dwFlags & SERVICE_EX_HANDLER)
{
SCC_LOG2(TRACE,
"Calling extended ControlHandler routine %x "
"for service %ws\n",
Msg->OpCode,
serviceName);
if (lpServiceParams)
{
dwHandlerRetVal = dispatchEntry->ControlHandler.Ex(
Msg->OpCode,
lpServiceParams->HandlerExParms.dwEventType,
lpServiceParams->HandlerExParms.lpEventData,
dispatchEntry->pContext);
}
else
{
dwHandlerRetVal = dispatchEntry->ControlHandler.Ex(
Msg->OpCode,
0,
NULL,
dispatchEntry->pContext);
}
SCC_LOG3(TRACE,
"Extended ControlHandler routine %x "
"returned %d from call to service %ws\n",
Msg->OpCode,
dwHandlerRetVal,
serviceName);
}
else if (IS_NON_EX_CONTROL(Msg->OpCode))
{
SCC_LOG2(TRACE,
"Calling ControlHandler routine %x "
"for service %ws\n",
Msg->OpCode,
serviceName);
#if defined(_X86_)
//
// Hack for __CDECL callbacks. The Windows NT 3.1
// SDK didn't prototype control handler functions
// as WINAPI, so a number of existing 3rd-party
// services have their control handler functions
// built as __cdecl instead. This is a workaround.
// Note that the call to the control handler must
// be the only code between the _asm statements
//
DWORD SaveEdi;
_asm mov SaveEdi, edi;
_asm mov edi, esp; // Both __cdecl and WINAPI
// functions preserve EDI
#endif
//
// Do not add code here
//
dispatchEntry->ControlHandler.Regular(Msg->OpCode);
//
// Do not add code here
//
#if defined(_X86_)
_asm mov esp, edi;
_asm mov edi, SaveEdi;
#endif
SCC_LOG2(TRACE,
"ControlHandler routine %x returned from "
"call to service %ws\n",
Msg->OpCode,
serviceName);
}
else
{
//
// Service registered for an extended control without
// registering an extended handler. The call into the
// service process succeeded, so keep status as NO_ERROR.
// Return an error from the "handler" to notify anybody
// watching for the return code (especially PnP).
//
dwHandlerRetVal = ERROR_CALL_NOT_IMPLEMENTED;
}
}
__except (GetExceptionCode() != STATUS_POSSIBLE_DEADLOCK ?
EXCEPTION_EXECUTE_HANDLER :
EXCEPTION_CONTINUE_SEARCH)
{
SCC_LOG2(ERROR,
"ScDispatcherLoop: Exception 0x%lx "
"occurred in service %ws\n",
GetExceptionCode(),
serviceName);
status = ERROR_EXCEPTION_IN_SERVICE;
}
//
// Just in case messages come across from the SCM in a weird
// order (e.g., two threads racing through ScSendControl where
// the one that wins sends SERVICE_CONTROL_STOP), make sure
// that we don't send controls to a service after we've sent
// it a stop code. Ignore the handler return value in this
// case since no service should be rejecting/failing a stop
// control and the SCM's marked the service as stopped anyhow.
// We just want to make sure that no controls get to the service
// after SERVICE_CONTROL_STOP until it's restarted.
//
if (Msg->OpCode == SERVICE_CONTROL_STOP)
{
dispatchEntry->ControlHandler.Ex = NULL;
}
}
else
{
//
// There is no control handling routine
// registered for this service
//
status = ERROR_SERVICE_CANNOT_ACCEPT_CTRL;
}
//
// If status is not good here, then an exception occured
// either because the pointer to the control handling
// routine was bad, or because an exception occured
// inside the control handling routine.
//
// ??EVENTLOG??
//
break;
} // end switch.
//
// Send the status back to the sevice controller.
//
if (Msg->OpCode != SERVICE_CONTROL_SHUTDOWN)
{
SCC_LOG(TRACE, "Service %ws about to send response\n", serviceName);
ScSendResponse (PipeHandle, status, dwHandlerRetVal);
SCC_LOG(TRACE, "Service %ws returned from sending response\n", serviceName);
}
}
else
{
//
// The controlStatus indicates failure, we always want to try
// to send the status back to the Service Controller.
//
SCC_LOG2(TRACE,
"Service %ws about to send response on error %lu\n",
serviceName,
controlStatus);
ScSendResponse(PipeHandle, controlStatus, dwHandlerRetVal);
SCC_LOG2(TRACE,
"Service %ws returned from sending response on error %lu\n",
serviceName,
controlStatus);
switch (controlStatus)
{
case ERROR_SERVICE_NOT_IN_EXE:
case ERROR_SERVICE_NO_THREAD:
//
// The Service Name is not in this .exe's dispatch table.
// Or a thread for a new service couldn't be created.
// ignore it. The Service Controller will tell us to
// shut down if necessary.
//
controlStatus = NO_ERROR;
break;
default:
//
// If the error is not specifically recognized, continue.
//
controlStatus = NO_ERROR;
break;
}
}
if (!fCreatedThread && lpServiceParams != NULL)
{
LocalFree(lpServiceParams);
lpServiceParams = NULL;
}
if (fOpenedService && status != NO_ERROR)
{
CloseServiceHandle(dispatchEntry->StatusHandle);
dispatchEntry->StatusHandle = NULL;
}
}
while (continueDispatch == TRUE);
return;
}
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerHelp (
IN LPCWSTR ServiceName,
IN HANDLER_FUNCTION_TYPE ControlHandler,
IN PVOID pContext,
IN DWORD dwFlags
)
/*++
Routine Description:
This helper function enters a pointer to a control handling routine
and a pointer to a security descriptor into the Control Dispatcher's
dispatch table. It does the work for the RegisterServiceCtrlHandler*
family of APIs
Arguments:
ServiceName - This is a pointer to the Service Name string.
ControlHandler - This is a pointer to the service's control handling
routine.
pContext - This is a pointer to context data supplied by the user.
dwFlags - This is a set of flags that give information about the
control handling routine (currently only discerns between extended
and non-extended handlers)
Return Value:
This function returns a handle to the service that is to be used in
subsequent calls to SetServiceStatus. If the return value is NULL,
an error has occured, and GetLastError can be used to obtain the
error value. Possible values for error are:
NO_ERROR - If the operation was successful.
ERROR_INVALID_PARAMETER - The pointer to the control handler function
is NULL.
ERROR_INVALID_DATA -
ERROR_SERVICE_NOT_IN_EXE - The serviceName could not be found in
the dispatch table. This indicates that the configuration database
says the serice is in this process, but the service name doesn't
exist in the dispatch table.
--*/
{
DWORD status;
LPINTERNAL_DISPATCH_ENTRY dispatchEntry;
//
// Find the service in the dispatch table.
//
dispatchEntry = DispatchTable;
__try {
status = ScGetDispatchEntry(&dispatchEntry, (LPWSTR) ServiceName);
}
__except (EXCEPTION_EXECUTE_HANDLER) {
status = GetExceptionCode();
if (status != EXCEPTION_ACCESS_VIOLATION) {
SCC_LOG(ERROR,
"RegisterServiceCtrlHandlerHelp: Unexpected Exception 0x%lx\n",
status);
}
}
if(status != NO_ERROR) {
SCC_LOG(ERROR,
"RegisterServiceCtrlHandlerHelp: can't find dispatch entry\n",0);
SetLastError(status);
return(0L);
}
//
// Insert the ControlHandler pointer
//
if (ControlHandler.Ex == NULL) {
SCC_LOG(ERROR,
"RegisterServiceCtrlHandlerHelp: Ptr to ctrlhandler is NULL\n",
0);
SetLastError(ERROR_INVALID_PARAMETER);
return(0L);
}
//
// Insert the entries into the table
//
if (dwFlags & SERVICE_EX_HANDLER) {
dispatchEntry->dwFlags |= SERVICE_EX_HANDLER;
dispatchEntry->ControlHandler.Ex = ControlHandler.Ex;
dispatchEntry->pContext = pContext;
}
else {
dispatchEntry->dwFlags &= ~(SERVICE_EX_HANDLER);
dispatchEntry->ControlHandler.Regular = ControlHandler.Regular;
}
//
// This cast is OK -- see comment in I_ScPnPGetServiceName
//
return( (SERVICE_STATUS_HANDLE) dispatchEntry->StatusHandle );
}
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerW (
IN LPCWSTR ServiceName,
IN LPHANDLER_FUNCTION ControlHandler
)
/*++
Routine Description:
This function enters a pointer to a control handling
routine into the Control Dispatcher's dispatch table.
Arguments:
ServiceName -- The service's name
ControlHandler -- Pointer to the control handling routine
Return Value:
Anything returned by RegisterServiceCtrlHandlerHelp
--*/
{
HANDLER_FUNCTION_TYPE Handler;
Handler.Regular = ControlHandler;
return RegisterServiceCtrlHandlerHelp(ServiceName,
Handler,
NULL,
0);
}
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerA (
IN LPCSTR ServiceName,
IN LPHANDLER_FUNCTION ControlHandler
)
/*++
Routine Description:
This is the ansi entry point for RegisterServiceCtrlHandler.
Arguments:
Return Value:
--*/
{
LPWSTR ServiceNameW;
SERVICE_STATUS_HANDLE statusHandle;
if (!ScConvertToUnicode(&ServiceNameW, ServiceName)) {
//
// This can only fail because of a failed LocalAlloc call
// or else the ansi string is garbage.
//
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return(0L);
}
statusHandle = RegisterServiceCtrlHandlerW(ServiceNameW, ControlHandler);
LocalFree(ServiceNameW);
return(statusHandle);
}
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerExW (
IN LPCWSTR ServiceName,
IN LPHANDLER_FUNCTION_EX ControlHandler,
IN PVOID pContext
)
/*++
Routine Description:
This function enters a pointer to an extended control handling
routine into the Control Dispatcher's dispatch table. It is
analogous to RegisterServiceCtrlHandlerW.
Arguments:
ServiceName -- The service's name
ControlHandler -- A pointer to an extended control handling routine
pContext -- User-supplied data that is passed to the control handler
Return Value:
Anything returned by RegisterServiceCtrlHandlerHelp
--*/
{
HANDLER_FUNCTION_TYPE Handler;
Handler.Ex = ControlHandler;
return RegisterServiceCtrlHandlerHelp(ServiceName,
Handler,
pContext,
SERVICE_EX_HANDLER);
}
SERVICE_STATUS_HANDLE
WINAPI
RegisterServiceCtrlHandlerExA (
IN LPCSTR ServiceName,
IN LPHANDLER_FUNCTION_EX ControlHandler,
IN PVOID pContext
)
/*++
Routine Description:
This is the ansi entry point for RegisterServiceCtrlHandlerEx.
Arguments:
Return Value:
--*/
{
LPWSTR ServiceNameW;
SERVICE_STATUS_HANDLE statusHandle;
if(!ScConvertToUnicode(&ServiceNameW, ServiceName)) {
//
// This can only fail because of a failed LocalAlloc call
// or else the ansi string is garbage.
//
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
return(0L);
}
statusHandle = RegisterServiceCtrlHandlerExW(ServiceNameW,
ControlHandler,
pContext);
LocalFree(ServiceNameW);
return(statusHandle);
}
DWORD
ScCreateDispatchTableW(
IN CONST SERVICE_TABLE_ENTRYW *lpServiceStartTable,
OUT LPINTERNAL_DISPATCH_ENTRY *DispatchTablePtr
)
/*++
Routine Description:
This routine allocates space for the Control Dispatchers Dispatch Table.
It also initializes the table with the data that the service main
routine passed in with the lpServiceStartTable parameter.
This routine expects that pointers in the user's dispatch table point
to valid information. And that that information will stay valid and
fixed through out the life of the Control Dispatcher. In otherwords,
the ServiceName string better not move or get cleared.
Arguments:
lpServiceStartTable - This is a pointer to the first entry in the
dispatch table that the service's main routine passed in .
DispatchTablePtr - This is a pointer to the location where the
Service Controller's dispatch table is to be stored.
Return Value:
NO_ERROR - The operation was successful.
ERROR_NOT_ENOUGH_MEMORY - The memory allocation failed.
ERROR_INVALID_PARAMETER - There are no entries in the dispatch table.
--*/
{
DWORD numEntries;
LPINTERNAL_DISPATCH_ENTRY dispatchTable;
const SERVICE_TABLE_ENTRYW * entryPtr;
//
// Count the number of entries in the user dispatch table
//
numEntries = 0;
entryPtr = lpServiceStartTable;
while (entryPtr->lpServiceName != NULL) {
numEntries++;
entryPtr++;
}
if (numEntries == 0) {
SCC_LOG(ERROR,"ScCreateDispatchTable:No entries in Dispatch table!\n",0);
return(ERROR_INVALID_PARAMETER);
}
//
// Allocate space for the Control Dispatcher's Dispatch Table
//
dispatchTable = (LPINTERNAL_DISPATCH_ENTRY)LocalAlloc(LMEM_ZEROINIT,
sizeof(INTERNAL_DISPATCH_ENTRY) * (numEntries + 1));
if (dispatchTable == NULL) {
SCC_LOG(ERROR,"ScCreateDispatchTable: Local Alloc failed rc = %d\n",
GetLastError());
return (ERROR_NOT_ENOUGH_MEMORY);
}
//
// Move user dispatch info into the Control Dispatcher's table.
//
*DispatchTablePtr = dispatchTable;
entryPtr = lpServiceStartTable;
while (entryPtr->lpServiceName != NULL) {
dispatchTable->ServiceName = entryPtr->lpServiceName;
dispatchTable->ServiceRealName = entryPtr->lpServiceName;
dispatchTable->ServiceStartRoutine.U= entryPtr->lpServiceProc;
dispatchTable->ControlHandler.Ex = NULL;
dispatchTable->StatusHandle = NULL;
dispatchTable->dwFlags = 0;
entryPtr++;
dispatchTable++;
}
return (NO_ERROR);
}
DWORD
ScCreateDispatchTableA(
IN CONST SERVICE_TABLE_ENTRYA *lpServiceStartTable,
OUT LPINTERNAL_DISPATCH_ENTRY *DispatchTablePtr
)
/*++
Routine Description:
This routine allocates space for the Control Dispatchers Dispatch Table.
It also initializes the table with the data that the service main
routine passed in with the lpServiceStartTable parameter.
This routine expects that pointers in the user's dispatch table point
to valid information. And that that information will stay valid and
fixed through out the life of the Control Dispatcher. In otherwords,
the ServiceName string better not move or get cleared.
Arguments:
lpServiceStartTable - This is a pointer to the first entry in the
dispatch table that the service's main routine passed in .
DispatchTablePtr - This is a pointer to the location where the
Service Controller's dispatch table is to be stored.
Return Value:
NO_ERROR - The operation was successful.
ERROR_NOT_ENOUGH_MEMORY - The memory allocation failed.
ERROR_INVALID_PARAMETER - There are no entries in the dispatch table.
--*/
{
DWORD numEntries;
DWORD status = NO_ERROR;
LPINTERNAL_DISPATCH_ENTRY dispatchTable;
const SERVICE_TABLE_ENTRYA * entryPtr;
//
// Count the number of entries in the user dispatch table
//
numEntries = 0;
entryPtr = lpServiceStartTable;
while (entryPtr->lpServiceName != NULL) {
numEntries++;
entryPtr++;
}
if (numEntries == 0) {
SCC_LOG(ERROR,"ScCreateDispatchTable:No entries in Dispatch table!\n",0);
return(ERROR_INVALID_PARAMETER);
}
//
// Allocate space for the Control Dispatcher's Dispatch Table
//
dispatchTable = (LPINTERNAL_DISPATCH_ENTRY)LocalAlloc(LMEM_ZEROINIT,
sizeof(INTERNAL_DISPATCH_ENTRY) * (numEntries + 1));
if (dispatchTable == NULL) {
SCC_LOG(ERROR,"ScCreateDispatchTableA: Local Alloc failed rc = %d\n",
GetLastError());
return (ERROR_NOT_ENOUGH_MEMORY);
}
//
// Move user dispatch info into the Control Dispatcher's table.
//
*DispatchTablePtr = dispatchTable;
entryPtr = lpServiceStartTable;
while (entryPtr->lpServiceName != NULL) {
//
// Convert the service name to unicode
//
__try {
if (!ScConvertToUnicode(
&(dispatchTable->ServiceName),
entryPtr->lpServiceName)) {
//
// The convert failed.
//
SCC_LOG(ERROR,"ScCreateDispatcherTableA:ScConvertToUnicode failed\n",0);
//
// This is the only reason for failure that I can think of.
//
status = ERROR_NOT_ENOUGH_MEMORY;
}
}
__except (EXCEPTION_EXECUTE_HANDLER) {
status = GetExceptionCode();
if (status != EXCEPTION_ACCESS_VIOLATION) {
SCC_LOG(ERROR,
"ScCreateDispatchTableA: Unexpected Exception 0x%lx\n",status);
}
}
if (status != NO_ERROR) {
//
// If an error occured, free up the allocated resources.
//
dispatchTable = *DispatchTablePtr;
while (dispatchTable->ServiceName != NULL) {
LocalFree(dispatchTable->ServiceName);
dispatchTable++;
}
LocalFree(*DispatchTablePtr);
return(status);
}
//
// Fill in the rest of the dispatch entry.
//
dispatchTable->ServiceRealName = dispatchTable->ServiceName;
dispatchTable->ServiceStartRoutine.A= entryPtr->lpServiceProc;
dispatchTable->ControlHandler.Ex = NULL;
dispatchTable->StatusHandle = NULL;
dispatchTable->dwFlags = 0;
entryPtr++;
dispatchTable++;
}
return (NO_ERROR);
}
DWORD
ScReadServiceParms(
IN LPCTRL_MSG_HEADER Msg,
IN DWORD dwNumBytesRead,
OUT LPBYTE *ppServiceParams,
OUT LPBYTE *ppTempArgPtr,
OUT LPDWORD lpdwRemainingArgBytes
)
/*++
Routine Description:
This routine calculates the number of bytes needed for the service's
control parameters by using the arg count information in the
message header. The parameter structure is allocated and
as many bytes of argument information as have been captured so far
are placed into the buffer. A second read of the pipe may be necessary
to obtain the remaining bytes of argument information.
NOTE: This function allocates enough space in the startup parameter
buffer for the service name and pointer as well as the rest of the
arguments. However, it does not put the service name into the argument
list. This is because it may take two calls to this routine to
get all the argument information. We can't insert the service name
string until we have all the rest of the argument data.
[serviceNamePtr][argv1][argv2]...[argv1Str][argv2Str]...[serviceNameStr]
or
[serviceNamePtr][dwEventType][EventData][serviceNameStr]
Arguments:
Msg - A pointer to the pipe message header.
dwNumBytesRead - The number of bytes read in the first pipe read.
ppServiceParams - A pointer to a location where the pointer to the
thread startup parameter structure is to be placed.
ppTempArgPtr - A location that will contain the pointer to where
more argument data can be placed by a second read of the pipe.
lpdwRemainingArgBytes - Returns with a count of the number of argument
bytes that remain to be read from the pipe.
Return Value:
NO_ERROR - If the operation was successful.
ERROR_NOT_ENOUGH_MEMORY - If the memory allocation was unsuccessful.
Note:
--*/
{
DWORD dwNameSize; // num bytes in ServiceName.
DWORD dwBufferSize; // num bytes for parameter buffer
LONG lArgBytesRead; // number of arg bytes in first read.
LPSERVICE_PARAMS lpTempParams;
//
// Set out pointer to no arguments unless we discover otherwise
//
*ppTempArgPtr = NULL;
SCC_LOG(TRACE,"ScReadServiceParms: Get service parameters from pipe\n",0);
//
// Note: Here we assume that the service name was read into the buffer
// in its entirety.
//
dwNameSize = (DWORD) WCSSIZE((LPWSTR) ((LPBYTE) Msg + Msg->ServiceNameOffset));
//
// Calculate the size of buffer needed. This will consist of a
// SERVICE_PARAMS structure, plus the service name and a pointer
// for it, plus the rest of the arg info sent in the message
// (We are wasting 4 bytes here since the first pointer in
// the vector table is accounted for twice - but what the heck!).
//
dwBufferSize = Msg->Count -
sizeof(CTRL_MSG_HEADER) +
sizeof(SERVICE_PARAMS) +
sizeof(LPWSTR);
//
// Allocate the memory for the service parameters
//
lpTempParams = (LPSERVICE_PARAMS) LocalAlloc (LMEM_ZEROINIT, dwBufferSize);
if (lpTempParams == NULL)
{
SCC_LOG1(ERROR,
"ScReadServiceParms: LocalAlloc failed rc = %d\n",
GetLastError());
return ERROR_NOT_ENOUGH_MEMORY;
}
lArgBytesRead = dwNumBytesRead - sizeof(CTRL_MSG_HEADER) - dwNameSize;
*lpdwRemainingArgBytes = Msg->Count - dwNumBytesRead;
//
// Unpack message-specific arguments
//
switch (Msg->OpCode) {
case SERVICE_CONTROL_START_OWN:
case SERVICE_CONTROL_START_SHARE:
SCC_LOG(TRACE,"ScReadServiceParms: Starting a service\n", 0);
if (Msg->NumCmdArgs != 0) {
//
// There's only a vector table and ThreadStartupParms
// when the service starts up
//
*ppTempArgPtr = (LPBYTE) &lpTempParams->ThreadStartupParms.VectorTable;
//
// Leave the first vector location blank for the service name
// pointer.
//
(*ppTempArgPtr) += sizeof(LPWSTR);
//
// adjust lArgBytesRead to remove any extra bytes that are
// there for alignment. If a name that is not in the dispatch
// table is passed in, it could be larger than our buffer.
// This could cause lArgBytesRead to become negative.
// However it should fail safe anyway since the name simply
// won't be recognized and an error will be returned.
//
lArgBytesRead -= (Msg->ArgvOffset - Msg->ServiceNameOffset - dwNameSize);
//
// Copy any portion of the command arg info from the first read
// into the buffer that is to be used for the second read.
//
if (lArgBytesRead > 0) {
RtlCopyMemory(*ppTempArgPtr,
(LPBYTE)Msg + Msg->ArgvOffset,
lArgBytesRead);
*ppTempArgPtr += lArgBytesRead;
}
}
break;
case SERVICE_CONTROL_DEVICEEVENT:
case SERVICE_CONTROL_HARDWAREPROFILECHANGE:
case SERVICE_CONTROL_POWEREVENT:
case SERVICE_CONTROL_SESSIONCHANGE:
{
//
// This is a PnP, power, or TS message
//
SCC_LOG1(TRACE,
"ScReadServiceParms: Receiving PnP/power/TS event %x\n",
Msg->OpCode);
//
// adjust lArgBytesRead to remove any extra bytes that are
// there for alignment. If a name that is not in the dispatch
// table is passed in, it could be larger than our buffer.
// This could cause lArgBytesRead to become negative.
// However it should fail safe anyway since the name simply
// won't be recognized and an error will be returned.
//
lArgBytesRead -= (Msg->ArgvOffset - Msg->ServiceNameOffset - dwNameSize);
*ppTempArgPtr = (LPBYTE) &lpTempParams->HandlerExParms.dwEventType;
if (lArgBytesRead > 0)
{
LPBYTE lpArgs;
LPHANDLEREX_PARMS lpHandlerExParms = (LPHANDLEREX_PARMS) (*ppTempArgPtr);
lpArgs = (LPBYTE) Msg + Msg->ArgvOffset;
lpHandlerExParms->dwEventType = *(LPDWORD) lpArgs;
lpArgs += sizeof(DWORD);
lArgBytesRead -= sizeof(DWORD);
RtlCopyMemory(lpHandlerExParms + 1,
lpArgs,
lArgBytesRead);
lpHandlerExParms->lpEventData = lpHandlerExParms + 1;
*ppTempArgPtr = (LPBYTE) (lpHandlerExParms + 1) + lArgBytesRead;
}
break;
}
}
*ppServiceParams = (LPBYTE) lpTempParams;
return NO_ERROR;
}
DWORD
ScConnectServiceController(
OUT LPHANDLE PipeHandle
)
/*++
Routine Description:
This function connects to the Service Controller Pipe.
Arguments:
PipeHandle - This is a pointer to the location where the PipeHandle
is to be placed.
Return Value:
NO_ERROR - if the operation was successful.
ERROR_FAILED_SERVICE_CONTROLLER_CONNECT - if we failed to connect.
--*/
{
BOOL status;
DWORD apiStatus;
DWORD response;
DWORD pipeMode;
DWORD numBytesWritten;
WCHAR wszPipeName[sizeof(CONTROL_PIPE_NAME) / sizeof(WCHAR) + PID_LEN] = CONTROL_PIPE_NAME;
//
// Generate the pipe name -- Security process uses PID 0 since the
// SCM doesn't have the PID at connect-time (it gets it from the
// pipe transaction with the LSA)
//
if (g_fIsSecProc) {
response = 0;
}
else {
//
// Read this process's pipe ID from the registry.
//
HKEY hCurrentValueKey;
status = RegOpenKeyEx(
HKEY_LOCAL_MACHINE,
"System\\CurrentControlSet\\Control\\ServiceCurrent",
0,
KEY_QUERY_VALUE,
&hCurrentValueKey);
if (status == ERROR_SUCCESS)
{
DWORD ValueType;
DWORD cbData = sizeof(response);
status = RegQueryValueEx(
hCurrentValueKey,
NULL, // Use key's unnamed value
0,
&ValueType,
(LPBYTE) &response,
&cbData);
RegCloseKey(hCurrentValueKey);
if (status != ERROR_SUCCESS || ValueType != REG_DWORD)
{
SCC_LOG(ERROR,
"ScConnectServiceController: RegQueryValueEx FAILED %d\n",
status);
return(ERROR_FAILED_SERVICE_CONTROLLER_CONNECT);
}
}
else
{
SCC_LOG(ERROR,
"ScConnectServiceController: RegOpenKeyEx FAILED %d\n",
status);
return(ERROR_FAILED_SERVICE_CONTROLLER_CONNECT);
}
}
_itow(response, wszPipeName + sizeof(CONTROL_PIPE_NAME) / sizeof(WCHAR) - 1, 10);
status = WaitNamedPipeW (
wszPipeName,
CONTROL_WAIT_PERIOD);
if (status != TRUE) {
SCC_LOG(ERROR,"ScConnectServiceController:WaitNamedPipe failed rc = %d\n",
GetLastError());
}
SCC_LOG(TRACE,"ScConnectServiceController:WaitNamedPipe success\n",0);
*PipeHandle = CreateFileW(
wszPipeName, // lpFileName
GENERIC_READ | GENERIC_WRITE, // dwDesiredAccess
FILE_SHARE_READ | FILE_SHARE_WRITE, // dwShareMode
NULL, // lpSecurityAttributes
OPEN_EXISTING, // dwCreationDisposition
FILE_ATTRIBUTE_NORMAL, // dwFileAttributes
0L); // hTemplateFile
if (*PipeHandle == INVALID_HANDLE_VALUE) {
SCC_LOG(ERROR,"ScConnectServiceController:CreateFile failed rc = %d\n",
GetLastError());
return(ERROR_FAILED_SERVICE_CONTROLLER_CONNECT);
}
SCC_LOG(TRACE,"ScConnectServiceController:CreateFile success\n",0);
//
// Set pipe mode
//
pipeMode = PIPE_READMODE_MESSAGE | PIPE_WAIT;
status = SetNamedPipeHandleState (
*PipeHandle,
&pipeMode,
NULL,
NULL);
if (status != TRUE) {
SCC_LOG(ERROR,"ScConnectServiceController:SetNamedPipeHandleState failed rc = %d\n",
GetLastError());
return(ERROR_FAILED_SERVICE_CONTROLLER_CONNECT);
}
else {
SCC_LOG(TRACE,
"ScConnectServiceController SetNamedPipeHandleState Success\n",0);
}
//
// Send initial status - This is the process Id for the service process.
//
response = GetCurrentProcessId();
apiStatus = WriteFile (
*PipeHandle,
&response,
sizeof(response),
&numBytesWritten,
NULL);
if (apiStatus != TRUE) {
//
// If this fails, there is a chance that the pipe is still in good
// shape. So we just go on.
//
// ??EVENTLOG??
//
SCC_LOG(ERROR,"ScConnectServiceController: WriteFile failed, rc= %d\n", GetLastError());
}
else {
SCC_LOG(TRACE,
"ScConnectServiceController: WriteFile success, bytes Written= %d\n",
numBytesWritten);
}
return(NO_ERROR);
}
VOID
ScExpungeMessage(
IN HANDLE PipeHandle
)
/*++
Routine Description:
This routine cleans the remaining portion of a message out of the pipe.
It is called in response to an unsuccessful attempt to allocate the
correct buffer size from the heap. In this routine a small buffer is
allocated on the stack, and successive reads are made until a status
other than ERROR_MORE_DATA is received.
Arguments:
PipeHandle - This is a handle to the pipe in which the message resides.
Return Value:
none - If this operation fails, there is not much I can do about
the data in the pipe.
--*/
{
#define EXPUNGE_BUF_SIZE 100
DWORD status;
DWORD dwNumBytesRead = 0;
BYTE msg[EXPUNGE_BUF_SIZE];
do {
status = ReadFile (
PipeHandle,
msg,
EXPUNGE_BUF_SIZE,
&dwNumBytesRead,
NULL);
}
while( status == ERROR_MORE_DATA);
}
DWORD
ScGetPipeInput (
IN HANDLE PipeHandle,
IN OUT LPCTRL_MSG_HEADER Msg,
IN DWORD dwBufferSize,
OUT LPSERVICE_PARAMS *ppServiceParams
)
/*++
Routine Description:
This routine reads a control message from the pipe and places it into
a message buffer. This routine also allocates a structure for
the service thread information. This structure will eventually
contain everything that is needed to invoke the service startup
routine in the context of a new thread. Items contained in the
structure are:
1) The pointer to the startup routine,
2) The number of arguments, and
3) The table of vectors to the arguments.
Since this routine has knowledge about the buffer size needed for
the arguments, the allocation is done here.
Arguments:
PipeHandle - This is the handle for the pipe that is to be read.
Msg - This is a pointer to a buffer where the data is to be placed.
dwBufferSize - This is the size (in bytes) of the buffer that data is to
be placed in.
ppServiceParams - This is the location where the command args will
be placed
Return Value:
NO_ERROR - if the operation was successful.
ERROR_NOT_ENOUGH_MEMORY - There was not enough memory to create a large
enough buffer for the command line arguments.
ERROR_INVALID_DATA - This is returned if we did not receive a complete
CTRL_MESSAGE_HEADER on the first read.
Any error that ReadFile might return could be returned by this function.
(We may want to return something more specific like ERROR_READ_FAULT)
--*/
{
DWORD status;
BOOL readStatus;
DWORD dwNumBytesRead = 0;
DWORD dwRemainingArgBytes;
LPBYTE pTempArgPtr;
*ppServiceParams = NULL;
//
// Read the header and name string from the pipe.
// NOTE: The number of bytes for the name string is determined by
// the longest service name in the service process. If the actual
// string read is shorter, then the beginning of the command arg
// data may be read with this read.
// Also note: The buffer is large enough to accommodate the longest
// permissible service name.
//
readStatus = ReadFile(PipeHandle,
Msg,
dwBufferSize,
&dwNumBytesRead,
NULL);
SCC_LOG(TRACE,"ScGetPipeInput:ReadFile buffer size = %ld\n",dwBufferSize);
SCC_LOG(TRACE,"ScGetPipeInput:ReadFile dwNumBytesRead = %ld\n",dwNumBytesRead);
if ((readStatus == TRUE) && (dwNumBytesRead > sizeof(CTRL_MSG_HEADER))) {
//
// The Read File read the complete message in one read. So we
// can return with the data.
//
SCC_LOG(TRACE,"ScGetPipeInput: Success!\n",0);
switch (Msg->OpCode) {
case SERVICE_CONTROL_START_OWN:
case SERVICE_CONTROL_START_SHARE:
//
// Read in any start arguments for the service
//
status = ScReadServiceParms(Msg,
dwNumBytesRead,
(LPBYTE *)ppServiceParams,
&pTempArgPtr,
&dwRemainingArgBytes);
if (status != NO_ERROR) {
return status;
}
//
// Change the offsets back into pointers.
//
ScNormalizeCmdLineArgs(Msg,
&(*ppServiceParams)->ThreadStartupParms);
break;
case SERVICE_CONTROL_DEVICEEVENT:
case SERVICE_CONTROL_HARDWAREPROFILECHANGE:
case SERVICE_CONTROL_POWEREVENT:
case SERVICE_CONTROL_SESSIONCHANGE:
//
// Read in the service's PnP/power arguments
//
status = ScReadServiceParms(Msg,
dwNumBytesRead,
(LPBYTE *)ppServiceParams,
&pTempArgPtr,
&dwRemainingArgBytes);
if (status != NO_ERROR) {
return status;
}
break;
default:
ASSERT(Msg->NumCmdArgs == 0);
break;
}
return NO_ERROR;
}
else {
//
// An error was returned from ReadFile. ERROR_MORE_DATA
// means that we need to read some arguments from the buffer.
// Any other error is unexpected, and generates an internal error.
//
if (readStatus != TRUE) {
status = GetLastError();
if (status != ERROR_MORE_DATA) {
SCC_LOG(ERROR,"ScGetPipeInput:Unexpected return code, rc= %ld\n",
status);
return status;
}
}
else {
//
// The read was successful, but we didn't get a complete
// CTRL_MESSAGE_HEADER.
//
return ERROR_INVALID_DATA;
}
}
//
// We must have received an ERROR_MORE_DATA to go down this
// path. This means that the message contains more data. Namely,
// service arguments must be present. Therefore, the pipe must
// be read again. Since the header indicates how many bytes are
// needed, we will allocate a buffer large enough to hold all the
// service arguments.
//
// If a portion of the arguments was read in the first read,
// they will be put in this new buffer. That is so that all the
// command line arg info is in one place.
//
status = ScReadServiceParms(Msg,
dwNumBytesRead,
(LPBYTE *)ppServiceParams,
&pTempArgPtr,
&dwRemainingArgBytes);
if (status != NO_ERROR)
{
ScExpungeMessage(PipeHandle);
LocalFree(*ppServiceParams);
*ppServiceParams = NULL;
return status;
}
readStatus = ReadFile(PipeHandle,
pTempArgPtr,
dwRemainingArgBytes,
&dwNumBytesRead,
NULL);
if ((readStatus != TRUE) || (dwNumBytesRead < dwRemainingArgBytes)) {
if (readStatus != TRUE) {
status = GetLastError();
SCC_LOG1(ERROR,
"ScGetPipeInput: ReadFile error (2nd read), rc = %ld\n",
status);
}
else {
status = ERROR_BAD_LENGTH;
}
SCC_LOG2(ERROR,
"ScGetPipeInput: ReadFile read: %d, expected: %d\n",
dwNumBytesRead,
dwRemainingArgBytes);
LocalFree(*ppServiceParams);
*ppServiceParams = NULL;
return status;
}
if (Msg->OpCode == SERVICE_CONTROL_START_OWN ||
Msg->OpCode == SERVICE_CONTROL_START_SHARE) {
//
// Change the offsets back into pointers.
//
ScNormalizeCmdLineArgs(Msg, &(*ppServiceParams)->ThreadStartupParms);
}
return NO_ERROR;
}
DWORD
ScGetDispatchEntry (
IN OUT LPINTERNAL_DISPATCH_ENTRY *DispatchEntryPtr,
IN LPWSTR ServiceName
)
/*++
Routine Description:
Finds an entry in the Dispatch Table for a particular service which
is identified by a service name string.
Arguments:
DispatchEntryPtr - As an input, the is a location where a pointer to
the top of the DispatchTable is placed. On return, this is the
location where the pointer to the specific dispatch entry is to
be placed. This is an opaque pointer because it could be either
ansi or unicode depending on the operational state of the dispatcher.
ServiceName - This is a pointer to the service name string that was
supplied by the service. Note that it may not be the service's
real name since we never check services that run in their own
process (bug that can never be fixed since it will break existing
services). We must check for this name instead of the real
one.
Return Value:
NO_ERROR - The operation was successful.
ERROR_SERVICE_NOT_IN_EXE - The serviceName could not be found in
the dispatch table. This indicates that the configuration database
says the serice is in this process, but the service name doesn't
exist in the dispatch table.
--*/
{
LPINTERNAL_DISPATCH_ENTRY entryPtr;
DWORD found = FALSE;
entryPtr = *DispatchEntryPtr;
if (entryPtr->dwFlags & SERVICE_OWN_PROCESS) {
return (NO_ERROR);
}
while (entryPtr->ServiceName != NULL) {
if (_wcsicmp(entryPtr->ServiceName, ServiceName) == 0) {
found = TRUE;
break;
}
entryPtr++;
}
if (found) {
*DispatchEntryPtr = entryPtr;
}
else {
SCC_LOG(ERROR,"ScGetDispatchEntry: DispatchEntry not found\n"
" Configuration error - the %ws service is not in this .exe file!\n"
" Check the table passed to StartServiceCtrlDispatcher.\n", ServiceName);
return(ERROR_SERVICE_NOT_IN_EXE);
}
return(NO_ERROR);
}
DWORD
ScRemoveDispatchEntry(
IN SC_HANDLE hStatusHandle
)
/*++
Routine Description:
Clears out the status handle for an entry in the Dispatch Table.
Arguments:
hStatusHandle - service status handle given by RegisterServiceCtrlHandler/Ex.
Return Value:
NO_ERROR - The operation was successful.
ERROR_SERVICE_NOT_IN_EXE - The service of StatusHandle could not be found in
the dispatch table. This indicates that the configuration database
says the serice is in this process, but the service doesn't exist in
the dispatch table.
--*/
{
LPINTERNAL_DISPATCH_ENTRY dispatchEntry;
//
// This should only be called from SetServiceStatus when stopping
// a service, so the table should already be there.
//
ASSERT(DispatchTable != NULL);
dispatchEntry = DispatchTable;
while (dispatchEntry->ServiceName != NULL)
{
if (dispatchEntry->StatusHandle == hStatusHandle)
{
dispatchEntry->StatusHandle = NULL;
return NO_ERROR;
}
dispatchEntry++;
}
//
// Shouldn't be called with a SERVICE_STATUS_HANDLE that's not in the table.
//
ASSERT(FALSE);
return ERROR_SERVICE_NOT_IN_EXE;
}
VOID
ScNormalizeCmdLineArgs(
IN OUT LPCTRL_MSG_HEADER Msg,
IN OUT LPTHREAD_STARTUP_PARMSW ThreadStartupParms
)
/*++
Routine Description:
Normalizes the command line argument information that came across in
the pipe. The argument information is stored in a buffer that consists
of an array of string pointers followed by the strings themselves.
However, in the pipe, the pointers are replaced with offsets. This
routine transforms the offsets into real pointers.
This routine also puts the service name into the array of argument
vectors, and adds the service name string to the end of the
buffer (space has already been allocated for it).
Arguments:
Msg - This is a pointer to the Message. Useful information from this
includes the NumCmdArgs and the service name.
ThreadStartupParms - A pointer to the thread startup parameter structure.
Return Value:
none.
--*/
{
DWORD i;
LPWSTR *argv;
DWORD numCmdArgs;
LPWSTR *serviceNameVector;
LPWSTR serviceNamePtr;
#if defined(_X86_)
PULONG64 argv64 = NULL;
#endif
numCmdArgs = Msg->NumCmdArgs;
argv = &(ThreadStartupParms->VectorTable);
//
// Save the first argv for the service name.
//
serviceNameVector = argv;
argv++;
//
// Normalize the Command Line Argument information by replacing
// offsets in buffer with pointers.
//
// NOTE: The elaborate casting that takes place here is because we
// are taking some (pointer sized) offsets, and turning them back
// into pointers to strings. The offsets are in bytes, and are
// relative to the beginning of the vector table which contains
// pointers to the various command line arg strings.
//
#if defined(_X86_)
if (g_fWow64Process) {
//
// Pointers on the 64-bit land are 64-bit so make argv
// point to the 1st arg after the service name offset
//
argv64 = (PULONG64)argv;
}
#endif
for (i = 0; i < numCmdArgs; i++) {
#if defined(_X86_)
if (g_fWow64Process)
argv[i] = (LPWSTR)((LPBYTE)argv + PtrToUlong(argv64[i]));
else
#endif
argv[i] = (LPWSTR)((LPBYTE)argv + PtrToUlong(argv[i]));
}
//
// If we are starting a service, then we need to add the service name
// to the argument vectors.
//
if ((Msg->OpCode == SERVICE_CONTROL_START_SHARE) ||
(Msg->OpCode == SERVICE_CONTROL_START_OWN)) {
numCmdArgs++;
if (numCmdArgs > 1) {
//
// Find the location for the service name string by finding
// the pointer to the last argument adding its string length
// to it.
//
serviceNamePtr = argv[i-1];
serviceNamePtr += (wcslen(serviceNamePtr) + 1);
}
else {
serviceNamePtr = (LPWSTR)argv;
}
wcscpy(serviceNamePtr, (LPWSTR) ((LPBYTE)Msg + Msg->ServiceNameOffset));
*serviceNameVector = serviceNamePtr;
}
ThreadStartupParms->NumArgs = numCmdArgs;
}
VOID
ScSendResponse (
IN HANDLE PipeHandle,
IN DWORD Response,
IN DWORD dwHandlerRetVal
)
/*++
Routine Description:
This routine sends a status response to the Service Controller's pipe.
Arguments:
Response - This is the status message that is to be sent.
dwHandlerRetVal - This is the return value from the service's control
handler function (NO_ERROR for non-Ex handlers)
Return Value:
none.
--*/
{
DWORD numBytesWritten;
PIPE_RESPONSE_MSG prmResponse;
prmResponse.dwDispatcherStatus = Response;
prmResponse.dwHandlerRetVal = dwHandlerRetVal;
if (!WriteFile(PipeHandle,
&prmResponse,
sizeof(PIPE_RESPONSE_MSG),
&numBytesWritten,
NULL))
{
SCC_LOG1(ERROR,
"ScSendResponse: WriteFile failed, rc= %d\n",
GetLastError());
}
}
DWORD
ScSvcctrlThreadW(
IN LPTHREAD_STARTUP_PARMSW lpThreadStartupParms
)
/*++
Routine Description:
This is the thread for the newly started service. This code
calls the service's main thread with parameters from the
ThreadStartupParms structure.
NOTE: The first item in the argument vector table is the pointer to
the service registry path string.
Arguments:
lpThreadStartupParms - This is a pointer to the ThreadStartupParms
structure. (This is a unicode structure);
Return Value:
--*/
{
//
// Call the Service's Main Routine.
//
((LPSERVICE_MAIN_FUNCTIONW)lpThreadStartupParms->ServiceStartRoutine) (
lpThreadStartupParms->NumArgs,
&lpThreadStartupParms->VectorTable);
LocalFree(lpThreadStartupParms);
return(0);
}
DWORD
ScSvcctrlThreadA(
IN LPTHREAD_STARTUP_PARMSA lpThreadStartupParms
)
/*++
Routine Description:
This is the thread for the newly started service. This code
calls the service's main thread with parameters from the
ThreadStartupParms structure.
NOTE: The first item in the argument vector table is the pointer to
the service registry path string.
Arguments:
lpThreadStartupParms - This is a pointer to the ThreadStartupParms
structure. (This is a unicode structure);
Return Value:
--*/
{
//
// Call the Service's Main Routine.
//
// NOTE: The first item in the argument vector table is the pointer to
// the service registry path string.
//
((LPSERVICE_MAIN_FUNCTIONA)lpThreadStartupParms->ServiceStartRoutine) (
lpThreadStartupParms->NumArgs,
&lpThreadStartupParms->VectorTable);
LocalFree(lpThreadStartupParms);
return(0);
}