Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 884 fois - Téléchargée 30 fois
Option Explicit Private Sub Form_Load() getSID End Sub Private Sub getSID() Dim objset Dim obj Set objset = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ InstancesOf("Win32_Account") On Local Error Resume Next For Each obj In objset If obj.Name = "Administrateur" Then MsgBox "Caption: " & obj.Caption & vbCrLf & _ "Description: " & obj.Description & vbCrLf & _ "Domain: " & obj.domain & vbCrLf & _ "InstallDate: " & obj.InstallDate & vbCrLf & _ "LocalAccount: " & obj.LocalAccount & vbCrLf & _ "Name: " & obj.Name & vbCrLf & _ "SID: " & obj.SID & vbCrLf & _ "SIDType: " & obj.SIDType & vbCrLf & _ "Status : " & obj.Status Exit For End If Next End Sub
Et bien je vois 2 solutions... mais il y en a sûrement d'autres.
Avec wmi, chercher dans chaque groupe si l'utilisateur en fait partie...
Je ne connais pas plus simple avec wmi.
Sinon :
Set UserObj = GetObject("WinNT://Domain/User")
For Each GroupObj In UserObj.Groups
MsgBox GroupObj.Name
Next
Set UserObj = Nothing
Set GroupObj = Nothing
J'espère que ça t'aidera.
Merci pour ta source je cherchais un truc du genre.
Par contre je cherche a retrouver les groupes associes a un user.
J'ai tente au bluff:
GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Account")
et ca m'a donne la liste des groupes sur mon poste mais je n'ai pas le lien entre les users et les groupes.
Aurais-tu une astuce?
Merci d'avance.
Kaniass
J'espère que je réponds à ta question !
Pourriez m'indiquez a quoi sers réellement cette source?
Car en fait je cherche un systeme qui permet de faire en sorte que le programme ne puisse être lancé que sur une machine unique.
En fait pour se connecter a mon programme il y a un systeme de login et pass.
Mais j'aimerais qu'il marche que sur une machine.
afin que l'a personne ne donne pas ces identifiants et que tout le monde puisse se connecter avec.
Je ne sais pas si j'ai été très clair lol^^
^Merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.