Imports System.DirectoryServices 'dll/Verweis einbinden
 
 
 '---------Für ServerSettings --------------
    Private c_ServerName As String
    Private c_DomainenName As String
    Private c_DomainenEndung As String
    Private c_AdminPasswort As String
    Private c_user_Passwort As String
 
 
 Dim o As DirectoryEntry
        Dim c As DirectoryEntries
 
 
        Dim LDAPpfad As String = "LDAP://" & c_ServerName & "/CN=Users,DC=" & _
          c_DomainenName & ",DC=" & c_DomainenEndung
 
        ' --- Zugriff auf IADS
        o = New DirectoryEntry(LDAPpfad, "Administrator", c_AdminPasswort)
              ' --- Zugriff auf IADSContainer
        c = o.Children()
 
 o.Properties("postalCode").Add(c_Adresse_Postleitzahl)
 o.NativeObject.SetPassword(c_user_Passwort)