Hallo zusammen,
falls das mal wer braucht,
anbei eine VBA Klasse um die Netzwerk-Benutzer-Daten abzurufen
Zur Verwendung
einfach ein VAB Makro erstellen
die Klasse "CUserinfo.cls" importieren
dann ein Funktion erstellen
z.B.:
Sub main()
Dim ui As New CUserinfo
ui.GetUserInfo
MsgBox "Benutzer: " & ui.UserName & " / " & "Name: " & ui.FullName, vbOKOnly, ""
End Sub
Hinweise
wird bei GetUserInfo kein Parameter angegeben,
dann werden die Daten vom aktuellen Benutzer abgerufen
wird ein Benutzername übergeben,
dann werden die Daten vom diesem Benutzer abgerufen
folgende Daten werden ausgewertet
UserName As String
Company As String
Country As String
FullName As String
zip As String
City As String
MailAdress As String
Department As String
Description As Variant
streetAddress As String
GivenName As String
SureName As String
Title As String
OfficePhone As String
MobilePhone As String
Manager As String
------------------
Grüße
Heinz
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP