Récupération droit NTFS utilisateur VBA

Bonjour,

Je souhaiterais faire quelque chose mais, je ne sais pas si excel le permet.

Je peux récupérer facilement le nom de l'utilisateur de la session courante avec :

Application.UserName

De là j'aimerais parcourir la liste de groupe dont fait parti cet utilisateur.

Cela me permettrai de définir des listes d'autorisations dans mon programme excel, par rapport au groupe dont fait partie chacun de mes utilisateurs.

J'espère avoir été clair, si quelqu'un à une piste pour m'éclairer.

Merci.

Bonjour,

Selon mes brèves recherches, cela ne semble possible que sur un réseau d'entreprise en interrogeant l'AD.

ric

J'ai trouvé une solution en adaptant du vbs, j'ai une fonction checkGroupsUser qui me renvoie si mon utilisateur est dans le groupe.

Function checkGroupsUser(GroupName As String, Username As String) As Boolean

Dim strUsername As String
Dim objGroup    As Object
Dim objUser     As Object
Dim objNetwork  As Object

UserIsInGroup = False
strUsername = Username

Set objNetwork = CreateObject("WScript.Network")
Domain = objNetwork.UserDomain
strUsername = Domain & "/" & strUsername

Set objUser = GetObject("WinNT://" & strUsername & ",user")
If objUser Is Nothing Then
Else
    For Each objGroup In objUser.Groups
        If GroupName = objGroup.Name Then
            checkGroupsUser= True
            Exit For
        End If
    Next objGroup
End If

Set objNetwork = Nothing
Set objGroup = Nothing
Set objUser = Nothing

End Function

Je pense que ça devrait aller, mais si quelqu'un a une autre méthode.

Bonsoir

pour pouvoir récupérer le(s) groupe(s) d'appartenance d'un user je ne vois que cette méthode... connexion a AD et récupération de la liste des groupes....

petit script que j'utilise d'ailleurs sur mon réseau Pro....

A+

Fred