После встраивания обновлений в дистрибутив XP с помомощью RVM интегратора в директории I386/svcpack файлы типа kb..........exe заменяются файлами с расширениями ca_ Поэтому я считаю, что нужно добавить также сканирование на файлы
Таким образом сейчас в макросе 2 ЦИКЛА. По идее они должны отлавливать наличие обоих файлов и вносить о них информацию! Может кому и нада?
Код:
echo Line5=Дата установки системы: %date% >> "%D%oeminfo.ini"
echo Line6= >> "%D%oeminfo.ini"
echo Line7=Время установки системы: %time% >> "%D%oeminfo.ini"
echo Line8= >> "%D%oeminfo.ini"
echo Line9=Установленные обновления: >> "%D%oeminfo.ini"
echo Line10= >> "%D%oeminfo.ini"
set i=10
set j=0
set string0=
set string1=
set string2=
set string3=
set string4=
set string5=
FOR %%d IN (c d e f g h i j k l m n o p q r s t u v w x y z) DO IF EXIST %%d\WIN51IP SET CDROM=%%d
For /F "TOKENS=1 delims=.exe" %%j in ('dir /B %CDROM%\I386\svcpack\KB*.exe') do ((set kbname=%%j) & (call :myprint))
For /F "TOKENS=1 delims=.ca_" %%j in ('dir /B %CDROM%\I386\svcpack\KB*.ca_') do ((set kbname=%%j) & (call :myprint))
if %j% == 1 echo Line%i%=%string0% >> "%D%oeminfo.ini"
if %j% == 2 echo Line%i%=%string0% %string1%>> "%D%oeminfo.ini"
if %j% == 3 echo Line%i%=%string0% %string1% %string2%>> "%D%oeminfo.ini"
if %j% == 4 echo Line%i%=%string0% %string1% %string2% %string3%>> "%D%oeminfo.ini"
if %j% == 5 echo Line%i%=%string0% %string1% %string2% %string3% %string4% >> "%D%oeminfo.ini"
GOTO :EOF
:myprint
if %j% == 0 set string0=%kbname%
if %j% == 1 set string1=%kbname%
if %j% == 2 set string2=%kbname%
if %j% == 3 set string3=%kbname%
if %j% == 4 set string4=%kbname%
if %j% == 5 set string5=%kbname%
if %j% == 5 echo Line%i%=%string0% %string1% %string2% %string3% %string4% %string5%>> "%D%oeminfo.ini"
if %j% == 5 set string0=
if %j% == 5 set string1=
if %j% == 5 set string2=
if %j% == 5 set string3=
if %j% == 5 set string4=
if %j% == 5 set string5=
if %j% == 5 set /A i=%i%+1
set /A j=%j%+1
if %j% == 6 set j=0
:EOF
