[RESUELTO]Obtener lista de procesos del pc

[daniel.r.23]

Buenas, haber si alguien me puede ayudar a como obtener la lista de procesos del sistema. alguna idea???

Editado: Editado por el moderador Mauricio para quitar el icono de la flama que solo sirve para reportar errores, por favor, si no lo haz hecho, lee nuestra guia de uso de este foro, gracias

[fornelasa]

¿Qué debe entenderse por una lista de procesos del pc? ..... ¿podemos ser un poco más claros? ..... no parece ser un tema para este foro.
No digo que lo resolveré .....
Saludos, Federico.

[daniel.r.23]

Buenas disculpen, lo que estoy buscando es hacer un metodo que me guarde en un array o lista la lista de procesos que figuran en el administrador de tareas.

[mauricio]

y eso?, como para que lo vas a usar dentro de OpenOffice?...

[daniel.r.23]

Para saber cuando un programa externo programado en ruby termina de ejecutarse

[fornelasa]

ummmmmm, y si al codigo Ruby que "corre" tal programa le agregamos al final una linea similar que diga:

Código: Seleccionar todo   Expandir vistaContraer vista

oRespuesta = Msgbox("Proceso finalizado correctamente", 1)

¿porque no?

Saludos, Federico.

[daniel.r.23]

Esto no me serviria de mucho, ya que al recibir el mensaje y darle aceptar la planilla no seguiria con la ejecución de su código. La planilla ejecuta el exe yla idea es que verifique cuando arranca y cuando termina para ejecutar otro código.

[mauricio]

bueno pude encontrar como solucionar el tema que inicie, en un foro una persona quería hacer algo en una red desde una macro y creó un script ya que ooo basic no trabaja con COM.
Agarre ese script y lo adapte ya que lo que necesito hacer es mediante COM y ooo basic no lo incorpora.
Dejo el cód.

Código: Seleccionar todo   Expandir vistaContraer vista

oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
VBScript= oleService.createInstance("MSScriptControl.ScriptControl")
VBScript.Language = "VBScript"

s = ""
s = s + "Public DescrArray()" + Chr(10)     
s = s + "Set oWMIService = GetObject(""winmgmts:\\"")" + Chr(10)
s = s + "Set colProcesses = oWMIService.ExecQuery(""Select * from Win32_Process"")" + Chr(10)
s = s + "ReDim DescrArray(colProcesses.Count-1)" + Chr(10)
s = s + "k = 0" + Chr(10)
s = s + "For Each process in colProcesses" + Chr(10)
s = s + "  DescrArray(k) = process.Name" + Chr(10)
s = s + "  k = k + 1" + Chr(10)
s = s + "Next" + Chr(10)

VBScript.ExecuteStatement(s)
DescrArray = VBScript.CodeObject.DescrArray


Pueden dar por solucionado el tema!!!

[mauricio]

Si tu macro ejecuta el programa externo y tiene que esperar a que termine, es mucho más sencillo controlarlo desde el mismo, en Python es trivial..

Código: Seleccionar todo   Expandir vistaContraer vista

import subprocess

print ('Antes de ejecutar')
subprocess.check_output('gnome-calculator', stderr=subprocess.STDOUT)
print ('Después de ejecutar')

Por favor, si consideras que el tema esta resuelto, tu mismo debes de marcarlo como tal, mira aquí como: https://forum.openoffice.org/es/forum/v ... 2333#p2333