FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconnectar
|
Español
Inicio
→
WINDEV 2024
→
ExeLancé()
ExeLancé()
Iniciado por philippe.pasquali, 13,mar. 2006 21:08 - 1 respuesta
Conéctese…
philippe.pasquali
#1
Publicado el 13,marzo 2006 - 21:08
Informar
0
0
philippe.pasquali
#2
Publicado el 14,marzo 2006 - 11:59
Tien mon le cors du message précédent à disparu ! Bon c'est pas grave, la question portait sur la fonction ExeLancé() qui renvoie le nombre d'occurrence d'un programme lancé MAIS UNIQUEMENT POUR L'UTILISATEUR LOGGE ! Hors je lance une application sous un autre profil et ExeLancé() renoie 0.
J'ai donc trouvé en passant par la fonction suivante
PROCEDURE EnumProcess()
objWMIService est un objet Automation "MSScriptControl.ScriptControl"
ProgrammeVbs est une chaîne
ResultatVbs est une chaîne
ProgrammeVbs = "Function EnumProcess()" +CRLF
ProgrammeVbs += "On Error Resume Next" +CRLF
ProgrammeVbs += "strComputer = "+Caract(34) + "." + Caract(34) + CRLF
ProgrammeVbs += "strResult = "+Caract(34)+Caract(34) + CRLF
ProgrammeVbs += "Set objWMIService = GetObject("+Caract(34)+"winmgmts:\\"+Caract(34)+" & strComputer & "+Caract(34)+"\root\cimv2"+Caract(34)+")" + CRLF
ProgrammeVbs += "Set colItems = objWMIService.ExecQuery("+Caract(34)+"Select * from Win32_Process"+Caract(34)+",,48)" + CRLF
ProgrammeVbs += "For Each objItem in colItems" + CRLF
ProgrammeVbs += "strResult = strResult & objItem.Caption & chr(9)" + CRLF
ProgrammeVbs += "strResult = strResult & objItem.ExecutablePath & chr(13) &chr(10)" + CRLF
ProgrammeVbs += "Next" + CRLF
ProgrammeVbs += "EnumProcess = strResult" + CRLF
ProgrammeVbs += "End Function"
objWMIService>>Language("VBScript")
objWMIService>>Reset()
WHEN EXCEPTION IN
objWMIService>>AddCode(ProgrammeVbs)
DO
Erreur("Erreur dans le programme vbs...")
RENVOYER ""
END
ResultatVbs = ""
WHEN EXCEPTION IN
ResultatVbs = objWMIService>>Eval("EnumProcess()")
DO
Erreur("Erreur d'execution du programme vbs")
RENVOYER ""
END
IF ResultatVbs<>"" THEN ResultatVbs = ResultatVbs[[1 sur Taille(ResultatVbs)-2]]
RENVOYER ResultatVbs
Elle renvoie une chaine <Nom> tab <chemin> crlf <Nom> tab <chemin> crlf...<Nom> tab <chemin>
de tout les processus.
Par contre je n'ai pas testé sous un compte lambda
Informar
0
0
→ Volver a WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV 26
WINDEV 2024
WINDEV 2024
WINDEV 2024
WINDEV 25
WEBDEV 2024
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV (versiones precedentes)
WINDEV (versiones precedentes)
WINDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WINDEV Mobile (versiones precedentes)
WINDEV Mobile (versiones precedentes)
Reports & Queries
Reports & Queries
Irrelevante
Irrelevante
Herramientas
Herramientas
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto