获取主机名？？？

Question

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function GetPcName() As String
    Dim compname As String, retval As Long
    compname = Space(255)
    retval = GetComputerName(compname, 255)
    compname = Left(compname, InStr(compname, vbNullChar) - 1)
    GetPcName = compname
End Functionpcname = getpcname()   '得到

Answer 1

使用Winsock控件应该就可以了！

Answer 2

使用［Winsock］控件的[LocalIp]属性Public Sub GetInfo()
  Dim thisIp As String
  Dim thisName As String
    With Me.WinsockX
      thisIp= .LocalIp' 获取本地IP
      thisName =.LocalName'获取本地计算机名字（那个属性可能是叫这个名字把，记不太清楚了）   
    End With
End Sub   ': )

Answer 3

不用服务器客户端？能不能发一个信息给windows的特定端口，让nt自己返回？

Answer 4

用API的GetComputerName就OK 了！