Lister tous les processus avec leurs chemins en ligne de commande

Version imprimable

:salut:
je veux lister tous les processus avec leurs chemeins en ligne de commande comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
NomFichierLog="Processus.txt"
temp = sho.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process")
 
For Each objProcess in colProcessList
    MsgBox objProcess.Name
    msgbox Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 2)
Next

mais hélas j'ai cette erreur

Citation:

Utilisation non autorisé de Null Dans la ligne 17

Alors je sollicite votre aide :merci:

Cela doit t'arriver quand CommandLine et nul ... pour palier :

Code:

1
2
3
4
 
 wScript.echo " ---------->  " & objProcess.Name & ">" & objProcess.CommandLine & "<"
	st ="" & objProcess.CommandLine 
    wScript.echo  Mid(st,InStr(st,""" """) + 2)

J'ajouterais ceci : Si tu veux uniquement les processus ayant une ligne de commande teste ce
Code:

1 2 3 4 5 6 For Each objProcess in colProcessList If objProcess.CommandLine <> "" then MsgBox objProcess.Name If MsgBox(Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 1),VbYesNo)=vbNo Then Wscript.Quit(0) End If Next
Mais si tu veux tous les processus, déplace l'instruction

Code:

MsgBox objProcess.Name

juste avant la première condition.
A remarquer que la condition "If MsgBox(Mid...." est là juste pour pouvoir arrêter le script au moment voulu.

Citation:
Envoyé par bbil
Cela doit t'arriver quand CommandLine et nul ... pour palier :
Code:

1 2 3 4 wScript.echo " ----------> " & objProcess.Name & ">" & objProcess.CommandLine & "<" st ="" & objProcess.CommandLine wScript.echo Mid(st,InStr(st,""" """) + 2)
Citation:
Envoyé par l_autodidacte
J'ajouterais ceci : Si tu veux uniquement les processus ayant une ligne de commande teste ce
Code:

1 2 3 4 5 6 For Each objProcess in colProcessList If objProcess.CommandLine <> "" then MsgBox objProcess.Name If MsgBox(Mid(objProcess.CommandLine,InStr(objProcess.CommandLine,""" """) + 1),VbYesNo)=vbNo Then Wscript.Quit(0) End If Next
Mais si tu veux tous les processus, déplace l'instruction

Code:

MsgBox objProcess.Name

juste avant la première condition.
A remarquer que la condition "If MsgBox(Mid...." est là juste pour pouvoir arrêter le script au moment voulu.
un grand :merci: à vous :ccool:
Donc le Problème est :resolu: