1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
' Noeud parent de l'objet à supprimer
Dim entryParent As New DirectoryServices.DirectoryEntry("LDAP://" & cheminLdapParent, _
monUsername, monPassword, AuthenticationTypes.Secure)
' Objet à supprimer
Dim entryAsupprimer As New DirectoryServices.DirectoryEntry("LDAP://" & cheminLdapObjetAsupprimer, _
monUsername, monPassword, AuthenticationTypes.Secure)
Try
' Suppression de l'objet
entryParent.Children.Remove(entryAsupprimer)
Return True
Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
Finally
' Fermeture des DirectoryEntry
entryParent.Close()
entryAsupprimer.Close()
End Try |
Partager