PC Cleaning Question???

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.

'--------------------------------------------About---------------------------------------------------
' 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.
'----------------------------------------------------------------------------------------------------

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

'--------------------------------------------Notes---------------------------------------------------
' 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

Next

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