Discussion :

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Utilisation non autorisé de Null Dans la ligne 17

Alors je sollicite votre aide

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[l_autodidacte]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 à vous
Donc le Problème est