Count Files In All The SMS inboxes And Send To Excel

 

Use the following Vbs script to list all of the SMS inboxes and count the number of files in them and in turn write the results to an Excel spreadsheet.

 

Note: Change SiteServerName to your site server name and change SMS_XXX to your three letter site code.

 

VBS Script:

 

sStartPath = "\\SiteServerName\SMS_XXX\inboxes\"

Set oFSO = CreateObject("Scripting.FileSystemObject")

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

objExcel.Cells(1, 1).Value = "Directory"

objExcel.Cells(1, 2).Value = "Count"

 

ListFolders(sStartPath)

 

Sub ListFolders(sPath)

Set oFolder = oFSO.GetFolder(sPath)

objExcel.Cells(intRow, 1).Value = oFolder.Path

objExcel.Cells(intRow, 2).Value = oFolder.Files.Count

intRow = intRow + 1

 

For Each oFldr In oFolder.SubFolders

ListFolders oFldr.Path

Next

End Sub

 

Set sStartPath = Nothing

Set objExcel = Nothing

 

objExcel.Range("A1:B1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

 

Published Sunday, July 23, 2006 8:51 AM by dhite
Filed under: ,

Comments

# ConfigMgr 2007 Inboxes To Monitor

ConfigMgr 2007 inboxes with a backlog of files to be processed generally indicates a problem is occurring

Sunday, June 08, 2008 9:26 AM by Don Hite