Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

NT-Username

Forumthread: NT-Username

NT-Username
31.03.2003 12:32:48
teute
Hallo zusammen,

wie kann ich mit VBA den WIN-NT (4.0) Usernamen auslesen?

Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: NT-Username
31.03.2003 12:35:55
kurt H

Hallo teute

x2 = Environ("USERNAME")

Gruß

Re: NT-Username
31.03.2003 12:42:57
Bernd Held

Hallo,
das kannst Du auch über eine API-Funktion lösen:

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

Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String

lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function

     Code eingefügt mit Syntaxhighlighter 1.14

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige