Dim DoDelete
Dim inputFRSRoot
Dim outputFRSRoot

DoDelete = False   ‘ False = Test Mode, True = Actually Delete the Files
inputFRSRoot = “C:\Program Files (x86)\Business Objects\BusinessObjects Enterprise 12.0\FileStore\Input”
outputFRSRoot = “C:\Program Files (x86)\Business Objects\BusinessObjects Enterprise 12.0\FileStore\Output”

‘Declare CMS logon variables
Dim CMS
Dim Usnername
Dim Password
Dim Authtype

CMS = “localhost”
Username = “Administrator”
Password = “”
Authtype = “secEnterprise”

‘Declare variables for Enterprise Session
Dim oEnterpriseSessionMgr
Dim ceSession
Dim oInfoObjects
Dim oInfoObjects2
Dim boServer1Admin
Dim boServer2Admin

‘ File IO stuff
Dim objFSO
Dim outputFile

‘Open the outputFile for logging.
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
set outputFile = objFSO.OpenTextFile(“C:\output.log”,8,True)

outputFile.WriteLine(“——– Starting Script ——–“)

‘Load the Enterprise Session Manager
Set oEnterpriseSessionMgr = CreateObject(“CrystalEnterprise.SessionMgr”)

‘Logon to the CMS and create iStore object
Set ceSession = oEnterpriseSessionMgr.Logon(Username, Password, CMS, Authtype)
Set iStore = ceSession.Service(“”,”InfoStore”)

outputFile.WriteLine(“Input FRS Root = ” & inputFRSRoot)
outputFile.WriteLine(“Output FRS Root = ” & outputFRSRoot)

‘ Now that we have the root folders – we need to loop through them and drill down to the deepest level
‘ The logic used is:
‘ – Is there a file?  If not, is there a sub-folder.
‘ – If there is a sub-folder – then go into it
‘ – If there is a file – then look at the last folder name – that will be the SI_ID
‘ – Check if an object with that SI_ID exists.  If it does – all is well – if not – flag for deletion
‘ – The deletion will go up folder by folder until one of three conditions occur. 
‘ – 1. A file exists in the folder.
‘ – 2. More than 1 sub-folder
‘ – 3. The name of the current folder is either Input, or Output

Dim finalOutput
Dim finalInput

‘ Scan the Input FRS
outputFile.WriteLine(“Starting Input FRS”)
finalInput = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, inputFRSRoot)
outputFile.WriteLine(“”)

‘ Scan the Output FRS
outputFile.WriteLine(“Starting Output FRS”)
finalOutput = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, outputFRSRoot)

outputFile.WriteLine(“All Done”)

‘ Clean everything up
outputFile.close
ceSession.Logoff()
Set oInfoObjects = Nothing
Set oInfoObject = Nothing
Set iStore = Nothing
Set ceSession = Nothing
Set oEnterpriseSessionMgr = Nothing

Function CheckAndDelete(DoDelete, iStore, objFSO, outputFile, fileRoot)
Dim boFolder
Dim boFile
Dim folderCount
Dim fileCount
Dim boSubFolder
Dim DeleteThisFolder
Dim boInfoObjects

‘ Set it initially to not delete the folder
CheckAndDelete = false

Set boFolder = objFSO.GetFolder(fileRoot)

‘ Get a count of the files in this folder, and a count of the sub-folders
fileCount = boFolder.Files.Count

‘ Are there files here – then we need to check if the matching SI_ID exists
if fileCount > 0 then
  Set boInfoObjects = iStore.Query(“select SI_ID from CI_INFOOBJECTS, CI_SYSTEMOBJECTS, CI_APPOBJECTS where SI_ID = ” & boFolder.Name)

  ‘ If the count is 0 – then this is an orphan
  if boInfoObjects.count = 0 then
   outputFile.WriteLine(“Orphaned File with ID ” & boFolder.Name & ” found at ” & fileRoot)
  
   ‘ Delete the files in this folder
   For Each boFile in boFolder.Files
    if DoDelete = True then
     outputFile.WriteLine(“Deleting File: ” & fileRoot & “\” & boFile.Name)
     objFSO.DeleteFile fileRoot & “\” & boFile.Name, true
    Else
     outputFile.WriteLine(“In Test Mode – Would have deleted File: ” & fileRoot & “\” & boFile.Name)
    End If
   Next

   ‘ Set the delete flag to true to tell the function one up the recursive stack to remove this folder
   CheckAndDelete = true
  end if
end if

For Each boSubFolder in boFolder.SubFolders
  ‘outputFile.WriteLine(boSubFolder.Name)
  DeleteThisFolder = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, fileRoot & “\” & boSubFolder.Name)
 
  if DeleteThisFolder = true then
   if DoDelete = True then
    outputFile.WriteLine(“Deleting Folder: ” & fileRoot & “\” & boSubFolder.Name)
    objFSO.DeleteFolder(fileRoot & “\” & boSubFolder.Name)
   Else
    outputFile.WriteLine(“In Test Mode – Would have deleted Folder: ” & fileRoot & “\” & boSubFolder.Name)
   End If
 
   ‘ Now check and see if there are any more sub-folders in this folder – or if the name of the folder is Input or Output.
   folderCount = boFolder.SubFolders.Count
   if folderCount = 0 then
    if boFolder.Name = “Input” or boFolder.Name = “Output” then
     CheckAndDelete = false
    else
     CheckAndDelete = true
    end if
   end if
  end if
Next
End Function

Dim xmlDoc
Dim fname
Dim fpath
dim filesys

Set filesys = CreateObject(“Scripting.FileSystemObject”)
Set xmlDoc = CreateObject(“Microsoft.XMLDOM”)
xmlDoc.Async = “False”
xmlDoc.Load(“C:\Documents and Settings\spenner\My Documents\xmlparse\Repo_Scan_2008_11_24_12_21_24.xml”)

strQuery = “/ScanResults/File”
Set colItem = xmlDoc.selectNodes(strQuery)

For Each objItem in colItem
fname = objItem.selectSingleNode(“File_Name”).nodeTypedValue
fpath = objItem.selectSingleNode(“Directory_Path”).nodeTypedValue

WScript.Echo “Manually Deleting File: ” + fpath + fname
filesys.DeleteFile fpath + fname, true

‘WScript.Echo objItem.nodeName & “: ” & objItem.text
Next