Clear PeopleTools Cache

The PeopleTools cache refers to the local cache on your PC for any PeopleTools programs that you run on your local PC such as application designer, data mover, and configuration manager.

The following is a VBScript that reads the location of your PeopleTools cache and clears out all files. Effectively clearing your PeopleTools cache for all PeopleSoft environments you have accessed.

To use this script, copy and paste the source code below and save the file as ClearPeopleToolsCache.vbs on your PC. Double click on it to run it. The program will prompt you to delete your PeopleTools cache, and ask that you close all PeopleTools windows before you start. The cache cannot be cleared if there are active PeopleTools applications running on your PC.

 NOTE: with so much malicious software being saved as .VBS, you will get prompted by Windows to confirm you want to run this file.

Basically the script:

Finds the cache settings base directory in the registry (the registry path will need adjusting based on your PeopleTools version)

If the cache directory exist, it delets the folder then recreates it

Dim Response

Dim CacheDir

Set WshShell = CreateObject( "WScript.Shell" )

Set fso = CreateObject("Scripting.FileSystemObject")

 

CacheDir = WshShell.RegRead( "HKCU\Software\PeopleSoft\PeopleTools\Release8.40\Cache Settings\CacheBaseDir")

If fso.FolderExists(CacheDir) Then

 Response=MsgBox("Delete all files from your PeopleTools cache?", 36, "Delete Cache?")

 If Response = 6 Then

 Response=MsgBox("Do you have all PeopleTools windows closed?", 36, "Delete Cache?")

 If Response = 6 Then

 On Error Resume Next

 fso.DeleteFolder CacheDir

 fso.CreateFolder CacheDir

 If Err.Number = 0 Then

 Response=MsgBox("Cache has been deleted", 64, "Cache Deleted")

 Else

 Response=MsgBox("Unable to delete cache - files may be in use.", 64, "Cache Delete Error")

 End If

 End If

 End If

Else

 Response=MsgBox("Cache Directory does not exist - Recreating", 16, "Cache Cannot Be Deleted")

 fso.CreateFolder CacheDir

End If