Backup Script check

Add comments

We have two scripts

1. Connects to all server and check the last backup file (date) & the number of backup in the folder (should be 5),

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile0 = objFSO.OpenTextFile("D:\Script\CheckFilesOnServer\cobianServers.txt", 1)
Dim Last
 
Do Until objFile0.AtEndOfStream
strComputer = objFile0.ReadLine
num = 0
 
' generate a filename base on the script name
strOutputFile = "D:\Script\CheckFilesOnServer\" & Split(WScript.ScriptName, ".")(0) & ".log"
'  Create object and file for output
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
Set OutputLogFile= objFileSystem.GetFile(strOutputFile)
 
'  Create object for file path
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "\\" & strComputer & "-serveur\B$\2009-2010"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
 
	'get path of every file and test path length
		Last= " "
        For Each objFile in colFiles
         on error resume next
         Last=objFile.Name
        	num = num + 1
		Next
		objOutputFile.WriteLine ("Last: " & Last & " - Numb: " & num & "- Server : " & strComputer )
Loop

2. Go and delete any backups older than 11 days on the school servers. deleteOlderFiles

Dim fso, f, f1, fc
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\Script\CheckFilesOnServer\cobianServers.txt", 1)
 
Do Until objFile.AtEndOfStream
On error resume next
 
strComputer = objFile.ReadLine
 
'##### Creating Log File and prepare for writing #####
strOutputFile = "D:\Script\CheckFilesOnServer\" & Split(WScript.ScriptName, ".")(0) & ".log"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
Set OutputLogFile= objFileSystem.GetFile(strOutputFile)
 
'##### Preparing Folder where files are to be deleted #####
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("\\" & strComputer & "-serveur\B$\2009-2010")
Set fc = f.Files
 
'##### Deleting Files where Last Modified is less than 11 days ######
For Each f1 in fc
If DateDiff("d", f1.DateLastModified, Now) > 11 Then
f1.Delete
End If
Next
Set fso = Nothing
Set f = Nothing
Set fc = Nothing 
 
objOutputFile.WriteLine ("cleaned backup folder for " & strComputer & " server " )
 
Loop
wscript.echo("Terminé!!!")
Posted on February 8th 2010 in IT/ Network Admin ShareThis

Leave a Reply