Fehler bei Benutzername auslesen
02.08.2018 17:34:21
Christian
ich bin ein wenig ratlos. Mit dem angehängten ergoogleten Code lese ich einer Datei ganz wunderbar den Benutzernamen aus. Jetzt habe ich das in einer anderen Datei erneut einsetzen wollen und bekomme den Fehlerhinweis
Typkennzeichen entspricht nicht dem deklarierten Datentyp.
Ich habe versucht, mir selbst zu helfen. Leider ohne Erfolg. Habt Ihr Rat?
Vielen Dank und viele Grüße
Christian
Option Explicit
Private Declare Function aGetUserNameA Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As String
Private Function MWGetUserName() As String
Const lLEN As Long = 255
Dim lRet As Long
Dim sUserName As String
sUserName = String$(lLEN - 1, 0)
lRet = aGetUserNameA(sUserName, lLEN)
If lRet 0 Then
MWGetUserName = Left$(sUserName, lLEN - 1)
Else
MWGetUserName = ""
End If
End Function
Public Function BENUTZERNAME() As String
BENUTZERNAME = MWGetUserName()
End Function