Dim enterpriseFab,enterpriseCatRama,enterpriseCatSkrzydlo,enterpriseCatSlupek
Dim objShell,objTextFile

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

'Sciezka na serwerze Enterprise

enterpriseFab = "X:\fab\"
enterpriseCatRama = "X:\cat\rama\"
enterpriseCatSkrzydlo = "X:\cat\skrzydlo\"
enterpriseCatSlupek = "X:\cat\slupek\"

'Sprawdzanie ktore maszyny są online
 objShell.Popup "Maszyny Online-Start",5
 Call FabOnline
 Call CatOnline
 objShell.Popup "Maszyny Online-Koniec",5
 
 'Kasowanie plikow na Enterprise
 
 objShell.Popup "Kasowanie Enterprise",5
 
 Call KasowanieEnterpriseFab(enterpriseFab)
 Call KasowanieEnterpriseCat(enterpriseCatRama)
 Call KasowanieEnterpriseCat(enterpriseCatSkrzydlo)
 Call KasowanieEnterpriseCat(enterpriseCatSlupek)
 
 objShell.Popup "Kasowanie Enterprise - Gotowe",5
 
 'Kasowanie plikow na Fab'ach
 
 objShell.Popup "Kasowanie Fab",5
  
  Call KasowanieFab()
 
 objShell.Popup "Kasowanie Fab - Gotowe",5
 
'Kasowanie plikow na Cat'ach
 
 objShell.Popup "Kasowanie Cat",5
 Call KasowanieCat()
 
 objShell.Popup "Kasowanie Cat - Gotowe",5
 
'Wykonanie sie poprawnie calego skryptu
 
 MsgBox "Koniec"
 
Function KasowanieEnterpriseFab(path)

Dim objFSO,objFolder,objFile,ModifiedDate,colFiles,FileName,p,howManyDays,wynik 

howManyDays=90

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\SkasowaneEnterpriseFab.txt",8) 

objTextFile.WriteLine "Kasowanie rozpoczete o " & date() & " " & time()        

Set objFolder = objFSO.GetFolder(path)

Set colFiles = objFolder.Files

'Sprawdzenie kazdego pliku w katalogu
For Each objFile in colFiles
    
	'Rozbicie pliku na nazwe ...
	FileName=objFile.Name 
	
	' oraz date modyfikacji
	ModifiedDate= objFile.DateLastModified
	
	
	'Skasowanie plikow starszych niz xx dni
  if ModifiedDate < date() - howManyDays and (objFSO.GetExtensionName(objFile.Name) = "fa1" or objFSO.GetExtensionName(objFile.Name) = "FA1" ) then
	
	'Zapisanie do pliku nazwy pliku oraz daty modyfikacji 
	objTextFile.WriteLine "" & FileName & ", " & ModifiedDate
     
	 'Skasowanie pliku
	objFSO.DeleteFile (path & FileName) 
	
	else
	
	p=""
	KasowanieEnterpriseFab = p  
  end if
Next
objTextFile.Close
end Function

Function KasowanieEnterpriseCat(path)

Dim objFSO,objFolder,objFile,ModifiedDate,colFiles,FileName,p,howManyDays,wynik 

howManyDays=90

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\SkasowaneEnterpriseCat.txt",8) 
objTextFile.WriteLine "Kasowanie rozpoczete o " & date() & " " & time()        

Set objFolder = objFSO.GetFolder(path)

Set colFiles = objFolder.Files

'Sprawdzenie kazdego pliku w katalogu
For Each objFile in colFiles
    
	'Rozbicie pliku na nazwe ...
	FileName=objFile.Name 
	
	' oraz date modyfikacji
	ModifiedDate= objFile.DateLastModified
	
	
	'Skasowanie plikow starszych niz xx dni
	if ModifiedDate < date() - howManyDays and (objFSO.GetExtensionName(objFile.Name) = "EX1" or objFSO.GetExtensionName(objFile.Name) = "EX2") then
	
    'Zapisanie do pliku nazwy pliku oraz daty modyfikacji
	objTextFile.WriteLine "" & FileName & ", " & ModifiedDate
     
	'Skasowanie pliku	
	objFSO.DeleteFile (path & FileName) 
	
	else
	
	p=""
	KasowanieEnterpriseCat = p  
	end if
Next
objTextFile.Close
end Function


Function KasowanieFab()

Dim objFSO,objFolder,objFile,ModifiedDate,colFiles,FileName,p,howManyDays,wynik,computerName,strComputer


howManyDays=90

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\SkasowaneFab.txt",8) 
Set readFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\FabOnline.txt",1) 

