home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTCK12B.ZIP / VIRUS.BAT < prev   
DOS Batch File  |  1994-06-11  |  763b  |  34 lines
  1. @echo off
  2. loadbtm on
  3. if exist %PCBDRIVE%%PCBDIR%\FILELIST.ARC DEL %PCBDRIVE%%PCBDIR%\FILELIST.ARC /Q
  4.  
  5. :SCAN
  6. REM *** Scanning for Virus's ***
  7. TBSCAN C:\TEMP%PCBNODE% af in se co nb nm nh ba II=4  >nul
  8. IF ERRORLEVEL 4 GOTO VIRUS_FOUND
  9. IF ERRORLEVEL 5 GOTO VIRUS_FOUND
  10. GOTO ENDE
  11.  
  12. :virus_found
  13. echo virus_found> %pcbdrive%%pcbdir%\work\pcbfail.txt
  14. REM 4DOS's Move file Command
  15. move %1 l:\bad.vir /q
  16.  
  17. REM DOS's Move File Command
  18. REM MOVE /Y %1 l:\bad.vir 
  19.  
  20. :ende
  21. gosub del_temp
  22. goto end_program
  23.  
  24. :del_temp
  25. REM 4DOS'S REMOVE WORK DIRECTORY COMMAND
  26. IF EXIST C:\TEMP%PCBNODE%\*.* DEL C:\TEMP%PCBNODE% /Y/S/X /Q
  27.  
  28. REM *** DOS REMOVE WORK DIRECTORY COMMAND
  29. REM IF EXIST C:\TEMP%PCBNODE%\*.* DELTREE /Y C:\TEMP%PCBNODE%
  30. RETURN
  31.  
  32. :end_program
  33.  
  34.