Clear all unused user profiles

[scythe944]

Clears user profiles on computer startup   :
   ' leaves the following folders   
   ' Administrator   
   ' RM Default User   
   ' Default User   
   ' All Users   
   ' ClassMate   

Save as VBS

Code Select Expand

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