Private Enum COMPUTER_NAME_FORMAT
    ComputerNameNetBIOS
    ComputerNameDnsHostname
    ComputerNameDnsDomain
    ComputerNameDnsFullyQualified
    ComputerNamePhysicalNetBIOS
    ComputerNamePhysicalDnsHostname
    ComputerNamePhysicalDnsDomain
    ComputerNamePhysicalDnsFullyQualified
    ComputerNameMax
End Enum
Private Declare Function GetComputerNameEx Lib "kernel32.dll" Alias "GetComputerNameExA" (ByVal NameType As COMPUTER_NAME_FORMAT, ByVal lpBuffer As String, ByRef nSize As Long) As Long
Sub GetNames()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@allapi.net
    ShowName ComputerNameNetBIOS, "NetBIOS name"
    ShowName ComputerNameDnsHostname, "DNS host name"
    ShowName ComputerNameDnsDomain, "DNS Domain"
    ShowName ComputerNameDnsFullyQualified, "Fully qualified DNS name"
    ShowName ComputerNamePhysicalNetBIOS, "Physical NetBIOS name"
End Sub
Private Sub ShowName(lIndex As COMPUTER_NAME_FORMAT, Description As String)
    Dim Ret As Long, sBuffer As String
    'create a buffer
    sBuffer = Space( 256 )
    Ret = Len(sBuffer)
    'retrieve the computer name
    If GetComputerNameEx(lIndex, sBuffer, Ret) <> 0 And Ret > 0 Then
        'show it
        MsgBox Description + ": " + Left$(sBuffer, Ret)
    End If
End Sub