P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:18 AM Post subject: Get Windows User Name, API way |
 |
|
| Code: | Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private 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 |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
