VB版本
[聲明]Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
[說明]
取得這台計算機的名稱
[參數表]
lpBuffer ------- String，隨同計算機名載入的字串緩衝區
nSize ---------- Long，緩衝區的長度。這個變數隨同返回計算機名的實際長度載入
[返回值]
Long，TRUE（非零）表示成功，否則返回零。會設定GetLastError
[其它]
也許你會發現，MAX_COMPUTERNAME_LENGTH常數在vb自帶的api文本查看器中找不到。的確，我也沒有找到。但我有一個工具：Listapi，這個常數在它那裡可以找到
正統WindowAPI
BOOL WINAPI GetComputerName（__out LPTSTR lpBuffer，
__inout LPDWORD lpnSize
）;
功能：從註冊表中檢索本地計算機的NetBIOS名稱
參數
lpBuffer [out]
指向一塊記憶體緩衝區，這個緩衝區用於接收計算機名稱或群集的虛擬伺服器名稱。緩衝區的大小應該足夠大，以便能夠容納MAX_COMPUTERNAME_LENGTH + 1個字元。
lpnSize [in, out]
在輸入時，指定的緩衝區的大小，這個大小是按照TCHAR計算的。
在輸出的時候，字元的長度不包括終止空字元\0。
如果緩衝區太小，該函式將失敗，調用GetLastError返回ERROR_BUFFER_OVERFLOW。
返回值
如果函式成功，返回值是一個非零值。
如果函式失敗，返回值是零。為了獲得更多錯誤信息，請調用 GetLastError函式 。
