CODE: Delete Temporary Internet files
Option Explicit ‘ Variables Dim objWSH, sProfile, objFolder Dim objFSO, sProfileRoot, objProfileFolder Dim sTemp, sWindows ‘ Object Initialisation set objFSO=CreateObject(“Scripting.FileSystemObject”) ‘ Get user profile root folder set objWSH = CreateObject(“WScript.Shell”) sTemp = objWSH.ExpandEnvironmentStrings(“%TEMP%”) sWindows = objWSH.ExpandEnvironmentStrings(“%WINDIR%”) sProfile = objWSH.ExpandEnvironmentStrings(“%USERPROFILE%”) sProfileRoot=objFSO.GetFolder(sProfile).ParentFolder.Path set objWSH=nothing ‘ Main Code set objProfileFolder=objFSO.GetFolder(sProfileRoot) for each objFolder in objProfileFolder.SubFolders…