Vbs : Vérifier si un utilisateur fait partie d’un groupe

La fonction ci-dessous permet de vérifier si un utilisateur fait partie d’un groupe AD.

La fonction retourne True ou False.

' *****************************************************
'This function checks to see if the passed group name contains the current
' user as a member. Returns True or False
Function IsMember(groupName)
    If IsEmpty(groupListD) then
        Set groupListD = CreateObject("Scripting.Dictionary")
        groupListD.CompareMode = 1
        ADSPath = EnvString("userdomain") & "/" & EnvString("username")
        Set userPath = GetObject("WinNT://" & ADSPath & ",user")
        For Each listGroup in userPath.Groups
            groupListD.Add listGroup.Name, "-"
        Next
    End if
    IsMember = CBool(groupListD.Exists(groupName))
End Function
' *****************************************************
 
' *****************************************************
'This function returns a particular environment variable's value.
' for example, if you use EnvString("username"), it would return
' the value of %username%.
Function EnvString(variable)
    variable = "%" & variable & "%"
    EnvString = oShell.ExpandEnvironmentStrings(variable)
End Function
' *****************************************************

PS: pour fonctionner la fonction IsMember à besoin de la fonction EnvString(variable)

Utilisation :

If isMember("GROUP_NAME") Then
  **Action**
End If

 



Related Posts


Azure AD Connect : Installation et configuration de la synchronisation
Présentation d'Azure AD Connect Dans cet article, je vais vous expliquer comment installer et configurer Azure AD Connect. Cette solution permet de synchroniser son annuaire local (AD) vers la plateforme Azure et d'utiliser les mêmes comptes utilisat

Ajouter un contrôleur de domaine AD DS dans un domaine existant
Dans cet article, je vais vous expliquer comment ajouter un contrôleur de domaine dans un domaine existant et gérer les liens de réplication. Ci-dessous, une illustration de l'architecture finale : Au long de ce tutoriel, nous allons ajouter le contr

Activer la corbeille Active Directory sous Windows 2012/2016/2019
Introduction La corbeille Active Directory est une fonctionnalité arrivée avec Windows 2008R2, qui est désactivée par défaut. Pour activer la corbeille, le niveau des domaines et de la foret doit être à minima 2008R2. Une fois la corbeille activée, i