Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Netzwerk UserName ermitteln

Forumthread: Netzwerk UserName ermitteln

Netzwerk UserName ermitteln
30.01.2003 12: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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Netzwerk UserName ermitteln
30.01.2003 12: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

Anzeige
Re: Netzwerk UserName ermitteln
30.01.2003 19:38:49
ch

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!

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige