Petit controleur de process

Contenu du snippet

Controle en permanence les processes
ecrit dans un fichier text "loggeur.txt" les nom des application fraichement lancer ou qui se lance tout seul ( avous d'ouvrir ce fichier texte de temps en temps ) avec date et heure, un sorte de petit espion.
script a arreter a partir du gestionnaire des tache

Source / Exemple :


Dim fso,rapor,tab1(50),tab2(50),i,j,k

Set fso = CreateObject("Scripting.FileSystemObject") 
Set rapor= fso.OpenTextFile("loggeur.txt",8)  
rapor.WriteLine("Controleur de Process le "&Now)
Set wmobj = Getobject("WinMgmts:{impersonationLevel=impersonate}")

temps=Now 
heure=Hour(temps)

Do while heure<20
i=0
j=0

Set test=wmobj.ExecQuery("Select * from Win32_Process")
For each valeur in test 
tab1(i)=valeur.Name

i=i+1
Next

Wscript.sleep(2000)
Set test=wmobj.ExecQuery("Select * from Win32_Process")
For each valeur in test 
tab2(j)=valeur.Name

j=j+1
Next
k=j
i=0
j=0

Wscript.sleep(200)

Do while i<k+5

 If tab1(i)<>tab2(i) Then
  rapor.WriteLine("Process supplementaire a "&Now&" : "&tab2(i))
  rapor.WriteBlankLines(1)

  i=i+1
 else
  i=i+1
 End If 
Loop
  
Loop

Conclusion :


des fois il ecrit pas tout
mais je vais amelioré et je mettrait une petite messagebox qui avertirat quand un process se lance tout en ayant la possibilité de sauvegarder les noms de process dont on ne veut plus etre avertit de leur execution

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.