strObjectDN = "<NazwaWyrniajcaObiektu>"
set objUser = GetObject("LDAP://" & strObjectDN)
objUser.DeleteObject(0)
