Copy the below code to notepad and rename as a vbs file. Example – DeleteLocalProfiles.vbs. If the script does not work, re-enter the speech marks ( ” )

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