VBS/WSH/JS

Iska · Отправлено: **19:12, 11-02-2017** | #2

Цитата botkin1:

Необходимо найти ветку в реестре »

Какую? Зачем? Версия установленного Microsoft Office определяется совсем не так. К тому же, скажем, при установленном Office 2003 и пакете совместимости (типичное дело) наличествует как раздел 11.0
так и 12.0.

botkin1 · Отправлено: **19:24, 11-02-2017** | #3

Вообще есть нормальный скрипт через WMI, который определяет версию Microsoft Office и нормально работает, но есть одно препятствие на ПЭВМ WMI - может быть не рабочий и следовательно изменения в реестр не запишет.
Поэтому пошли самым простым на наш взгляд способом ищем в реестра, вероятность наличия 2003 очень мала.
И очень хочется понять, что не правильно

Iska · Отправлено: **20:05, 11-02-2017** | #4

Цитата botkin1:

но есть одно препятствие на ПЭВМ WMI - может быть не рабочий »

Простите, это как — «не рабочий»?

botkin1 · Отправлено: **07:57, 12-02-2017** | #5

"Не рабочий" - это значит служба работает, а при выполнении запроса выходит ошибка, либо ответ просто не получаешь.
И все таки хотелось понять почему не работает проверка условий?
У меня предположение, что в таком виде и не будет работать так как проверяется не одно значение на несколько условий.

Iska · Отправлено: **11:34, 12-02-2017** | #6

Цитата 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

вместо того, что у Вас. Но, как я писал выше, данный алгоритм далеко не всегда отработает корректно. По целому ряду причин.

botkin1 · Отправлено: **12:40, 12-02-2017** | #7

Цитата:

С этим надо разбираться, а не отмахиваться

Я не отмахиваюсь и проблему решаем по мере возникновения, но когда парк машин более 2500 и сделать нужно быстро, разбираться с каждой просто нет времени.
Поставленная задача, как говорится "овчинка выделки не стоит", но руководство хочет.
Вы все верно поняли, перепробовал все варианты, но опыта нет вот и застрял.
Спасибо, Вам снова выручили