PHP Code:
Option Explicit
Private S1 As String
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function FindUserName() As String
S1 = Space(512)
GetUserName S1, Len(S1)
FindUserName = Trim$(S1)
End Function


Private Sub Form_Load()
MsgBox FindUserName
End Sub


SS:

__________________