Bonjour,
J'ai un soucis avec cet objet.
SReturn = objProcess.GetOwner(UserName)
J'ai une erreur :
erreur : Echec du Fournisseur
Code : 80041004
Source : SWbemObjectEx
Ce tiens à préciser que ce script marchait bien jusqu'au changement de la machine sur laquelle il tourne. ( Windows 2003 Enterprise )
Y a t-il un service ou autre que le VBS ai Besoin ?
voici mon code :
Citation :
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process" )
For Each objProcess in colProcess
SReturn = objProcess.GetOwner(UserName)
If SProcessName = objProcess.Name Then
MsgBox "If " & SProcessName & " = " & objProcess.Name & " Then"
MsgBox "If " & SUserName & " = " & UserName & " Then"
If SUserName = UserName Then
MsgBox "je rentrer dans le IF"
objTextFile.WriteLine objProcess.Name & " " & objProcess.ProcessID & " " & UserName & vbCr
End If
End If
Next
|
Merci pour votre aide....