objTextFile.WriteLine "Kasowanie rozpoczete o: " & date() & " " & time()  

Do While readFile.AtEndOfStream <> True
    strComputer = readFile.ReadLine
	objTextFile.WriteLine "" & strComputer

 Set objFolder = objFSO.GetFolder(strComputer)

 Set colFiles = objFolder.Files

  'Sprawdzenie kazdego pliku w katalogu
   For Each objFile in colFiles
    
	'Rozbicie pliku na nazwe ...
	FileName=objFile.Name 
	
	' oraz date modyfikacji
	ModifiedDate= objFile.DateLastModified
	
	
	'Skasowanie plikow starszych niz xx dni
	
	 if ModifiedDate < date() - howManyDays and (objFSO.GetExtensionName(objFile.Name) = "fa1" or objFSO.GetExtensionName(objFile.Name) = "FA1") then
	
		'Zapisanie do pliku nazwy pliku oraz daty modyfikacji 
		objTextFile.WriteLine "" & FileName & ", " & ModifiedDate
		
		'Skasowanie pliku    
		objFSO.DeleteFile (strComputer & FileName) 
	
	    else
	
	    p=""
	    KasowanieFab = p  
	    end if
	
Next
Loop
objTextFile.Close
readFile.Close
end Function

Function KasowanieCat()

Dim objFSO,objFolder,objFile,ModifiedDate,colFiles,FileName,p,howManyDays,computerName,strComputer 

howManyDays=90

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\SkasowaneCat.txt",8) 
Set readFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\CatOnline.txt",1) 

objTextFile.WriteLine "Kasowanie rozpoczete o " & date() & " " & time() 

Do While readFile.AtEndOfStream <> True
    strComputer = readFile.ReadLine
	objTextFile.WriteLine "" & strComputer

	Set objFolder = objFSO.GetFolder(strComputer)

    Set colFiles = objFolder.Files
'Sprawdzenie kazdego pliku w katalogu
  For Each objFile in colFiles
    
	'Rozbicie pliku na nazwe ...
	FileName=objFile.Name 
	
	' oraz date modyfikacji
	ModifiedDate= objFile.DateLastModified
	'Skasowanie plikow starszych niz xx dni
	
	
		if ModifiedDate < date() - howManyDays and (objFSO.GetExtensionName(objFile.Name) = "EX1" or objFSO.GetExtensionName(objFile.Name) = "EX2") then
	
		'Dodanie do pliku nazwy pliku oraz daty modyfikacji
		objTextFile.WriteLine "" & FileName & ", " & ModifiedDate
		'Skasowanie pliku
		objFSO.DeleteFile (strComputer & FileName)
	
		else
	
		p=""
		KasowanieCat = p
	
		end if
	
  Next
Loop
objTextFile.Close
readFile.Close
end Function


'Sprawdzanie czy maszyny są online, jezeli tak zapisujemy ich IP

function FabOnline ()

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCreateTextFile = objFSO.CreateTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\FabOnline.txt",True)
objCreateTextFile.Close		

for iter = 21 To 26 Step 1 
PINGFlag = Not CBool(WshShell.run("ping -n 1 " & computerPing & "." & iter,0,True))
      If PINGFlag = True Then
        Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\FabOnline.txt",8) 
		objTextFile.WriteLine "\\" & computerPing & "." & iter & "\fablist\"
		
		objTextFile.Close
      Else
      
	  cO=""
      FabOnline=cO
      End If
	  
Next 

end Function

function CatOnline ()

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCreateTextFile = objFSO.CreateTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\CatOnline.txt",true) 
objCreateTextFile.Close		

for iter = 11 To 18 Step 1 
PINGFlag = Not CBool(WshShell.run("ping -n 1 " & computerPing & "." & iter,0,True))
      If PINGFlag = True Then
        Set objTextFile = objFSO.OpenTextFile("\\192.168.100.44\Dokumenty działowe\IT\Skrypty\KasowaniePlikow\CatOnline.txt",8)
		objTextFile.WriteLine "\\" & computerPing & "." & iter & "\PLIKI_NA_CATA\klaes\rama\"
		objTextFile.WriteLine "\\" & computerPing & "." & iter & "\PLIKI_NA_CATA\klaes\skrzydlo\"
		objTextFile.WriteLine "\\" & computerPing & "." & iter & "\PLIKI_NA_CATA\klaes\slupek\"
		
        objTextFile.Close
      Else
      
	  cO=""
      CatOnline=cO
      End If
	  
Next

end Function