请问获得计算机名的API函数是什么？

Question

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LonglpBuffer 存放计算机名
nSize=255就可以了

Answer 1

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function MachineName() As String
  Dim sBuffer As String * 255
  If GetComputerName(sBuffer, 255&) <> 0 Then
    MachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
End Function