• Advertisement

Controler un Processus systeme

Tout ce qui concerne la version 11 & plus récentes de windev

**Windev est une marque déposée de Pcsoft**

Controler un Processus systeme

Messagepar wakiza » Mar Sep 14, 2010 2:49 pm

Bonjour

Je développe un programme sur Windev15 me servant a contrôler des informations sur des serveurs.
1 logiciel client (moi) qui me sert a demander l'état d'un processus ou d'une application.
1 logiciel serveur qui me retourne les informations suivant la requête que je lui ai fait.

tout fonctionne a merveille avec des processus et des services lancer par l'utilisateur courant, et la survient mon problème...
je cherche a contrôler si TeamViever est installer sur le serveur cibler(sa il n y a pas de problème), l'exécuter a distance(sa fonctionne aussi), voir si il est en cours d'exécution(sa je n'y arrive pas), et le fermer(sa ne marche pas non plus).

en faite teamviewer host(version que j emploie) est exécuter par le système et je ne peux pas voir les processus système n'y les kill.

si quelqu'un a une solution pour modifier un processus système je suis tout ouïe. merci d'avance!

voici le code que mon SRV traite selon ce qu'il reçoit.

CAS "TeamViewer"
ListeAjoute(FEN_Gestion_envoi.LISTE_Console,HeureVersChaîne(HeureSys(),"HH:MM:SS")+" Teste de TeamViewer")
ListeAjoute(FEN_Gestion_envoi.LISTE_Console,ExeListeProcessus(exeNomCourt))


lsRésultat = ServiceEtat("TeamViewer5",NetAdresseIP())
SI lsRésultat = -1 ALORS
INFOSRV = "TeamViewer inexistant"
SINON
TeamViewerExe est un entier = ExeLancé("teamviewer.exe")
ListeAjoute(FEN_Gestion_envoi.LISTE_Console,HeureVersChaîne(HeureSys(),"HH:MM:SS")+"valeur d'execution retourné : "+TeamViewerExe)
SI TeamViewerExe > 0 ALORS
INFOSRV = ("TeamViewer est installé : executer ")
SINON
INFOSRV = "TeamViewer est installé :non executer"
FIN

FIN

Envoie_des_données(canal,INFOSRV)

CAS "ActiveTeamViewer"
ListeAjoute(FEN_Gestion_envoi.LISTE_Console,HeureVersChaîne(HeureSys(),"HH:MM:SS")+" Execution de TeamViewer")
SI LanceAppli("C:\Program Files (x86)\TeamViewer\Version5\TeamViewer.exe") ALORS
INFOSRV = "TeamViewer à été lancer avec succes"
SINON
INFOSRV = "Erreur lors de l'execution de TeamViewer"
FIN

Envoie_des_données(canal,INFOSRV)

CAS "TermineTeamViewer"
ListeAjoute(FEN_Gestion_envoi.LISTE_Console,HeureVersChaîne(HeureSys(),"HH:MM:SS")+" Fermeture de TeamViewer")

SI ExeTermine("teamviewer.exe") ALORS
INFOSRV = "TeamViewer à été terminé avec succes"
SINON
INFOSRV = "Erreur lors de la fermeture de TeamViewer"
FIN
Envoie_des_données(canal,INFOSRV)
wakiza
Nouveau Membre
 
Messages: 2
Inscription: Mar Sep 14, 2010 2:33 pm

Advertisement


  • Advertisement

Retourner vers Forum windev 11 & plus récentes

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités