James Stanich
Feb 21st, 2003, 02:34 PM
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() as String
Dim strBuffer As String * 25
Dim ret As Long
ret = GetUserName(strBuffer , 25)
UserName = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
End Function
Function UserName() as String
Dim strBuffer As String * 25
Dim ret As Long
ret = GetUserName(strBuffer , 25)
UserName = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
End Function