Private Declare Function GetComputerName Lib "kernel32" _ 
  Alias "GetComputerNameA" (ByVal lpBuffer As String, _ 
  nSize As Long) As Long 
 
Public Function GetComputerInfo() As String 
  Dim Result As Long 
  Dim cInfo As String 
 
  cInfo = Space$(256) 
  Result = GetComputerName(cInfo, Len(cInfo)) 
  If InStr(cInfo, Chr$(0)) > 0 Then _ 
  cInfo = Left$(cInfo, InStr(cInfo, Chr$(0)) - 1) 
 
  GetComputerInfo = cInfo 
End Function 
 
Private Sub Form_Load()
  Label1.Caption = GetComputerInfo()
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de