[VBS & WMI] récuperation processus distant

Bonjour a tous,

je galère depuis un pti bout de temps sur un truc qui pourra vous paraitre simple.
Je dois réaliser des script dont un qui doivent vérifier par WMI si les processus contenu dans un tableau tourne sur un pc distant, et l'intégrer dans une feuille excel.
Je récupere un fichier CSV qui ressemble a celui en piece jointe. Une de ses particularité c qu'il contient deux séparateur différent. Ainsi, je crée un premier tableau avec Split et ";" pour pouvoir récupéré l'élément IP d'une machine de ce tableau, et je split le troisieme élément du tableau avec le séparateur "," pour pouvoir obtenir un tableau de tous les processus que je veux surveiller pour la machine concerné.

En fait, j'ai trouvé pas mal de script mais je n'arrive pas a les intégrer correctement. Le premier peut me lire un fichier csv, le second peu me vérifier que tel processus est lancé sur une machine via WMI...j'ai essayé de les fusionner, mais j'ai une erreur a la ligne 26 de mon code...
Quelqu'un pourrais me filer un coup de main ? merci

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

Const ForReading = 1   Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("C:\Modification CSV\data\bob45.csv", ForReading) i = 0   Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline 'decoupage des ligne pour obtenir mes variables : insertion = strNextLine.Split(",") insertionprocessus = insertionprocessus(2).Split(";") 'récupération de l'ip de la machine a tester strComputer = insertion(1)   'pour vérifier que les processus tournent :   For m = 0 to UBound(insertionprocessus) strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = insertionprocessus(m)")   If colProcesses.Count = 0 Then Wscript.Echo insertionprocessus(m) " is not running." Else Wscript.Echo insertionprocessus(m) " is running." End If next   i = i + 1 Loop

---

mea culpa pour les balises...

Bonjour !
j'ai modifié mon code et j'apporche de ma réussite ! Le voici...

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 36 37

On Error Resume Next   Const ForReading = 1   Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("C:\Modification CSV\data\bob45.csv", ForReading)   line = objTextFile.Readline   Do Until objTextFile.AtEndOfStream line = objTextFile.Readline insertion = Split(line,",",-1, 1) strComputer = insertion(1)   proco = insertion(2) insertionprocessus = Split(proco,";",-1, 1)   For Each proco in insertionprocessus   msgbox proco Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = ", proco )   If colProcesses.Count = 0 Then msgbox proco & " is not running." Else msgbox proco & " is running." End If   Next   Loop   objTextFile.Close

---

le "msgbox proco" me renvoie bien le processus que je veux tester. Le problème c'est que ma vérification par "if" me renvoie toujours que le processus n'est pas présent sur al machine testé (même en local!). Après quelques tests je pense que le problème viens de la ligne :

Code:

---

1 2 3

Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = ", proco )

---

En effet quand je remplace la variable "proco" dans cette ligne par une chaîne de caractère comme "lsass.exe", le if me renvoit bien un "lsass.exe is running". Ya t il un probleme avec l'utiliation de ma variable proco?

Merci pour votre aide !

je sais pas je mettrai bien des quotes...

Code:

---

1 2	("Select * from Win32_Process Where Name = '" & proco & "'")

---

Rebonjour,

ok j'ai trouvé il fallait mettre :

Code:

---

1 2 3

Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & proco & "'" )

---

ça marche, merci a ceux qui m'ont lu et bonne journée !

note => a dsl j'avai pas vu ta reponse bbil ! c t pas bien compliqué...