Option Explicit On 
Option Strict On
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
'// 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim mde As New MyDirectoryEntry("..", "MyLoginname", "Myname")
 
        Dim child1 As MyDirectoryEntry = CType(mde.Children.Find("MyName"), _
          MyDirectoryEntry)
        '// oder:
        Dim child2 As MyDirectoryEntry = CType(New MyDirectoryEntry("..", _
          "MyLoginname", "Myname").Children.Find("MyName"), MyDirectoryEntry)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim mde As MyDirectoryEntry = MyDirectoryEntry.CreateInstance("..", _
        "MyLoginname", "Myname")
    End Sub
 
End Class
 
Public Class MyDirectoryEntry
    Inherits System.DirectoryServices.DirectoryEntry
 
    Public Sub New(ByVal Rootpath As String, _
                   ByVal Login As String, _
                   ByVal Name As String)
        MyBase.New()
        Me.Children.Add("cn=" & Login, "User")
    End Sub
 
    Public Shared Function CreateInstance(ByVal Rootpath As String, _
                   ByVal Login As String, _
                   ByVal Name As String) As MyDirectoryEntry
        Dim Root As New System.DirectoryServices.DirectoryEntry(Rootpath)
        Return CType(Root.Children.Add("cn=" & Login, "User"), MyDirectoryEntry)
    End Function
 
End Class