Запуск определенного числа копий

[makarovroman1]

Прошу разобраться в чем у меня ошибка...
Суть данного скрипта.
Допустим запуск не более 2х копий 1с на терминальном сервере у конкретного пользователя.

bitVersion = "'64'"
strPath = "1cv8\8.3.8.2167\bin"
strProcess = "1cv8.exe"
runProcess = "'1cv8.exe'"
strcomputer = "."

set objwmiservice = getobject("winmgmts:" _
& "{impersonationlevel=impersonate}!\\" _
& strcomputer & "\root\cimv2")

set colprocesses = objwmiservice.execquery( _
"select name from win32_process " _
& "where name = " & runProcess)

if colprocesses.count < 3 then
set objshell = wscript.createobject("wscript.shell")
set objenv = objshell.environment("process")


strCurrentUser = UCase(objEnv("UserDomain") & "\" & objEnv("UserName"))
If objprocess.GetOwner(strUser, strDomain) = 0 Then
If UCase(strDomain & "\" & strUser) = strCurrentUser Then

End if
If bitVersion = "'64'" Then
ProgramFilesPath = "%ProgramFiles%"
Else
ProgramFilesPath = "%ProgramFiles(x86)%"
End If
objshell.run """" + ProgramFilesPath + "\" + strPath + "\" + strProcess + ""
else
msgbox "Копия программы уже запущена. ", 48, "Внимание"
end if
Скрипт не работает выдает ошибку
Заранее благодарен если поможете разобраться.

[Iska]

выдает ошибку »
Какую ошибку? Покажите скриншот.

Скрипт не работает »
У Вас там куча всего намешана, в том числе и часть неиспользуемого. Полагаю, оригинал где-то здесь же брали?

[makarovroman1]

выдает ошибку »
Какую ошибку? Покажите скриншот.
Цитата makarovroman1:
Скрипт не работает »
У Вас там куча всего намешана, в том числе и часть неиспользуемого. Полагаю, оригинал где-то здесь же брали? »


Скрипт был. может быть и отсюда взято..

[Iska]

makarovroman1, повторяю:
Какую ошибку? Покажите скриншот. »