Option Explicit - ? Так как этот код встраивался в другой, у меня ругался на эту строчку. за комментировал, но остался вопрос дл ячего это используется?

Отсюда и ниже. Крайне рекомендуется к применению.

'Enum WshExecStatus

Просто комментарий для констант ниже. Набор констант, перечисленных ниже, составляет перечисление «WshExecStatus».

См. выше про «Option Explicit».

If objWshExec.Status <> WshFailed Then ' Если статус задания не «неудачный запуск», то…
    strOut = ""
    strErr = ""
    
    Do Until objWshExec.Status = WshFinished ' Пока статус задания не равен «задание завершено»…
        strOut = strOut & objWshExec.StdOut.ReadAll ' Добавляем в переменную strOut очередную порцию из выходного потока задания
        strErr = strErr & objWshExec.StdErr.ReadAll ' Добавляем в переменную strErr очередную порцию из потока ошибок задания
        
        WScript.Sleep 100 ' Ждём
    Loop

Шаблон, по которому производится поиск. Скобками группируем то, что нужно будет впоследствии выбрать.
Метод «.Execute()» возвращает коллекцию Matches, которую перебираем по одному объекту в цикле. «.SubMatches()» — это то, что попало в скобки шаблона.

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
Next

For 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

Понимаю что получаем, но не понимаю как

делается на WSH или на CMD/BAT?

изначально на WSH.
Когда дохожу до удаления. Проверяет на наличие файла "1Cv7.LCK". Если он есть, то запускаю батник с кодом:

D:\copy\handle.exe D:\copy\comp\1cv7.lck > D:\copy\logs.txt

Делаю паузу в скрипте 2000 и получаю текстовый файл:

Handle v3.42
Copyright (C) 1997-2008 Mark Russinovich
Sysinternals - www.sysinternals.com

1cv7.exe           pid: 3728     18: D:\copy\comp\1Cv7.LCK

Вот тут не могу найти как мне получить этот самый PID в переменную, что бы убить процесс. Поможите кто чем может.

делается на WSH или на CMD/BAT?

В любом случае, придётся пользовать внешние утилиты [для случая удалённого открытия файлов по сети есть и встроенные варианты — с закрытием открытых файлов, но, естественно, без снятия удалённого процесса], например, Handle или OpenedFilesView, используя в том и в другом случае фильтр по полному имени файла «1Cv7.LCK». Если Вам достаточно только снять приложение — обойдётесь одной строкой, если ещё нужно предварительно сохранить имя пользователя, открывшего процесс 1С — немного сложнее.

Пробуйте.

Есть 1с 7.7. Есть необходимость обновлять каждый день копию. Но копию не всегда получается обновить, так как бывает что люди не выходят из базы. И блокируется файл "1Cv7.LCK". Вот думал написать скрипт который узнает какой именно "1cv7.exe" его использует и запершить данный процесс.
Как завершить нужный процесс я уже изучил, по его PID. а вот узнать его пит из WBS я пока не научился. помогите пожалуйста разобраться с этим вопросом.

Проверяйте ProcessMonitor'ом кто кого когда за кем запускает.

Инструкция по инсталляции и работе с PocketTrade | Ай Ти Инвест, ptsetup.exe — эта инсталляция?

ptsetup = это инсталяция...

А при чем PocketTrade ?

И ProcessMonitor - не подходит, так как нужно все реализовать стандартными средствами Windows

Инструкция по инсталляции и работе с PocketTrade | Ай Ти Инвест, ptsetup.exe — эта инсталляция?

Не может. Давайте конкретику, что за процессы.

P.S. Один из них случайно не Консультант+?!

Нет, не Консультант. его русифицировать не надо

1 процесс -- установка ... "ptsetup.exe" в диспетчере задач
        Запуская через команду Run (.,0,True) через 5 минут примерно получаю результат о завершении процесса
        Запуская с подхватыванием PID и дальнейшим отслеживанием события уничтожения процесса - те же 5 минут

2 После завершения установки я должен запустить процедуру копирования файлов из одной папки - в созданные в процессе установки. Это реализовано в .bat файле. Его запускаю с помощью Exec()

Но так как дождаться окончания установки не могу -- то копирование не возможно.

P.S. Один из них случайно не Консультант+?!

WshShell.Run

Option Explicit

Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run """%systemroot%\notepad.exe"" ""c:\boot.ini""", 1, True
objWshShell.Run """%systemroot%\system32\ping.exe"" -t localhost", 1, True

Set objWshShell = Nothing

WScript.Quit 0

Спасибо, только это не решает проблему
Так же возвращает сигнал о завершении процесса, а в Диспетчере задач процесс отображается...
А второй процесс нельзя запускать, пока 1 не завершится