Automatische Benachrichtigung bei Veränderungen im Netzwerkordner

@echo off & setlocal
set "run=1"  
tasklist /fi "imagename eq wscript.exe" /nh |findstr /bic:"wscript.exe" > nul && goto errorwscript  
if not exist "C:\WORP.txt" goto errordata  
set /p pfad= < "C:\WORP.txt"  
if not exist "%pfad%" goto errorpath  
echo WScript.Echo Int(CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)).Size+.99) > "%temp%\GetFolderSize.vbs"  
Echo MsgBox "Es wurden Veränderungen an ihrem Netzwerkordner vorgenommen!", VbOkOnly, "WORP" > "%temp%\worp.vbs"  

:main
cls
for /f %%i in ('cscript //nologo %temp%\GetFolderSize.vbs "%pfad%"') do set size=%%i  
if "%run%"=="1" goto nextstep  
tasklist /fi "imagename eq wscript.exe" /nh |findstr /bic:"wscript.exe" > nul && goto nextstep  
If not "%size%"=="%oldsize%" start "" "%temp%\worp.vbs"  
:nextstep
set "run=0"  
set "oldsize=%size%"  

ping 1.1.1.1 -n 1 -w 60000 > nul 
goto main

:errordata
Echo MsgBox "Fehler! Die Pfad-Datei wurde nicht gefunden! (C:\WORP.txt)", VbOkOnly, "WORP" > "%temp%\worp_error1.vbs"  
start "" "%temp%\worp_error1.vbs"  
exit

:errorpath
Echo MsgBox "Fehler! Der Netzwerkordner wurde nicht gefunden!", VbOkOnly, "WORP" > "%temp%\worp_error2.vbs"  
start "" "%temp%\worp_error2.vbs"  
exit

:errorwscript
Echo MsgBox "Fehler! Es ist bereits ein VB-Script Aktiv! Bitte beenden Sie zuerst das andere Script und starten Sie WORP anschließend neu!", VbOkOnly, "WORP" > "%temp%\worp_error3.vbs"  
start "" "%temp%\worp_error3.vbs"  
exit