ad securitygroup gebruiken in vba – excel en access

Stel je wil een variabele een bepaalde waarde geven op basis van securitygroep in active directory. opgelet, geen nested groups.

in mijn voorbeeld gebruik ik de seucritygroep “personeelsdienst” en de securitygroep “presturbobeheer”

1) in een module

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

Function GetCurrentUser() As String
GetCurrentUser = Environ(“USERNAME”)
End Function

Function GetCurrentDomain() As String
GetCurrentDomain = Environ(“USERDOMAIN”)
End Function

2) in een sub, form of module

dim go as integer

If IsMember(GetCurrentDomain, “personeelsdienst”, GetCurrentUser) Then
go = 1
End If
If IsMember(GetCurrentDomain, “presturbobeheer”, GetCurrentUser) Then
go = 2
End If

   

2 reacties

  1. Bedankt voor de duidelijke uitleg, het resultaat kan je ook gebruiken in een query.

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *

  • Zoek de Ict tips

    Generic selectors
    Exact matches only
    Search in title
    Search in content
    Search in posts
    Search in pages
    Filter by Categories
    advies desktop
    advies notebook
    advies smart tv
    cloning and backup
    cmd
    dklus music
    esxi
    exchange 2007/2010/2013
    freeware
    koopadvies
    office 2003
    office 2007
    office 2010
    office 2013
    office 2016
    Powershell
    Thin os (wyse)
    tips voorblad
    Uncategorized
    Visual Basic For Applications (VBA)
    vmware
    win 8 apps zeer goed
    Windows 10
    windows 7
    Windows 8
    windows 8.1
    Windows 8.x RT
    windows server 2003
    windows server 2008
    windows server 2012
    windows server 2012 R2
    windows server 2016
    wordpress