KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Q295840: HOWTO: Determine if a Service Exists Using Visual FoxPro

Article: Q295840
Product(s): Microsoft FoxPro
Version(s): 5.0,5.0a,6.0
Operating System(s): 
Keyword(s): kbAPI kbvfp500 kbvfp500a kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet
Last Modified: 28-APR-2001

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

Occasionally, the installation, configuration, or successful execution of a
custom application written with Visual FoxPro (VFP) is dependent on the
existence of a particular service. Given a valid computer and service name, the
code in this article will let you determine if a particular service exists.

MORE INFORMATION
================

Services are a component of the Microsoft Windows NT and Microsoft Windows 2000
operating systems. A service is defined as:

  "A program, routine, or process that performs a specific system function to
  support other programs, particularly at a low (close to the hardware) level."

When executed on a computer running Microsoft Windows NT or Microsoft Windows
2000, the following VFP code determines if the "IISADMIN" service is present on
the local computer (regardless of whether it is running or not).

To use this code, follow these steps:

1. Start Visual FoxPro and create a new program.

2. Paste the following code in the program window:

  #DEFINE ThisMachine	SUBSTR(SYS(0),1,ATC(" ",SYS(0))-1)

  ? ServiceExist("IISADMIN",ThisMachine)

  PROCEDURE ServiceExist(lcServiceName, lcMachineName)
  *~	Prevent this procedure from running
  *~ 	if we're not on NT/2000.
  	IF !INLIST(UPPER(OS()),"WINDOWS 5.00","WINDOWS NT 4.00")
  		RETURN .F.
  	ENDIF

  	#DEFINE GENERIC_READ	0x80000000
  	DECLARE INTEGER OpenSCManager IN advapi32.DLL ;
  		STRING, STRING, INTEGER
  	DECLARE INTEGER OpenService IN advapi32.DLL ;
  		INTEGER, STRING, INTEGER

  	LOCAL liSCM, liService
  	liSCM = OpenSCManager(lcMachineName, NULL, GENERIC_READ)
  	IF !(liSCM > 0)
  		RETURN .F.
  	ENDIF
  	liService = OpenService(liSCM, lcServiceName, GENERIC_READ)

  	RETURN IIF(liService > 0, .T.,.F.)
  ENDPROC

3. Save and then run the program.

4. If the IISADMIN service is present on the local computer, a .T. is printed to
  _SCREEN; if not, a .F. is printed.

REFERENCES
==========

(c) Microsoft Corporation 2000, All Rights Reserved. Contributions by Trevor
Hancock and Mike Stewart, Microsoft Corporation.


Additional query words:

======================================================================
Keywords          : kbAPI kbvfp500 kbvfp500a kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : :5.0,5.0a,6.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.