All pastes #2109080 Raw Edit

parentOu

public text v1 · immutable
#2109080 ·published 2012-02-02 16:17 UTC
rendered paste body
_resultDn = DSQuery OU -name _name

if UBound(_resultDn) > 0
	if Wscript.Parameters(0) = "0"
		_tabDn = Split(_resultDn(0), ",")
		_container = ""
		for i = 1 to Ubound(_tabDn)
			_container = _container & _tabDn(i) & ","
		next
		
		Set objContainer = GetObject("LDAP://" & _container & "," & objRootDSE.Get("defaultNamingContext"))
		
		objContainer.Delete "organizationalUnit", "ou=" & _name
	end if
	else
		Wscript.Echo "Cet OU existe déjà !"
else