Clears user profiles on computer startup :
' leaves the following folders
' Administrator
' RM Default User
' Default User
' All Users
' ClassMate
Save as VBS
ON ERROR RESUME NEXT
' Clears user profiles on computer startup
' leaves the following folders
' Administrator
' RM Default User
' Default User
' All Users
' ClassMate
' Reference : http://msdn2.microsoft.com/en-us/library/9kcx47hd.aspx
dim oktodelete, fso, f, foldercollection
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.getfolder("C:\Documents and Settings")
set foldercollection = f.subfolders
for each folder in foldercollection
oktodelete = true
if instr(1, folder.path, "Administrator") then
oktodelete = false
end if
if instr(1, folder.path, "RM Default User") then
oktodelete = false
end if
if instr(1, folder.path, "Default User") then
oktodelete = false
end if
if instr(1, folder.path, "All Users") then
oktodelete = false
end if
if instr(1, folder.path, "ClassMate") then
oktodelete = false
end if
if instr(1, folder.path, "LocalService") then
oktodelete = false
end if
if instr(1, folder.path, "NetworkService") then
oktodelete = false
end if
if oktodelete then
'wscript.echo "Deleting Folder : " & folder.path
fso.deletefolder folder.path, true
end if
next