Update.. for the community here is my final script that works..
Option ExplicitDim objFSO, arrProfileAge, colFolders, objFolder, intRecord, intDomainAccts, objUser, objGroupSet objFSO = WScript.CreateObject("Scripting.FileSystemObject")Set arrProfileAge = CreateObject("System.Collections.ArrayList")Set colFolders = objFSO.GetFolder("C:\Documents and Settings").SubFolders' Loop through the folders to get the DateLastModifiedFor Each objFolder in colFoldersSelect Case UCase(objFolder.Name)Case "ADMINISTRATOR", "ALL USERS", "DEFAULT USER", "LOCALSERVICE", "NETWORKSERVICE" ' Do Nothing, exclude