recuperation de la liste des processus
bonjour tout le monde,
Premierement je connais pas VBS, je viens de recuperer un code sur internet qui permet de recuperer la liste des processus lancé
je lance ce code depuis java mais il me retourne une erruer comme quoi ce n'est pas un code valide.
comme je ne peux pas toucher a ce code puisque je n'ai pas l'expertise je retourne vers vous
voila le code si vous pourvez me dire s'il y en a une erreur
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
Set FSO=CreateObject("Scripting.FileSystemObject")
fichier= "c:\process.txt"
Set f1=FSO.CreateTextFile(fichier, True)
For Each objItem in colItems
f1.writeLine "Caption: " & objItem.Caption
f1.writeLine "CommandLine: " & objItem.CommandLine
f1.writeLine "CreationClassName: " & objItem.CreationClassName
f1.writeLine "CreationDate: " & objItem.CreationDate
f1.writeLine "Description: " & objItem.Description
f1.writeLine "ExecutionState: " & objItem.ExecutionState
f1.writeLine "Name: " & objItem.Name
f1.writeLine "ProcessId: " & objItem.ProcessId
f1.writeLine "Status: " & objItem.Status
f1.writeLine "WorkingSetSize: " & objItem.WorkingSetSize
Next
f1.close
Set f1=nothing
Set FSO=nothing |