title image


Smiley GetUserName
moin!



ich lese immer mit dieser function den username aus!

einfach unter modul ein neues anlegen und dann mit

xyz = getusername() aufrufen.



viel spass!



Function GetUserName() As String

On Error GoTo PROC_ERR

Dim lngLen As Long

Dim strBuf As String

Const MaxUserName = 255

strBuf = Space(MaxUserName)

lngLen = MaxUserName



If CBool(API_GetUserName(strBuf, lngLen)) Then

GetUserName = Left(Left$(strBuf, lngLen - 1), 7)

Else

GetUserName = ""

End If

Exit Function

PROC_ERR:

MsgBox "Folgender Fehler ist aufgetreten: " & Error$ & " in Prozedur GetUserName "

Resume Next

End Function





JonnyK

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: