Active Directory

[jcantomarin]

Hola tengo el siguiente pedazo de código:

Dim sDesc As String
Dim child As System.DirectoryServices.DirectoryEntry

For Each child In Entry.Children
Select Case child.SchemaClassName
Case "User"
If child.Name = txtUsr.Text Then
If txtPwd.Text = child.Password Then
sDesc = "Full Name: " & child.Properties _
("FullName").Value & vbCrLf & "Description: _
" & child.Properties("Description").Value & vbCrLf _
& "Last Login:" & child.Properties("LastLogin").Value
MsgBox(sDesc)
Else
MessageBox.Show("Acceso denegado")
End If
End If
End Select
Next

Ahora bien, lo que estoy haciendo es tomar la información del Active Directory de windows, pero el problema es que child.Password = Nothing y no se donde tomar entonces el password del entry para poder validar el acceso.

si alguien sabe le agradecería la ayuda.