script

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

http://www.cyberciti.biz/tips/how-do-i-run-firewall-script-as-soon-as-e…