У меня после устанвоки:
не подхватывает ключ, не обновляет базы ? Кто-то сталкивался ?
Код: Выделить всё
FOR /F "usebackq tokens=*" %%i IN (`ver`) do set CV=%%i
IF "%CV:~0,20%"=="Microsoft Windows XP" goto WinXPКод: Выделить всё
FOR /F "usebackq tokens=*" %%i IN (`REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName`) do set CV=%%i
IF "%CV:~-20%"=="Microsoft Windows XP" goto WinXPКод: Выделить всё
::Скрываем консольное окно, утилита cmdow.exe должна лежать в папке %WinDir%\System32
CMDOW @ /HID
@echo off
::Включаем расширенную обработку команд
SetLocal EnableExtensions EnableDelayedExpansion
::Проверяем, какая винда установлена WinXP или WinVista
FOR /F "usebackq tokens=*" %%i IN (`REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName`) do set CV=%%i
IF "%CV:~-20%"=="Microsoft Windows XP" goto WinXP
:WinVista
::Создаём директории для последующего копирования туда обновлённых баз
mkdir "%AllUsersProfile%\Kaspersky Lab\AVP7\Bases"
mkdir "%AllUsersProfile%\Kaspersky Lab\AVP7\Data"
mkdir "%AllUsersProfile%\Kaspersky Lab\AVP7\Dskm"
::Копируем новые базы
xcopy "Kaspersky Lab\AVP7\Bases\*.*" "%AllUsersProfile%\Kaspersky Lab\AVP7\Bases" /E /Q /Y
xcopy "Kaspersky Lab\AVP7\Data\*.*" "%AllUsersProfile%\Kaspersky Lab\AVP7\Data" /E /Q /Y
xcopy "Kaspersky Lab\AVP7\Dskm\*.*" "%AllUsersProfile%\Kaspersky Lab\AVP7\Dskm" /E /Q /Y
goto WinAll
:WinXP
::Создаём директории для последующего копирования туда обновлённых баз
mkdir "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Bases"
mkdir "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Data"
mkdir "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Dskm"
::Копируем новые базы
xcopy "Kaspersky Lab\AVP7\Bases\*.*" "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Bases" /E /Q /Y
xcopy "Kaspersky Lab\AVP7\Data\*.*" "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Data" /E /Q /Y
xcopy "Kaspersky Lab\AVP7\Dskm\*.*" "%AllUsersProfile%\Application Data\Kaspersky Lab\AVP7\Dskm" /E /Q /Y
:WinAll
::Удаляем с реестра информацию о старом лицензионном ключе
reg delete "HKLM\SOFTWARE\KasperskyLab\LicStorage" /f
reg delete "HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates" /f
::Устанавливаем Kis7 и твикаем реестр настройками Kis7
Start /wait kis.ru.msi /qb /norestart
Start /wait regedit /S Kis7.reg /f
::Снимаем системные аттрибуты и удаляем папку от установщика
If Exist %HOMEDRIVE%\Config.Msi attrib -s -h -r %HOMEDRIVE%\Config.Msi /d /s
If Exist %HOMEDRIVE%\Config.Msi RD /S /Q %HOMEDRIVE%\Config.Msi
ExitКод: Выделить всё
Author: Peter Cermak
Description:
Versions: NT, 2k, XP, 2k3 %Version%_cmdWinXP means NT running CMD.exe from Windows XP Supported Languages: English and German
Script:
@echo off
rem Find Windows Version
:WinVersion
echo ## Definig Windows Version
ver>"%temp%\ver.tmp"
find /i "4.0" "%temp%\ver.tmp">nul
if %ERRORLEVEL% EQU 0 set WinVersion=WinNT4
find /i "XP" "%temp%\ver.tmp">nul
if %ERRORLEVEL% EQU 0 set WinVersion=%Version%_cmdWinXP
find /i "5.0" "%temp%\ver.tmp">nul
if %ERRORLEVEL% EQU 0 set WinVersion=Win2k
find /i "5.1" "%temp%\ver.tmp">nul
if %ERRORLEVEL% EQU 0 set WinVersion=WinXP
find /i "5.2" "%temp%\ver.tmp">nul
if %ERRORLEVEL% EQU 0 set WinVersion=Win2k3
if "%WinVersion%" EQU "" set WinVersion=UNKNOWN
rem Find Language
:LanguageStrings
echo ## Definig Language and Strings
ver /?>"%temp%\ver.tmp"
find /i "Zeigt" "%temp%\ver.tmp">NUL
if %ERRORLEVEL% EQU 0 (
set Language=German
set SearchString1=IP-Adresse
set SearchString2=Media disconnected
set SearchString3=Antwort
)
find /i "Displays" "%temp%\ver.tmp"> UL
if %ERRORLEVEL% EQU 0 (
set Language=English
set SearchString1=IP Address
set SearchString2=Media disconnected
set SearchString3=Reply
)
echo Windows Version found: %WinVersion% [Language: %Language%]Код: Выделить всё
FOR /F "usebackq tokens=3*" %%i IN (`ver`) do set CV=%%i
IF "%CV%"=="XP" goto WinXP