Цитата botkin1:
|
И все таки хотелось понять почему не работает проверка условий? »
|
Проверка условий работает. Ровно так, как и заказывали.
Цитата botkin1:
|
"Не рабочий" - это значит служба работает, а при выполнении запроса выходит ошибка, либо ответ просто не получаешь. »
|
Какая именно ошибка? Какого именно запроса? Что значит «ответ просто не получаешь»?! С этим надо разбираться, а не отмахиваться.
Я предполагаю, что Вы хотели нечто такое:
Код:
mkey2003 = WshShell.RegRead("HKCU\Software\Microsoft\Office\11.0\")
mkey2007 = WshShell.RegRead("HKCU\Software\Microsoft\Office\12.0\")
mkey2010 = WshShell.RegRead("HKCU\Software\Microsoft\Office\14.0\")
и:
Код:
If Not VarType(mkey2003) = vbEmpty Then
…
ElseIf Not VarType(mkey2007) = vbEmpty Then
…
ElseIf Not VarType(mkey2010) = vbEmpty Then
…
End If
вместо того, что у Вас. Но, как я писал выше, данный алгоритм далеко не всегда отработает корректно. По целому ряду причин.
