profiles

CONST LocalDocumentsFolder = "C:\Documents and Settings\"

SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
SET objFolder = objFSO.GetFolder(localdocumentsfolder)

ON ERROR RESUME NEXT

FOR EACH fldr in objFolder.SubFolders
IF NOT isexception(fldr.name) THEN
objFSO.DeleteFolder fldr.path, TRUE
END IF
NEXT