Trouver sid et autres infos utilisateur grâce à wmi

Commenter

Contenu du snippet

Tout est dans le titre...
La source n'est pas de moi, merci MSDN.
Je ne trouvais pas de moyen simple de le faire sur ce site alors je l'ajoute.
J'espère que ça pourra éviter à certains de chercher pendant des heures.

Source / Exemple : 


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

A voir également

S'inscrire maintenant

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.