Wiki Home

Windows Services


Namespace: WIN_COM_API
See Also: Windows Service
Cuantas veces quisimos saber el estado de un servicio de Windows, no importa en que pc , sencillamente nos preguntabamos si se podia desde vfp ?

Aqui tienen una manera de realizarlo

Ejemplo se uso
 ViewServices(".",1) && Modo Local, Todos los iniciados
*
* Autor : Christian Gutman
* Release : 1.0 (2003.02.20)
*
FUNCTION ViewServices
PARAMETERS Station As String, ViewService As Number
*  Lista Todos los Servicios segun parametro
*
*
* Station = Nombre Pc a Conectar de W2000 para arriba
*           o puede ser Windows98 con Wmi instalado
* ViewService = 1=Iniciado / 2=Detenido / 3=Pausado
*
* Pendiente de Resolver :
*
* 1.Si es Win98 No Corre
* 2.Si no recibe parametro no ejecuta

CLEAR
lcStation = Station
objWMIService=Getobject("winmgmts:{impersonationLevel=impersonate}!\\"+lcStation+"\root\cimv2")
DO CASE
   CASE ViewService = 1
     ActionViewService='Running'
   CASE ViewService = 2
     ActionViewService='Stopped'
   CASE ViewService = 3
     ActionViewService='Paused'
ENDCASE

colServices=objWMIService.ExecQuery("Select * from Win32_Service Where State = '"+ActionViewService+"'")

CREATE CURSOR Servicios ;
 (Descripcion c(60))

For Each objService in colServices
Servicio=objService.DisplayName
 INSERT INTO Servicios (Descripcion) VALUES (Servicio)
Next

Release lcStation, colServices, objService


BROWSE FIELDS Descripcion FONT 'Arial,4';
 NAME Service NOAPPEND NODELETE NOMODIFY;
  NOLGRID NORGRID NOMENU TITLE "SERVICIOS"
( Topic last updated: 2004.12.13 10:36:31 AM )