 |
|
| makarovroman1 |
09-10-2017 12:09 2769346 |
Запуск определенного числа копий
Прошу разобраться в чем у меня ошибка...
Суть данного скрипта.
Допустим запуск не более 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
Скрипт не работает выдает ошибку
Заранее благодарен если поможете разобраться. |
Какую ошибку? Покажите скриншот.
У Вас там куча всего намешана, в том числе и часть неиспользуемого. Полагаю, оригинал где-то здесь же брали? |
| makarovroman1 |
10-10-2017 05:11 2769502 |
Цитата:
Цитата Iska
выдает ошибку »
Какую ошибку? Покажите скриншот.
Цитата makarovroman1:
Скрипт не работает »
У Вас там куча всего намешана, в том числе и часть неиспользуемого. Полагаю, оригинал где-то здесь же брали? »
|
Скрипт был. может быть и отсюда взято.. |
makarovroman1, повторяю:
Цитата:
Цитата Iska
Какую ошибку? Покажите скриншот. »
|
|
Время: 22:52.
© OSzone.net 2001-