Set objShell = Wscript.CreateObject("Wscript.Shell")

objShell.Popup "Kasowanie Starych Backup'ow-Start",5
Call DeletingOldBackups
Call DeletingAllOldMirrorsBackups
objShell.Popup "Kasowanie Starych Backup'ow-Stop",5

objShell.Popup "Fab Backup-Start",5
Call FabBackup
objShell.Popup "Fab Backup-Stop",5

objShell.Popup "Cat Backup-Start",5
Call CatBackup
objShell.Popup "Cat Backup-Stop",5

objShell.Popup "Mirrioring-Start",5
Call MirroringBackups
objShell.Popup "Mirroring-Stop",5

MsgBox "OK " & Date()
'--------------------

Sub DeletingOldBackups

 Dim fso, mainFolder, subFolder, LastModified,howManyDays

 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 GetMyFolder= "F:\"
 howManyDays=180 'ile dni mają być trzymane katalogi

 Set mainFolder = fso.GetFolder(GetMyFolder)
 
 Set subFolder = mainFolder.SubFolders
 
  For Each fi In subFolder
 
   GetMyFolder= fi.Path
   
   GetFolderName = MID(GetMyFolder,4,3)
   LastModified=fi.DateLastModified
   
    if LastModified < date() - howManyDays and (GetFolderName="Cat" or GetFolderName="Fab")  then
   
		'Skasowanie folderu    
		fso.DeleteFolder GetMyFolder,true
		
	    else
	
	      
	    end if
  Next
  
End Sub

'Kasuje wszystkie katalogi z BackupHala2
Sub DeletingAllOldMirrorsBackups

 Dim fso, mainFolder, subFolder, LastModified,howManyDays,mirFi

 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 
 GetMyMirrorFolder = "G:\"
 'howManyDays=180 'ile dni mają być trzymane katalogi

 Set mainMirrorFolder = fso.GetFolder(GetMyMirrorFolder)
 Set subMirrorFolder=mainMirrorFolder.SubFolders
  
  For Each mirFi In subMirrorFolder

  
   GetMyMirrorFolder=mirFi.Path
   GetFolderName = MID(GetMyMirrorFolder,4,3)
   LastModified=mirFi.DateLastModified
   
    if GetFolderName="Cat" or GetFolderName="Fab"  then
   
		'Skasowanie folderu    
		fso.DeleteFolder GetMyMirrorFolder,true
	    else
	
	      
	    end if
  Next
   
End Sub


Sub MirroringBackups

 Dim fso, mainFolder, subFolder, LastModified,howManyDays

 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 GetMyFolder= "F:\"
 GetMyMirrorFolder="G:\"
 howManyDays=180 'ile dni mają być trzymane katalogi

 Set mainFolder = fso.GetFolder(GetMyFolder)
 Set subFolder = mainFolder.SubFolders

  For Each fi In subFolder
	
   GetMyFolder= fi.Path
   'msgbox "GetMyFolder " & GetMyFolder
   LenDestinationFolder = len(GetMyFolder)
   
   'destinationFolder = GetMyMirrorFolder & MID(GetMyFolder,4,LenDestinationFoder)
   destinationFolder = GetMyMirrorFolder & MID(GetMyFolder,4)
   'msgbox "DestFolder" & destinationFolder
   ShortFolderName = MID(GetMyFolder,4,3)
   'destinationFolder2=destinationFolder+ShortFolderName
   'msgbox "Dest2 " & destinationFolder2
   if ShortFolderName="Cat" or ShortFolderName="Fab"  Then
      
      	 Call Kat(GetMyFolder,destinationFolder)
		 'Call File(GetMyFolder,destinationFolder) 
		 
   else
	
	      
	    end if
   
  Next

End Sub


function FabBackup() ' maszyny Online+ tworzenie katalogow na dysku


  Set WshShell = CreateObject("WScript.Shell")
  Dim computerPing,iter, objFSO,objCreateTextFile,objTextFile
 computerPing="10.10.10"

 Set objFSO= CreateObject("Scripting.FileSystemObject")
 
  for iter = 21 To 26 Step 1 
   PINGFlag = Not CBool(WshShell.run("ping -n 1 " & computerPing & "." & iter,0,True))
      If PINGFlag = True Then
       
		sourceKat = "\\" & computerPing & "." & iter & "\C\linearfab\*"
	    sourceFile=  "\\" & computerPing & "." & iter & "\C\linearfab\*.*" 	
		'objTextFile.Close
		
		folderName = "F:\Fab" 
	   
	   destinationFolder= folderName & Right(iter,1) & "_" & Date()
	   
	    IF objFSO.FolderExists(destinationFolder) = FALSE THEN
			objFSO.CreateFolder destinationFolder
			
		 ELSE
			
		 END IF
		
		Call Kat(sourceKat,destinationFolder)
		Call File(sourceFile,destinationFolder) 
		
     Else
      
	     fb=""
         FabBackup=fb
     End If
  Next 

  
end Function

function CatBackup() ' maszyny Online+ tworzenie katalogow na dysku

 Set WshShell = CreateObject("WScript.Shell")
 Dim computerPing,iter
 computerPing="10.10.10" 

 Set objFSO = CreateObject("Scripting.FileSystemObject")
 		

  for iter = 11 To 18 Step 1 
    PINGFlag = Not CBool(WshShell.run("ping -n 1 " & computerPing & "." & iter,0,True))
     If PINGFlag = True Then
        
		sourceKat =  "\\" & computerPing & "." & iter & "\C\cut502\*" 
		'msgbox "Kat:" & sourceKat 
	    sourceFile=  "\\" & computerPing & "." & iter & "\C\cut502\*.*" 
		'msgbox "File:" & sourceFile 
		folderName = "F:\Cat" 
	    
	    destinationFolder= folderName & Right(iter,1) & "_" & Date()
	  
	   IF objFSO.FolderExists(destinationFolder) = FALSE THEN
			objFSO.CreateFolder destinationFolder
		
	   ELSE
			
	   END IF
		
		Call Kat(sourceKat,destinationFolder)
		Call File(sourceFile,destinationFolder) 
		
     Else
      
	  cO=""
      CatBackup=cO
     End If
	  
	Next

end Function

Sub Kat(sourcePath, destinationPath)
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

fso.CopyFolder sourcePath, destinationPath, true
end sub


Sub File(sourcePath,destinationPath)
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

fso.CopyFile sourcePath, destinationPath, true
end sub