Comment Tuer un processus bien déterminé crée par wscript.exe connaissant son nom du fichier VBS ?

Version imprimable

11/04/2011, 13h15
hackoofr

Comment Tuer un processus bien déterminé crée par wscript.exe connaissant son nom du fichier VBS ?

:salut: chers membres ;)
J'ai consulté la :faq: pour savoir Comment "tuer" un processus en mémoire ?
Donc mon Objectif est Comment Tuer un processus bien déterminé crée par wscript.exe connaissant son nom du fichier VBS ?
Par exemple si j'ai lancé un script nommé fichier1.vbs qui est en cours d'execution en boucle par exemple et je veux faire un autre script nommé fichier2.vbs qui va terminer le processus crée par le fichier1.vbs.
est-ce-que c'est possible ou non ?? :koi:
:merci:

salut,
un point de départ, je te laisse terminer ;)

Code:

1
2
3
4
5
6
7
8
9
10
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'wscript.exe'")
 
For Each objProcess in colProcessList
    msgbox Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2)
Next

Si tu connais le PID (processus ID) et/ou le PPID (Parent Processus ID) du process à killer, tu peux filtrer par rapport à ces deux paramètres à la place de Name dans l'exemple proposé par omen999.

Si tu lances un processus via le fichier VBS tu peux obtenir le PID comme ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") ' Obtain the definition of the class. Set objShare = objWMIService.Get("Win32_Process") ' Obtain an InParameters object specific ' to the method. Set objInParam = objShare.Methods_("Create"). _ inParameters.SpawnInstance_() ' Add the input parameters. ' Execute the method and obtain the return status. ' The OutParameters object in objOutParams ' is created by the provider. Set objOutParams = objWMIService.ExecMethod("Win32_Process", "Create", objInParam) ' List OutParams Wscript.Echo "Out Parameters: " Wscript.echo "ProcessId: " & objOutParams.ProcessId Wscript.echo "ReturnValue: " & objOutParams.ReturnValue
Je te laisse imaginer quoi faire avec cela.

12/04/2011, 14h55
omen999

Citation:

Si tu lances un processus via le fichier VBS tu peux obtenir le PID comme ci-dessous :

tu peux faire la même chose plus simplement sans passer par wmi :aie:
http://www.developpez.net/forums/d10...pt-controlant/(message n°5)
ProcessId ne figure pas dans le fichier doc...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Erreur, PID, Adresse_IP
Dim path_executable  'le chemin de ton exe
Dim executable 'l'exe
Adresse_IP = "." 'l'adresse IP d'un PC local ou distant.
path_executable = "C:\Windows\System32\"
executable = "notepad.exe"
Set objWMIService = GetObject("winmgmts:\\" & Adresse_IP & "\root\cimv2:Win32_Process")
Erreur = objWMIService.Create(executable, path_executable, null, PID)
Set objWMIService = Nothing
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(Adresse_IP, "root\CIMV2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessID = '" & PID & "'")
If colProcessList.count = 0 Then
   'L'exe n'est pas présent, alors tu peux le lancer.
   msgbox("Notepad n'est pas en cours d'exécution")
else
   msgbox("Notepad est en cours d'exécution")
End If

Un peu mieux que mon précédent script et cela marche.

:salut: à Tous !
Bon :merci: pour vos réponses mais j'ai pas trouvé encore de solution optimale jusqu'à maintenant pour tuer un processus bien ciblé qui est générer par le wscript.exe connaissant son nom de fichier mais je vais le mettre comme :resolu:
et voila peut-être ça peut servir a d'autres membres par exemple pour détecter et analyser les programmes malveillants (Malwares) crée par le wscript.exe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
NomFichierLog="Processus VBScript.txt"
temp = sho.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
count=0 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'wscript.exe'")
 
For Each objProcess in colProcessList
    count= count + 1
    msgbox Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2),64," Processus VBScript en cours d'exécution "
    OutPut.WriteLine Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2)
	OutPut.WriteLine
Next
OutPut.WriteLine
OutPut.WriteLine count & " Processus VBScript en cours d'exécution"
Explorer(PathNomFichierLog)
 
Function Explorer(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Explorer "& File & "\"
end Function

Le problème est bien résolu et pour de bon cette fois-ci !

:salut:
Maintenant le problème est bien :resolu: :plusser: :king: et pour de bon cette fois-ci :mouarf: :zoubi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
NomFichierLog="Processus VBScript.txt"
temp = sho.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
count=0 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'wscript.exe'")
 
For Each objProcess in colProcessList
    count= count + 1
    msgbox Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2),64," Processus VBScript en cours d'exécution "
    OutPut.WriteLine Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2)
	OutPut.WriteLine
Next
OutPut.WriteLine
OutPut.WriteLine count & " Processus VBScript en cours d'exécution"
Explorer(PathNomFichierLog)
 
Function Explorer(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Explorer "& File & "\"
end Function
' FindScript.vbs
Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _
             & "Where Name like '%wscript.exe%' AND NOT commandline like '%" & wsh.scriptname & "%'",,48)
For Each objItem in colItems
    Wscript.Echo "Terminating script with this CommandLine: " & objItem.CommandLine
    objItem.Terminate(1)
Next