script para remover os profiles dos utilizadores

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

FUNCTION isException(BYVAL foldername)
SELECT CASE foldername
CASE "All Users"
isException = TRUE
CASE "Default User"
isException = TRUE
CASE "LocalService"
isException = TRUE
CASE "NetworkService"
isException = TRUE
CASE "Administrator"
isException = TRUE
CASE ELSE
isException = FALSE
END SELECT
END FUNCTION

http://www.wisesoft.co.uk/scripts/vbscript_delete_local_profiles.aspx