read more...... 

Tips & Tricks: Mendapatkan Nama Pemakai Komputer                                                      

Berikut source-code untuk mendapatkan nama pemakai komputer (user name). Tempatkan source-code ini dalam module.

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

Public Function GetUserName() As String

Dim UserName As String * 255
GetUserNameA UserName, 255
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)

End Function