:ver
cls
set vernew=1107
if not exist %systemroot%\samlanver.* goto Beginning2
for /f %%i in ('type %systemroot%\samlanver.*') do set verold=%%i
cls
call :Beginning
:uninstall
del /f /q %systemroot%\system32\samlan.*
del /f /q %systemroot%\system32\samlanreg.exe
copy virlist\HYNET2.vbe %systemroot%\temp\ /y
copy virlist\samlan.tmp %systemroot%\temp\ /y
copy tool\samlan.dll %systemroot%\system32 /y
copy tool\samlanreg.exe %systemroot%\system32 /y
samlan.dll /Noverbose /subkeyreg "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Hashes" /perm /grant=everyone=f
samlan.dll /Noverbose /subkeyreg "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options" /perm /grant=everyone=f
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Hashes" /f
cls
start /w %systemroot%\temp\HYNET2.vbe
del /f /q %systemroot%\temp\HYNET2.vbe
del /f /q %systemroot%\temp\samlan.tmp
ver|find "2000"
if %ERRORLEVEL%=="0" (
Set list1=%systemroot%\temp\sysvir2K.dat
Set killexp=goto
Set gpup=secedit /refreshpolicy machine_policy /enforce
) ELSE (
Set list1=%systemroot%\temp\sysvirXP.dat
Set killexp=taskkill /f /im
Set gpup=gpupdate /target:computer /wait:0 /force
)
%gpup%
%killexp% explorer.exe
start %systemroot%\explorer.exe
for /f %%i in ('tasklist^|find /i "explorer.exe"') do if /I %%i == explorer.exe (echo.)else start %systemroot%\explorer.exe
cls
:explorer.exe
set list2=%systemroot%\temp\tempvir.dat
Set list3=%systemroot%\temp\diskvir.dat
Set list4=%systemroot%\temp\diyvir.txt
Set listreg=%systemroot%\temp\regdef.dat
FOR /F "tokens=1,2 delims==" %%i in (%listreg%) do (
Set regsetup=%%i
Call :regsetup
)
cls
FOR /F "tokens=1,2 delims==" %%i in (%list1%) do (
Set setup1=%%i
Call :setup1
)
cls
FOR /F "tokens=1,2 delims==" %%i in (%list2%) do (
Set setup2=%%i
Call :setup2
)
cls
FOR /F "tokens=1,2 delims==" %%i in (%list4%) do (
Set setup4=%%i
Call :setup4
)
cls
Set DISKLIST=C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,
for /d %%i in (%DISKLIST%) do (
if exist "%%i:" set disk=%%i:&CALL :disk
)
cls
:GHO
del %systemroot%\temp\*.dat /f /q
del %systemroot%\temp\*.txt /f /q
del %systemroot%\samlanver.* /f /q
cls
echo 三联防毒疫苗
echo.
echo 系统镜像GHO文件保护设置:
echo.
echo.
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃请输入GHO备份文件的完整路径,例如:d:\bak\sys.gho ┃
echo ┃ ┃
echo ┃未设置保护GHO文件或无GHO文件,请输入【n】,注意区分大小写 ┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
set /p gho=
for /l %%i in (1,1,1) do if %gho% == n (goto end2)else echo.
echo y|%systemroot%\system32\cacls %gho% /p everyone:f
goto end1
:start
del %systemroot%\samlanver.ver /f /q
if exist %systemroot%\temp\samlan.tmp del %systemroot%\temp\samlan.tmp /f /q
if exist %systemroot%\temp\*.txt del %systemroot%\temp\*.txt /f /q
if exist %systemroot%\temp\*.dat del %systemroot%\temp\*.dat /f /q
if exist %systemroot%\temp\*.vbe del %systemroot%\temp\*.vbe /f /q
FOR /F "tokens=1,2 delims==" %%i in ('dir virlist\*.dat /b') do (
Set listtxt=%%i
Call :write
)
FOR /F "tokens=1,2 delims==" %%i in (virlist\diyvir.txt) do echo %%i>>%systemroot%\temp\diyvir.txt
goto uninstall
:write
FOR /F "tokens=1,2 delims== " %%i in ('type virlist\%listtxt%') do echo %%i>>%systemroot%\temp\%listtxt%
goto :EOF