La détermination d'un Utilisateur de l'Appartenance au Groupe à l'aide de VBA

Comment puis-je déterminer si un utilisateur, dans le dire de l'Accès, est un membre d'un Groupe de Sécurité Active Directory?

Je préfère ne pas la construction d'un système d'authentification dans ma petite Access DB.

Grâce

OriginalL'auteur Allain Lalonde | 2009-01-06

  1. 12

    Allain trouvé ce en ligne

    Function IsMember(strDomain As String, strGroup _
  As String, strMember As String) As Boolean
  Dim grp As Object
  Dim strPath As String

  strPath = "WinNT://" & strDomain & "/"
  Set grp = GetObject(strPath & strGroup & ",group")
  IsMember = grp.IsMember(strPath & strMember)
End Function

    Vous pouvez obtenir le compte Windows de l'info par le biais de la USERDOMAIN et USERNAME des variables d'environnement:

    Function GetCurrentUser() As String
    GetCurrentUser = Environ("USERNAME")
End Function

Function GetCurrentDomain() As String
    GetCurrentDomain = Environ("USERDOMAIN")
End Function

    Mettant tous ensemble:

    If IsMember(GetCurrentDomain, "AD Group", GetCurrentUser) Then
   DoStuff()
End If
    Vrai. C'est surtout pour afficher les différents écrans pour les différents utilisateurs. Non pas tant la sécurité que la facilité d'utilisation.
    Cette réponse n'est pas vraiment ma liée -- c'est juste un bon vieux NTFS groupes. AD a des choses comme les Unités d'Organisation qui ne sont pas une partie de NTFS et accessible uniquement via des requêtes LDAP.
    Je vous déconseillons d'utiliser les variables d'Environnement pour le nom d'utilisateur et de domaine de l'utilisateur: ils sont des paramètres locaux et ils peuvent être modifiés. L'interrogation du Réseau Windows vous demande d'Active Directory et le Serveur de Domaine qui vous êtes et où vous êtes, et c'est un peu plus fiable.
    Pour des précisions sur Nigels commentaire, GetCurrentUser = CreateObject("WScript.Réseau").Nom D'Utilisateur GetCurrentDomain = CreateObject("WScript.Réseau").UserDomain

    OriginalL'auteur Patrick Cuff

  2. 8

    Je suis en retard pour le jeu, mais le code que vous avez besoin est ci-dessous. Il obtient les noms d'utilisateur et les noms de domaine pour vous.

    Remarque que je ne suis pas en utilisant objGroup.Ismember qui est en fait la bonne méthode à utiliser - je suis l'énumération de la liste des groupes dont l'utilisateur est en, car il est beaucoup plus facile à déboguer et il n'est pas sensible de la performance.

    ...Et j'ai levé le code à partir d'un projet antérieur, dans lequel j'avais besoin de vérifier l'appartenance à une "Lecture des Rapports de groupe, une" Modifier les Données "du Groupe, et une" Modifier les Données du Système de groupe, afin que je puisse choisir les commandes pour activer et qui constitue pour l'ouvrir en lecture seule. L'énumération des groupes a été plus rapide que trois contrôles.

    Public Function UserIsInGroup(GroupName As String, _
Optional Username As String, _
Optional Domain As String) As Boolean
'On Error Resume Next
' Returns TRUE if the user is in the named NT Group.
' If user name is omitted, current logged-in user's login name is assumed.
' If domain is omitted, current logged-in user's domain is assumed.
' User name can be submitted in the form 'myDomain/MyName' 
'                                        (this will run slightly faster)
' Does not raise errors for unknown user.
'
' Sample Usage: UserIsInGroup( "Domain Users")
Dim strUsername As String
Dim objGroup    As Object
Dim objUser     As Object
Dim objNetwork  As Object
UserIsInGroup = False
If Username = "" Then
Set objNetwork = CreateObject("WScript.Network")
strUsername = objNetwork.UserDomain & "/" & objNetwork.Username
Else
strUsername = Username
End If
strUsername = Replace(strUsername, "\", "/")
If InStr(strUsername, "/") Then
' No action: Domain has already been supplied in the user name
Else    
If Domain = "" Then
Set objNetwork = CreateObject("WScript.Network")
Domain = objNetwork.UserDomain
End If        
strUsername = Domain & "/" & strUsername        
End If
Set objUser = GetObject("WinNT://" & strUsername & ",user")    
If objUser Is Nothing Then    
' Insert error-handler here if you want to report an unknown user name
Else
For Each objGroup In objUser.Groups
'Debug.Print objGroup.Name
If GroupName = objGroup.Name Then
UserIsInGroup = True
Exit For
End If
Next objGroup
End If
Set objNetwork = Nothing
Set objGroup = Nothing
Set objUser = Nothing
End Function

    Nous espérons que cette présentation tardive est de l'utiliser à d'autres développeurs: quand j'ai regardé pour la première fois, en 2003, c'était comme si personne n'avait jamais utilisé groupes d'ANNONCES dans Excel ou MS-Access.

    Pour le record, c'est toujours utile en 2017. 🙂
    Un point à noter: si votre nom d'utilisateur a les appartenances à un groupe géré par plusieurs serveurs dans différents fuseaux horaires, je travaille pour des clients où cela est vrai pour les employés avec des profils dans deux ou plusieurs offices - vous verrez que d'une itération à travers tous les groupes de prendre plusieurs secondes. Dans ces cas objGroup.Ismember est le chemin à parcourir. Je vous demande instamment de ne pas utiliser les locaux de cacher les groupes de l'utilisateur de la liste, bien que cela soit tentant, il peut être quand vous avez besoin de vérifier à plusieurs reprises, ce qui est très mauvaise pratique en matière de sécurité.

    OriginalL'auteur Nigel Heffernan

  3. 2

    Trouvé ce en ligne

    Function IsMember(strDomain As String, strGroup _
  As String, strMember As String) As Boolean
  Dim grp As Object
  Dim strPath As String

  strPath = "WinNT://" & strDomain & "/"
  Set grp = GetObject(strPath & strGroup & ",group")
  IsMember = grp.IsMember(strPath & strMember)
End Function

    Maintenant, je n'ai besoin que le nom du compte de l'utilisateur actuel. Trop mauvais Application.CurrentUser ne veut pas me donner leur nom du Compte de Domaine.

    Juste un mot d'avertissement. Ce code renvoie des résultats incorrects pour les utilisateurs de groupe principal (Généralement "Utilisateurs du Domaine"), car c'est stockée différemment dans l'AD.
    Pas de problème. J'ai eu bats avec ce problème depuis quelques semaines à la fin de décembre et appris la plupart de ce de la manière forte. Je vous recommande un livre à ce type de question: "L' .NET Guide du Développeur pour le Répertoire des Services de Programmation"

    OriginalL'auteur Allain Lalonde