Problem ze skryptem .bat

[Rufik_ 0]

Witam, mam taki skrypt:

 

@echo off
for /F "tokens=1,2" %%i in (C:\tmp\IB.txt) do (
net use /delete k: /y >nul
net use k: \\%%i\c$\users\%%j /user:***** ***** >nul
robocopy k:\Desktop\ d:\stacje\%%i\Desktop /s /MAX:102400 /LOG:d:\stacje\logs\%%i_deskt_%date%.txt /r:1 /w:1 >nul
robocopy k:\Documents\ d:\stacje\%%i\Documents /s /MAX:102400 /LOG:d:\stacje\logs\%%i_docs_%date%.txt /r:1 /w:1 >nul
net use /delete k: /y >nul
7z u -r -mx=7 -ms=off D:\stacje\%%i_%date%.7z D:\stacje\%%i
rmdir /s /q d:\stacje\%%i )
WScript C:\tmp\Remove_files_smaller_than_1kB.vbs
forfiles /p "d:\stacje\logs" /s /m *.* /c "cmd /c Del @path" /d -7 
forfiles /p "d:\stacje" /s /m *.* /c "cmd /c Del @path" /d -7
@echo on

 

 

Skrypt podłącza się do stacji ściąga dokumenty i pulpity użytkowników na serwer - robi Backup na podstawie pliku IB.txt. Potem robi logi. Następnie pakuje dane i usuwa starsze archiwa niż 7 dni. Tu jest problem, gdy np. jakiś PC jest wyłączony. 7zip robi puste archiwum. I mam pytanie jak to wyłączyć? Czyli nie może się podpiąć do stacji tworzy log, ale nie robi pustego archiwum.

 

Napisałem taki skrypt w vbs:

 

Dim strPath
Dim lngSize
Dim fso
Dim fold
Dim files
Dim file
Dim licz

licz = 0

lngSize = 33    	'rozmiar
strPath = "d:\stacje"	'ścieżka

Set fso = CreateObject("scripting.filesystemobject")
Set fold = fso.GetFolder(strPath)
Set files = fold.files

For Each file In files
If file.Size < lngSize Then 
   file.Delete True
   licz=licz+1
End If
Next 

 

i to działa tylko, że nie chciałbym mieć tego skryptu w osobnym pliku. Ewentualnie może być jakieś polecenie w .cmd co usunie mi pliki mniejsze niż lub puste. Czy ktoś ma jakieś pomysły? Byłbym bardzo wdzięczny za pomoc.

 

 

 

 

[Fonzie 34]

Może to :

https://www.computerhope.com/issues/ch000754.htm