Lister les DLLs chargées par un processus

Salut tout le monde,

J'ai trouvé ce code qui fait le boulot mais :
- Il liste les DLLs chargées par le processus explorer.exe
- Les noms des DLLS sont affichés dans des message boxes.

Je ne connais que des rudiments en VBS. Quelqu'un pourrait m'aider à modifier ce code pour qu'il :
- Liste les DLLs d'un processus dont je précise le nom ou PID à l'avance dans le code.
- Les résultats (noms des DLLs) sont mis dans une variable.

Merci à vous.

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
 WScript.Echo "Detail information of the modules loaded into the running processes:"
 WScript.Echo vbCrLf
 WScript.Sleep 3000
 WScript.Echo vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab& vbTab&"CreationTime          Manufacturer"
 Set OBJWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 Set OBJRefresher = CreateObject("WbemScripting.SWbemRefresher")
 Set colItems = OBJRefresher.AddEnum(OBJWMIService,"Win32_PerfFormattedData_PerfProc_FullImage_Costly").ObjectSet
 OBJRefresher.Refresh
 For Each OBJItem In colItems
   Dim originalPath, ModulePath, WMIPathMode, FileManufacturer, LCaseModulePath
 Dim FileExtension, mark, MyLCaseModulePath, FinalModulePath
   originalPath = OBJItem.Name
   ModulePath = Split(originalPath,"/")
   WMIPathMode = Replace(ModulePath(1),"\","\\")
   Set OBJWMI = GetObject("winmgmts:\\.\root\CIMV2")
   Set colManufacturer = OBJWMI.ExecQuery("SELECT * FROM CIM_DataFile Where Name='" & WMIPathMode & "'")
   For Each OBJManufacturer In colManufacturer
   FileManufacturer=Trim(OBJManufacturer.Manufacturer)
   LCaseModulePath=LCase(Trim(OBJManufacturer.Name))
   FileExtension=Right(LCaseModulePath, 3)
   MyLCaseModulePath=LCaseModulePath & "                                                                                                         "
    Set FSO = CreateObject("Scripting.FileSystemObject").GetFile(LCaseModulePath)
       If FileExtension="exe" Then
         mark="©À¡ª"
      FinalModulePath=Mid(MyLCaseModulePath,1,118)
      WScript.Echo "©¦"    
     Else
               mark="©¦©À©¤"
      FinalModulePath=Mid(MyLCaseModulePath,1,116)
     End If
    WScript.Echo mark & FinalModulePath & FSO.DateCreated &vbTab& FileManufacturer
 Next
 Next