Pb objProcess.GetOwner(UserName)
Pb objProcess.GetOwner(UserName) - VB/VBA/VBS - Programmation
Sujets relatifs:
- ALTER USER userName RENAME TO newUserName/import export
- [struts] Hello 'username'
- [SOLUTION] pour obtenir le nom de session (username) depuis php
- Récupérer les USERNAME D'un intranet en ASP.NET
- [Fixed!][HTML] (Form) 'action' avec variables en GET ? (Pb)
- Récupérer le username windows dans une page
- username et computername sous winwin9x
- username
- username & windows 98
Marsh Posté le 18-07-2006 à 12:47:45
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 :
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....