Вот пример кода, извените, что на VB, который вроде нормально дожидается завершения исполняемых файлов. А вот если ему подсунуть например vbs скрипт для выполнения, то он SEI.hProcess возвращает 0 и соответственно ничего не дожидается. Не подскажите как с этим бороться?

Dim lExecResult As Long
Dim SEI As SHELLEXECUTEINFO
If bSyncr Then
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = 0
.lpVerb = "open"
.lpFile = FilePath
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
lExecResult = ShellExecuteEX(SEI)
lExecResult = WaitForSingleObject(SEI.hProcess, INFINITE)
lExecResult = CloseHandle(SEI.hProcess)