1 2 3 4 5 6 7 8 9 10 11 12
| Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.CreateTextFile("c:\Listeproces.txt" )
strComputer1 = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
For Each objItem in colItems
objFile.WriteLine (objItem.Caption)
colProperties = objItem.GetOwner(strNameOfUser,strUserDomain)
objFile.WriteLine "Propriétaire du processus = " & strNameOfUser & "."
next |
Partager