Listar servicios en Windows

[Shadax]

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.

[rafa]

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.

[rafa]

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

[Shadax]

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.

[ze_pcinfor]

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

[zeasoftware]

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)Â

[Shadax]

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