Den Namen des Rechners, unter dem dieser im Netzwerk zu finden ist (NetBIOS- Name), ermittelt man über die API Funktion GetComputerName:

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

Public Function ComputerName() As String
  Dim lBuffer As String
  Dim lLength As Long
  Dim lResult As Long
      
  Const MAX_COMPUTERNAME_LENGTH = 15
  
  lBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
  lLength = Len(lBuffer)
  
  lResult = GetComputerName(lBuffer, lLength)

  If CBool(lResult) Then
    ComputerName = Left$(lBuffer, lLength)
  End If
End Function

Anwendung:

Debug.Print ComputerName