VPF::Простой VBS-скрипт работает в W2K3Ent

Akina

Дата 20.2.2009, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

Есть процесс, в ходе которого для удобства работы приходится открывать много (до 50) окон Internet Explorer (используется версия 6.50), причём все они открываются с линков первого из окон. Закрывать их потом вручную - мучение. Использовать же пакетное закрытие нельзя - первое окно должно остаться на экране.

Для автозакрытия написан простейший скрипт:

Код


Dim Process
Dim Processes
Dim i
i = 0
Set Processes = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='Iexplore.exe'")
For Each Process in Processes
   If i = 0 Then
      i = 1
   Else
      Process.Terminate(0)
   End If
Next

Так вот - скрипт прекрасно работает на Windows 2003 Server Enterprise Edition SP 2 Rus и не работает на Windows 2000 Prof SP 4 Rus.
Если убрать блок If, оставив от него только Process.Terminate(0), скрипт работает, закрывая все окна...

Не могу понять, откуда уши растут. Чую, что что-то тривиальное, но не вижу. Помогите, а?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

mihanik

Дата 23.2.2009, 20:01 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109

Может, после i=1 с процессом сделать какую-нибудь пустяшную операцию, не закрывая окно?

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »