I ran the script that you posted but it doesn't seem to delete the folder, I replaced the Documentum with the name of a sub folder in Documentum "UCF". Is there something else that I need to do.
sRoot="c:\documents and settings\"
for each oSubFolder in oFolder.subfolders
sName=sRoot & oSubFolder.name & "\" & sFolder
if ofso.folderexists(sName) then
ofso.deletefolder(sRoot & sName & "\" & sFolder,true)