4_delete_educ-plusinc-ou.vbs

' Deleting Subtrees (Objects with child objects)
DeleteTree "OU=educ-plusinc,DC=dt3adrlsdml,DC=cours,dc=edu"

Sub DeleteTree(objDN)
     Set obj = GetObject("LDAP://" & objDN)

     If (obj.Class="organizationalUnit") Then
          For Each child In obj
               DeleteTree(child.distinguishedName)
          Next
     End If

     obj.DeleteObject(0)
End Sub
wscript.echo "Deleting Subtrees for Montreal-OU - congratulation"