Project Detail

Description

We hired a freelancer some time ago to create a script that would automatically cleanup and Windows PC and run a defrag. This all needs to happen once a month after-hours. The script we have runs fine, but it only works for one user. It does not cleanup files (temp internet, etc.) for all users. The existing script is a .vbs and runs the built-in cleanmgr.exe and defrag.exe on Windows. I need someone to go through this script and make it work for all users. This may mean that we need to dump using the cleanmgr.exe and go with something else. Anyway, if you can help us then please post a reply.

Here is a sample of the script -

Set objShell = Nothing
Set dctXcludedCleanups = Nothing



'Refer to section - "ADDING A TASK PROFILE "PROGRAMMATICALLY""
Private Sub AddTaskProfile()

On Error Resume Next

Dim objReg
Dim aSubKeys()
Dim sComputer, sSubkey, lTaskState

sComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
sComputer & "\root\default:StdRegProv")

objReg.EnumKey HKEY_LOCAL_MACHINE, VOLUME_CACHES_KEY, aSubKeys

For Each sSubkey in aSubKeys
' Wscript.Echo vbTab & vbTab & "Case """ & sSubkey & """"
' Wscript.Echo vbTab & vbTab & vbTab & "EnsureStateFlagEntries objReg, sSubkey, 0, lTaskState"
' Wscript.Echo

If (dctXcludedCleanups.Exists(sSubkey)) Then
lTaskState = 0
Else
lTaskState = 2
End If

Select Case sSubkey

Case "Active Setup Temp Folders"
EnsureStateFlagEntries objReg, sSubkey, 0, lTaskState

Case "Compress old files" 'May skip as it might take long time and might hang script
EnsureStateFlagEntries objReg, sSubkey, 1, lTaskState

Case "Content Indexer Cleaner"
EnsureStateFlagEntries objReg, sSubkey, 1, lTaskState

Case "Downloaded Program Files"
EnsureStateFlagEntries objReg, sSubkey, 1, lTaskState