HostName!

det får du på denne måde.
Declare Function GetComputerName Lib \"kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

Option Explicit

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

Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&


Public Function CurrentMachineName() As String
Dim lSize As Long
Dim sBuffer As String

  sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
  lSize = Len(sBuffer)

  If GetComputerName(sBuffer, lSize) Then
    CurrentMachineName = Left$(sBuffer, lSize)
  End If

End Function

Se evt. http://www.eksperten.dk/spm/68823

Snowball

hvis du også ønsker at få brugernavn og diskplads så har du det her.
Declare Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetDiskFreeSpace Lib \"kernel32.dll\" Alias \"GetDiskFreeSpaceA\" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Private Declare Function GetComputerName Lib \"Kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function ComputerName() As String
  Dim lpBuffer As String, nDummy As Long, nSize As Long
  nSize = 255
  lpBuffer = Space$(nSize)
  nDummy = GetComputerName(lpBuffer, nSize)
  ComputerName = Left$(lpBuffer, nSize)
End Function

Public Sub Test()
  MsgBox \"ComputerName: \" & ComputerName()
End Sub

Hmmmmmmmm....

Måske forklarede jeg mig forkert!!!

Det er navnet, der er kendt når der benyttes TCP/IP jeg skal bruge! Det vil sige HostName!!

Det burde da være det samme...

MEN - Prøv at tilføje en WinSock kontrol til en form (WinSock1)

Og angiv følgende kode:

Private Sub Form_Load()
  MsgBox Winsock1.LocalHostName
End Sub

Det endte med at jeg brugte en WinSock!

Tak for hjælpen!