MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.04.2003, 16:03   #1
Maxik
Frage Feststellen in welchen Gruppen Benutzer Mitglied ist?

Hallo,
ich brauche ein Programm oder eine Visual Basic Funktion mit der man feststellen kann welcher Benutzer gerade Angemeldet ist und in welchen Gruppen er Mitglied ist.

Für eure Hilfe währe ich sehr Dankbar.

MfG Maxik
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2003, 13:43   #2
immelmann
MOF Meister
MOF Meister
Standard

Hallo,
für den angemeldeten User gibt es folgendes:

Code:

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Function loggedUser()
   Dim s As String
   Dim cnt As Long, ret As Long
   cnt = 199
   s = String$(200, 0)
       'wenn ret=0 -> keiner!
       'wenn ret=1 -> aber Hallo !
   ret = GetUserName(s, cnt)
   If ret <> 0 Then
      loggedUser = Left$(s, cnt)
             'Leerzeichen entfernen
      pos = InStr(loggedUser, Chr$(0))
      If pos > 0 Then 
         loggedUser = Left$(loggedUser, pos - 1)
      End If
   Else
      loggedUser = ""
   End If
End Function
Für die Gruppenzugehörigkeit habe ich auf die Schnelle noch nichts gefunden.

Gruß Torsten

__________________

Gruss Torsten

Win 7 SP1, O2010, VB6 Pro SP6, VB2010 SP1
immelmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2003, 04:46   #3
Stefan Kulpa
MOF Meister
MOF Meister
Standard

Unter NT erhälst du den Usernamen neben der API-Variante auch direkt über die Umgebungsvariable:

Environ("USERNAME")

Für die Gruppeninfo etc. schau mal hier nach:

Enumerating the User List and Obtaining User Info
How to Determine if the Current User is a Member of Administrators
Retrieving Selection of Users and Groups via OpenUserBrowser
Enumerating Local Groups with NetLocalGroupEnum
Enumerating Members of a Group with NetLocalGroupGetMembers

Über diese Links müsstest du alle notwendigen Infos erhalten, um für dich eine Lösung ableiten zu können.

HTH,

__________________

Stefan
Stefan Kulpa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.04.2003, 14:11   #4
Sascha Trowitzsch
MOF Guru
MOF Guru
Standard

Noch ein paar Links, die dir helfen könnten (Active Directory Services):

http://www.15seconds.com/issue/020130.htm

und

http://www.apostate.com/programming/wsh-adsi.html

Ciao, Sascha

__________________

Microsoft Access MVP
O2k bis O2010, VB6, VS2008, Delphi7, ...
Bitte keine ungefragten E-Mails. Probleme werden hier gelöst.
Bitte beachten: Grundlegendes zum Access-Forum

Knowhow auf Access-im-Unternehmen | Das Access 2007 Praxisbuch für Entwickler | www.mossTOOLs.de
Sascha Trowitzsch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:22 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.