请问如何用API找本地机器名???

Question

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ComputerName() As String
    Dim buffer As String * 512, length As Long
    length = Len(buffer)
    If GetComputerName(buffer, length) Then
        ' this API returns non-zero if successful,
        ' and modifies the length argument
        ComputerName = Left$(buffer, length)
    End If
End Function