用getcomputername获得计算机名得到不同的结果，求解！

'看不到楼主的图片，可以这样试试：

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function computerName() As String

    Dim tmpstr As String
    Dim l As Long
    tmpstr = String(256, 0)
    l = GetComputerName(tmpstr, 256)
    computerName = Left$(tmpstr, InStr(tmpstr, Chr(0)) - 1)
    cClientName = computerName
 End Function