［声明］

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，这个常数在它那里可以找到