Public Sub New(ByVal Rootpath As String, _
                   ByVal Login As String, _
                   ByVal Name As String)
 
        'Initialisierung des Root-Elementes als OU in dem der User angelegt 
        ' werden soll
        Dim Root As New System.DirectoryServices.DirectoryEntry(Rootpath)
 
        'Anlage des Child Elementes als Me geht nicht
        Me = Root.Children.Add("cn=" & Login, "User")
        ....
        'Als Hilfsobject geht das, aber Object "kopieren" geht wieder nicht...
        Hilfsobjekt = Root.Children.Add("cn=" & Login, "User")
        Me = Hilfsobject
    End Sub