取得计算机名的API？

Question

取得计算机名的API？

Answer 1

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function GetComputer() As String
    Dim strComputerName As String
    Dim lngReturn As Long
    Dim lngStrLen As Long
    
    lngStrLen = 255
    strComputerName = String(255, " ") & Chr(0)
    lngReturn = GetComputerName(strComputerName, lngStrLen)
    If lngReturn = 0 Then
        GetComputer = ""
    Else
        GetComputer = Left$(strComputerName, InStr(strComputerName, Chr$(0)) - 1)
    End If
End Function