Info
Content

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
No Comments
Back to top