Option Explicit
Private Sub Form_Load()
 
    Dim Root As IADs
    Dim domain As IADs
    Dim lngErgebnis As Long
    Dim strDomain As String
 
    On Error GoTo ErrHandler
 
   ' Pfad der gegenwärtigen Domäne (LDAP) einholen
    Set Root = GetObject("LDAP://rootDSE")
    strDomain = Root.Get("defaultNamingContext")
    Set domain = GetObject("LDAP://" & strDomain)
 
    Label1.Caption = "Computer im Netz angemeldet!"
 
 
ErrHandler:
    If Error$ <> "" Then
       Label1.Caption = "Computer nicht im Netz angemeldet!"
    End If
 
End Sub

Gruss

Markus