Module not doing anything

  • Thread starter Thread starter Jacob
  • Start date Start date
J

Jacob

I was told that this is supposed to pull a users network
login name. I'm trying to use it to put their name in a
text box, but nothing is happening when I call the script.
I don't get an error, but nothing happens either.

Private Declare Function apiGetUserName Lib "advapi32.dll"
Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As
Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If ( lngX > 0 ) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
 
Back
Top