General discussion


PC Cleaning Question???

By james.carver ·
Hi everyone,

I have a question I hope you could help me with. I am looking for a utility that can clean (remove temp files) out a whole network worth of PC's and be managed from a server. Do you have any ideas.


This conversation is currently closed to new comments.

Thread display: Collapse - | Expand +

All Comments

Collapse -


by Choppit In reply to PC Cleaning Question???

Could be done with a script either at login or remotely using administrative shares (assuming Windows).

Collapse -

Camercial Program.

by james.carver In reply to Script

True, I have looked into a srip and even wrote one that works great (Posted below) but I how really hoping for a camercial product that has been though some kind of testing.

This is a VBS scrip if you want to use it.

' This Version of the PC cleaner is designed to be run on the local machine. It will remove the
' contents of "C:\Windows\Temp" as well as "C:\Documents and Settings\%Username%\Local Settings\...
' ... Temp & Temporary Internet Files.

' 1.) Restart the PC.
' 2.) Log in as Administrator
' 3.) Execute the script (may be executed from a server)
' 4.) Restart the PC.

' 1.) Users have noted a slower login the first time. This is becuase the the desktop cash has
' been removed. They will also notice it takes longer to bring up their desktop icons the
' first time logging in.
' 2.) Users have noted the internet is slower after the cleaning. This is a result of the the
' Temporary files being removed. The web pages they are used to going to are no longer cashed.

Dim path, fso, folder, subfolders, objShell

path = "C:\Documents and Settings\"
Set objShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set subFolders = folder.SubFolders

For Each folderObject in SubFolders

If fso.FolderExists(path & folderObject.Name & "\Local Settings\Temp\") Then
objShell.currentdirectory = path & folderObject.Name & "\Local Settings\Temp\"
objShell.Run "cmd.exe /c rd ..\temp\ /s /q"
End If

If fso.FolderExists(path & folderObject.Name & "\Local Settings\Temporary Internet Files\") Then
objShell.currentdirectory = path & folderObject.Name & "\Local Settings\Tempor~1\"
objShell.Run "cmd.exe /c rd ..\Tempor~1\ /s /q"
End If


objShell.currentdirectory = "C:\WINDOWS\Temp\"
objShell.Run "cmd.exe /c rd ..\temp\ /s /q"

Set subFolders = Nothing
Set folder = Nothing
Set fso = Nothing
Set objshell = Nothing

Related Discussions

Related Forums