Option Explicit

Public Function GetUserName() As String
  On Error Resume Next

  'Frühes Binden (early binding)
  'Verweis auf 'Windows Script Host Object Model' nötig
  Dim objWSHNetwork As New IWshRuntimeLibrary.WshNetwork

  'Spätes Binden (late binding)
  Dim objWSHNetwork As Object
  Set objWSHNetwork = CreateObject("WScript.Network")

  'Aktueller Username
  GetUserName = objWSHNetwork.UserName

  'Speicher freigeben
  Set objWSHNetwork = Nothing
End Function

Public Function GetDomain() As String
  On Error Resume Next

  'Frühes Binden (early binding)
  'Verweis auf 'Windows Script Host Object Model' nötig
  Dim objWSHNetwork As New IWshRuntimeLibrary.WshNetwork

  'Spätes Binden (late binding)
  Dim objWSHNetwork As Object
  Set objWSHNetwork = CreateObject("WScript.Network")

  'Aktuelle Domäne
  GetDomain = objWSHNetwork.UserDomain

  'Speicher freigeben
  Set objWSHNetwork = Nothing
End Function

• Unterstützt DAO und ADO-Recordsets
• Auch für RandomAccess-Dateien verwendbar
• oder als komfortabler Ersatz für das Standard ListView-Control
• Ausführliches Beispielprojekt für Visual Basic 6 und MS-Access 97/2000/XP
• modernes HTML-Hilfesystem mit ausführlichen Beschreibungen
• keine zusätzlichen Runtime-Gebühren bei Weitergabe der Komponente mit der eigenen Anwendung