added scripts and SUPERMICRO

cleanup.vbs

@@ -0,0 +1,131 @@
+Const Active = False 'Is script active or runing in test mode
+Const sRootSource = "e:\BulkuploadFiles\" 'top level folders
+Const sAppendSource = "\Listings\Listing_File_Archive\" ' subdir to append to subdirs of sRootSource
+Const MaxAge = 60 'days
+Const MaxSize = 52428800 'Size in bytes  -- Size in MB * 1024 * 1024
+Const Recursive = True 'check subfolders
+
+'reset other varibles
+Checked = 0
+Deleted = 0
+totalSize = 0
+toCheck = ""
+
+'create File System Object and start logfile
+Set oFSO = CreateObject("Scripting.FileSystemObject")
+Set oLogFile = oFSO.OpenTextFile(oFSO.GetParentFolderName(WScript.ScriptFullName) & "\DeleteFilesScriptLog.txt", 8, True, -2)
+oLogFile.Write "<----------------------Script started at: " & Now() & "---------------------->" & vbCrLf
+
+'get parent dir list and the run CheckFolder on each subdir
+ListFolder oFSO.GetFolder(sRootSource)
+
+If Active Then verb = " file(s) and folder(s) were deleted." Else verb = " file(s) and folder(s) would be deleted."
+'WScript.Echo Checked & " file(s) and folder(s) checked, " & Deleted & verb
+
+'Gets top level folder names from sRootSource, checks to make sure the subdir exists and if true runs CheckFolder
+Sub ListFolder (oRootFldr)
+	For Each oSubfolder In oRootFldr.SubFolders
+	toCheck = oSubfolder & sAppendSource
+	if  oFSO.FolderExists(toCheck) Then
+	CheckFolder oFSO.GetFolder(toCheck)
+	end if
+	Next
+End Sub
+
+'Takes the folder specified in sSource and deletes all files that are older than MaxAge days and that don't have
+'the Read-only, Hidden, and/or System File attributes, and deletes all empty folders
+Sub CheckFolder (oFldr)
+    For Each oFile In oFldr.Files
+              
+        Checked = Checked + 1
+                
+        'If this is a trial run display if the old file would be deleted and record size to logfile
+        If not Active Then
+            If DateDiff("D", oFile.DateCreated, Now()) > MaxAge Then                            
+                Deleted = Deleted + 1
+				totalSize = totalSize + oFile.Size
+                oLogFile.Write "The File <<" & oFile & ">> would be deleted because it's too OLD." & vbCrLf                           
+            End If
+	    If oFile.Size > MaxSize Then                            
+                Deleted = Deleted + 1
+				totalSize = totalSize + oFile.Size
+                oLogFile.Write "The File <<" & oFile & ">> would be deleted because it's too BIG. " & oFile.Size & "bytes" & totalSize/1024/1024 & "GB" & vbCrLf                        
+            End If
+        End If
+        
+        'If this is a real run delete old items and write to log
+        If Active Then            
+            If DateDiff("D", oFile.DateCreated, Now()) > MaxAge Then
+                Deleted = Deleted + 1
+				totalSize = totalSize + oFile.Size
+                oLogFile.Write "Deleted File (age): " & oFile & vbCrLf
+                oFile.Delete
+            End If            
+		If oFile.Size > MaxSize Then
+                Deleted = Deleted + 1
+				totalSize = totalSize + oFile.Size
+                oLogFile.Write "Deleted File (size): " & oFile & vbCrLf
+                oFile.Delete
+            End If          
+
+
+	   End If
+        
+    'End of File Loop            
+    Next
+
+    'If we don't want this script to run into subfolders then exit the method here
+    If not Recursive Then Exit Sub
+        
+    For Each oSubfolder In oFldr.Subfolders
+        Checked = Checked + 1 
+        
+		'check the subfolder's files
+		CheckFolder(oSubfolder)
+		
+        'If this is a trial run display if an empty folder would be deleted
+        If not Active AND CountFiles(oFSO.GetFolder(oSubfolder)) = 0 Then
+            Deleted = Deleted + 1
+            WScript.Echo "The Folder <<" & oSubfolder & ">> is Empty."
+        End If
+        
+        'If this is a real run delete the empty folder and write to log
+        'If Active AND CountFiles(oFSO.GetFolder(oSubfolder)) = 0 Then
+        '    Deleted = Deleted + 1
+        '    oLogFile.Write "Deleted Folder:" & oSubfolder & vbCrLf
+        '    oSubfolder.Delete
+        'End If
+        
+    'End of Subfolder Loop
+    Next        
+    
+End Sub
+
+oLogFile.Write Checked & " file(s) and folder(s) checked, " & Deleted & verb
+oLogFile.Write totalSize & "bytes would be freed up, or " & totalSize/1024/1024 & "GB"
+
+oLogFile.Write "<----------------------Script ended at: " & Now() & "---------------------->" & vbCrLf
+oLogFile.Close
+
+' Takes a string argument containing the name of the directory
+' returns an integer containing the nubmer of files in that direcrectory
+' and all sub directories
+'This Function modified from visualAd on www.vbforums.com's post on Apr 29th, 2004 at 06:18PM
+Function CountFiles (ByVal StrFolder)
+    Dim ParentFld
+    Dim SubFld
+    Dim IntCount
+    
+    Set ParentFld = oFSO.GetFolder (StrFolder)
+    
+    ' count the number of files in the current directory
+    IntCount = ParentFld.Files.Count
+    
+    For Each SubFld In ParentFld.SubFolders
+        ' count all files in each subfolder - recursion point
+        IntCount = IntCount + CountFiles(SubFld.Path)
+    Next
+
+    ' return counted files
+    CountFiles = IntCount
+End Function