at få fat i computerens navn

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

Private Const MAX_COMPUTERNAME_LENGTH = 31
Private Declare Function GetComputerName Lib \"kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function VBGetComputerName() As String
    Dim sBuf As String, iActualLen As Long
    sBuf = String(MAX_COMPUTERNAME_LENGTH + 1, 0)
    iActualLen = Len(sBuf)
    GetComputerName sBuf, iActualLen
    VBGetComputerName = Left$(sBuf, iActualLen)
End Function

fedt det virkede  :o)

Og så lige den korte:

Public Function GetComputerName() As String
  GetComputerName = Environ(\"computername\")
End Function