title image


Smiley Re: Username von Windows-Login ermitteln
Hallo Stefan



122. Benutzernamen zu Autorisationzwecken abfragen

x1 = Environ("COMPUTERNAME")

x2 = Environ("USERNAME")

Username von Netzwerkanmeldung NT

und noch viele andere schöne Informationen (statt "yyy" mal hinter ENVIRON in der Klammer Zahlen eingeben. 1 bis 22



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


 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: