Here is the script i use to remove profiles when a user logs on as we use roaming profiles for students but the local folder is still created. This removes it before anyon logs on.
'*******Remove 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
'*******Folder you want to keep*******
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