Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Wie bekomme ich den angemeldeten Benutzer in VBA ???
Autor: mischa richter
Datum: 18.03.02 20:56
'ich machs unter win98 so: Option Explicit Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long Private Sub BenutzerName() 'Benutzername: ####################### Dim strTMP As String Dim lokZähler1 As Byte Dim lpBuffer As String * 100 Dim nSize As Long Dim LoginName As String lpBuffer = "" nSize = 255 strTMP = GetUserName(lpBuffer, nSize) LoginName = "" For lokZähler1 = 1 To Len(lpBuffer) 'Immer in Grossbuchstaben umwandeln: LoginName = UCase(Left(lpBuffer, lokZähler1 - 1)) If Asc(Mid(lpBuffer, lokZähler1, 1)) < 64 Then Exit For End If Next lokZähler1 '####################################### MsgBox "Der an diesem PC angemeldete Benutzer hat den Benutzername: " & vbCrLf & LoginName End Sub www.miaj.de

Wie bekomme ich den angemeldeten Benutzer in VBA ???	33	Happy-Surfer	18.03.02 15:20
Re: Wie bekomme ich den angemeldeten Benutzer in VBA ???	34	mischa richter	18.03.02 20:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen