Public Shared Function GetDirectoryEntry() As DirectoryEntry
        Dim dirEntry As DirectoryEntry = New DirectoryEntry()
        dirEntry.Path = "LDAP://192.168.1.1/CN=Users;DC=Yourdomain"
        dirEntry.Username = "yourdomain\sampleuser"
        dirEntry.Password = "samplepassword"
        Return dirEntry
    End Function