Тема: VBScript: Ожидание процесса
Здравствуйте.
Взял из коллекции код для слежения за процессами - и он у меня не выполняется полностью.
Создал процесс - получил его PID... Но процесс еще выполняется - а скрипт начинает выполняться дальше.
Кто может подсказать, в чем ошибка ?
'===================================================
' слежение за установкой
'===================================================
Set WshShell = CreateObject ("WSCript.shell")
act = "C:\setup.exe"
PID = WshShell.Exec(act).ProcessID
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = WMI.ExecNotificationQuery _
("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until 1 = 2
Set objProcess = colProcesses.NextEvent
If objProcess.TargetInstance.ProcessID = PID Then
Exit Do
End If
Loop
MsgBox "Установлено успешно"
'===================================================
' руссификация
'===================================================
'Set WshShell = CreateObject("WScript.Shell")
act = "cd /d " & PathRus
runbar = "set_stds.bat " &" "& Path & " " & PathRus
Set WshExec = WshShell.Exec("cmd.exe /q /k echo off")
WshExec.StdIn.WriteLine "chcp 1251>nul"
WshExec.StdIn.WriteLine act
WshExec.StdIn.WriteLine runbar
WshExec.StdIn.WriteLine "exit"
MsgBox "Русифицировано"
