Могли бы расписать код?
мне не понятны некоторые куски.
Option Explicit - ? Так как этот код встраивался в другой, у меня ругался на эту строчку. за комментировал, но остался вопрос дл ячего это используется?
Enum WshExecStatus - что это такое?
Почему надо объявлять переменные Dim -ом? Про Set я разобрался, а про дим и просто простое присваивание не понял 
Do Until objWshExec.Status = WshFinished
strOut = strOut & objWshExec.StdOut.ReadAll
strErr = strErr & objWshExec.StdErr.ReadAll
WScript.Sleep 100
Loopэтот кусок кода вообще не понял ни Do Unti ... Loop ни что присваивается переменным.
For Each strLine In Split(strOut, vbCrLf)
If InStr(strLine, strFile) Then
With WScript.CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Pattern = "^.+ pid: (\d+) +(.+\\.+?) +.+$"
For Each objMatch In .Execute(strLine)
WScript.Echo "PID: ", objMatch.SubMatches(0)
WScript.Echo "User:", objMatch.SubMatches(1)
Next
End With
End If
NextFor Each strLine In Split(strOut, vbCrLf) присваиваем переменной strLine каждую строку полученную из обращения к Handle, Split - разбирает массив на подстроки, где strOut - массив полученных данных, vbCrLf - маска как обрабатывать строки.
InStr - ищет совподения в тексте. strLine - где ищет , strFile - что ищет.
.IgnoreCase = True
.Pattern = "^.+ pid: (\d+) +(.+\\.+?) +.+$"вот тут примерно понимаю, но если поясните буду признателен.
For Each objMatch In .Execute(strLine)
WScript.Echo "PID: ", objMatch.SubMatches(0)
WScript.Echo "User:", objMatch.SubMatches(1)
NextПонимаю что получаем, но не понимаю как