Xailer & OZ Software

Buenos dí­as.
He buscado en los foros Inglés/Español y no he encontrado post alguno que haga referencia a las dudas que tengo:
¿Es posible crear un listado de los servicios existentes actualmente en la máquina?
¿Tendré que recurrir a ejecutar comandos del sistema Windows, redirigirlos a algún txt y después manipularlo?
Gracias por todo y un saludo.

El 20/09/2011 12:55, Joan Ramón escribió:
> Buenos dí­as.
>
> He buscado en los foros Inglés/Español y no he encontrado
> post alguno que haga referencia a las dudas que tengo:
>
> ¿Es posible crear un listado de los servicios existentes
> actualmente en la máquina?
> ¿Tendré que recurrir a ejecutar comandos del sistema
> Windows, redirigirlos a algún txt y después manipularlo?
>
> Gracias por todo y un saludo.
Yo dejo hace mucho tiempo , precisamente un ejemplo de lo que buscas.
Tiene que estar en los foros de Xailer.

Busca por "Información sobre servicios" en este foro.
También fue subido a la Wiki de Xailer si mal no recuerdo.
Saludos

Gracias por tu respuesta rafa, por ahora lo que he hecho es crear un fichero BAT en el directorio temporal con el comando "SC QUERY <nombreservicio> > <fichero.txt>" para luego manipular los resultados.
De todas maneras voy a buscar mejor en el foro, que me interesa.

Olá, veja se é isso que voce quer
FUNCTION main
LOCAL matriz
matriz:=StatusExe()
FOR I=1 TO LEN(matriz)
? matriz
next
RETURN.T.
#include "common.ch"
* STATUSEXE() && Verifica quais sao os executaveis ativos retorna array
* STATUSEXE("TESTE.EXE",1) && Verifica se o executavel esta ativo retorna .T. ou ..F.
FUNCTION STATUSEXE(cExecutavel,nDERRUBA) && Exemplo postado no PCTOLEDO:, Leonardo Machado, alterada por José Alves Siqueira
Local aNomesProcesso:={},oScriptObj, oWmiService, oListaProcess, oProcessos, lRET:=.F. //oWmiService=Service_WMI()
DEFAULT nDERRUBA TO 0
TRY
oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
oWmiService=oScriptObj:ConnectServer()
CATCH
RETURN IIF(nDERRUBA=0,aNomesProcesso,lRET)
END
TRY
oListaProcess=oWmiService:ExecQuery("select * from Win32_Process"+IIF(nDERRUBA=0,""," where Name='"+cExecutavel+"'"))
CATCH
RETURN IIF(nDERRUBA=0,aNomesProcesso,lRET)
END
FOR Each oProcessos in oListaProcess
nomeprocesso:=oProcessos:Name()
AADD(aNomesProcesso,nomeprocesso)
lRET:=.t.
IF nDERRUBA=2
oProcessos:Terminate() // derruba o EXE
ENDIF
NEXT
RETURN IIF(nDERRUBA=0,aNomesProcesso,lRET)
José Alves Siqueira

Aquí­ te dejo un ejemplo que alguien puso hace tiempo.
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
zeasoftware@hotmail.com
"Joan Ramón" escribió en el mensaje de
noticias:4e78711b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Buenos dí­as.
He buscado en los foros Inglés/Español y no he encontrado
post alguno que haga referencia a las dudas que tengo:
¿Es posible crear un listado de los servicios existentes
actualmente en la máquina?
¿Tendré que recurrir a ejecutar comandos del sistema
Windows, redirigirlos a algún txt y después manipularlo?
Gracias por todo y un saludo.
--

Attached files servicios de Windows.zip (3 KB)Â

¡Muchas gracias a todos, los ejemplos me han sido de gran ayuda!.