[adima]

1.ESET Антивирус
2. Возможность есть

Скрипт я нашел но есть прoблемы:

$path = "HKEY_LOCAL_MACHINE\SOFTWARE\7-Zip";
Dim $minidb[1];
For $i=1 To 10
$val=RegEnumVal($path, $i);
If (@error<>0) Then ExitLoop
ReDim $minidb[$i];
$minidb[$i-1]=$val;
Next
While 1
For $i=1 To 10
$val=RegEnumVal($path, $i);
If (@error<>0) Then ExitLoop
If $minidb[$i-1]<>$val Then ;;;;;
MsgBox(48,"Test", "Обнаружены изменения!")
EndIf
Next
WEnd

Проблема:
Через раз вылетает с ошибкой ;;;;; Array variable has incorrect number of subscripts or subscript dimension range exceeded