Jump to content

Access 2010: If Environ("Username") <> ...


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Suchst Du den angemeldeten Windows Benutzer?

 

Function fOSUserName() As String
On Error GoTo err_fOSUserName:

    Dim lngLen As Long, lngX As Long
    Dim strUserName As String

    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
       fOSUserName = Left$(strUserName, lngLen - 1)
      Else
       fOSUserName = ""
    End If

exit_fOSUserName:
   Exit Function
err_fOSUserName:
   MsgBox "Fehler: " & Err.Number & " " & Err.Description & " " & mModName & ".fOSUserName() As String"
   fOSUserName = ""
   Resume exit_fOSUserName
End Function

 

Und den oben gefundenen Benutzernamen in den lokalen Benutzergruppen suchen:

 

Public Function MemberInGroup(strUser As String) As String
On Error GoTo ErrHandler

Dim oADSI As Object
Dim oGroup As Object
Dim sDomain As String
Dim oMember As Object

' lokaler PC
sDomain = "."

' ADSI Container-Objekt erstellen
Set oADSI = GetObject("WinNT://" & sDomain)

' Benutzergruppen filtern
oADSI.Filter = Array("Group")

' alle Benutzergruppen auflisten
For Each oGroup In oADSI
   'Debug.Print oGroup.Name
   For Each oMember In oGroup.members
       If strUser = oMember.Name Then
           If Left(oGroup.Name, 2) = "AD" Then
               ' Bei der ersten gefundenen Gruppenmitgliedschaft wird die Funktion verlassen!
               MemberInGroup = oGroup.Name
               Exit Function
           End If
       End If
   Next
Next


exit_MemberInGroup:
   Exit Function
ErrHandler:
 ' Objekte zerstören
 Set oGroup = Nothing
 Set oADSI = Nothing
End Function

 

Der Aufruf kann so aussehen:

 

 Dim Security As String
 'Lokale Benutzergruppe des Windows Benutzer auslesen
 Security = MemberInGroup(fOSUserName) 

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...