O L E G, Вы действительно используете:
Код:
![Выделить весь код](images/misc/selectcode.png)
strComputer = "."
или таки по сети работаете?
Давайте попробуем вставить ради эксперимента некоторое ожидание вслед за получением PID скрипта:
Код:
![Выделить весь код](images/misc/selectcode.png)
lngThisScriptProcessID = GetScriptProcessID(objSWbemServicesEx)
WScript.Sleep 5000