GetComputerName

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，這個常數在它那裡可以找到

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函式。