แบบว่า ผมผ่านเข้าไปใน Web ต่างประเทศครับ แล้วเขามีตัวอย่างให้ดู แต่ไม่รู้จะใช้ยังไง รบกวน อาจารย์ช่วย อธิบายและทำตัวอย่างประกอบให้ดูซักอันครับ มีอีกเป็นสิบน่าใช้ทั้งนั้นเลย(เหมือนหมาเห็นปลากระป๋องเลย ฮือๆๆๆ) 
 
ตัวอย่างครับ 
 
(Q) How do I retrieve the current ComputerName ? 
 
(A) Paste the following code in a new module and call the function fOSMachineName. 
 
 
'******************** Code Start ************************** 
' This code was originally written by Dev Ashish. 
' It is not to be altered or distributed, 
' except as part of an application. 
' You are free to use it in any application, 
' provided the copyright notice is left unchanged. 
' 
' Code Courtesy of 
' Dev Ashish 
' 
Private Declare Function apiGetComputerName Lib "kernel32" Alias _ 
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
 
Function fOSMachineName() As String 
'Returns the computername 
Dim lngLen As Long, lngX As Long 
Dim strCompName As String 
    lngLen = 16 
    strCompName = String$(lngLen, 0) 
    lngX = apiGetComputerName(strCompName, lngLen) 
    If lngX <> 0 Then 
        fOSMachineName = Left$(strCompName, lngLen) 
    Else 
        fOSMachineName = "" 
    End If 
End Function 
'******************** Code End **************************