Netzwerk UserName ermitteln

Forumthread: Netzwerk UserName ermitteln
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Netzwerk UserName ermitteln

30.01.2003 13:47:55

matthias

Hi,

gibt es eine Möglichkeite via VBA den Anmeldenamen an einem Netzwerk zu ermitteln?

Die Application.UserName liest wohl nur den in Excel eingetragenen Namen aus.

Danke.

Matthias

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Netzwerk UserName ermitteln

30.01.2003 13:49:44

Hajo_Zi
Re: Netzwerk UserName ermitteln

30.01.2003 14:20:42

Knud
Re: Netzwerk UserName ermitteln

30.01.2003 20:38:49

ch

Re: Netzwerk UserName ermitteln

30.01.2003 13:49:44

Hajo_Zi

Hallo Matthias

eigentlich hilft die Recherche schon. Die frage wurde schon paar mal beantwortet.

Benutzernamen zu Autorisationzwecken abfragen
x2 = Environ("USERNAME") ' unter NT

oder andere Betriebsysteme
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Benutzerfilter()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
BName = Left(Buffer, BuffLen - 1)
If BName <> "Jürgen" Then Exit Sub
'--------------------------------------
' Andere Ausführungen, wenn Name stimmt
'--------------------------------------
End Sub
Von Jürgen Wenzel

Gruß Hajo

Re: Netzwerk UserName ermitteln

30.01.2003 14:20:42

Knud

Hi Matthias,
z.B. so: https://www.herber.de/xlfaq/texte/038298h.htm

Gruß Knud

Re: Netzwerk UserName ermitteln

30.01.2003 20:38:49

Set WSHNetwork = CreateObject("Scripting.Network")
name = WSHNetwork.UserName

Diese Zeilen weisen dem Wert name den aktuell angemeldeten Benutzernamen zu.
Achtung! Wenn man die Funktion user abmelden im Startmenü abschaltet kann es zu Komplikationen kommen!