read more...... 

Tips & Tricks: Mendapatkan Nama Komputer                                                      

Berikut source-code untuk mendapatkan nama komputer. Tempatkan source-code ini dalam module.

Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetComputerName() As String

Dim sResult As String * 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)

End Function