Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Запуск определенного числа копий

Ответить
Настройки темы
VBS/WSH/JS - Запуск определенного числа копий

Новый участник


Сообщения: 17
Благодарности: 0

Профиль | Отправить PM | Цитировать

Прошу разобраться в чем у меня ошибка...
Суть данного скрипта.
Допустим запуск не более 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
Скрипт не работает выдает ошибку
Заранее благодарен если поможете разобраться.

Отправлено: 12:09, 09-10-2017

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

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

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

Отправлено: 12:56, 09-10-2017 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 17
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

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

Отправлено: 05:11, 10-10-2017 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

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

Отправлено: 06:19, 10-10-2017 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Запуск определенного числа копий

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Как запретить запуск двух и более копий 1С8 ragnar40 Хочу все знать 33 11-05-2018 14:02
Разное - JavaScript . Округление числа . FF.1F9A6B51 (16) до определенного знака Sibiryaak Программирование и базы данных 1 18-04-2017 02:44
Прочие - Запуск нескольких копий приложений. pauz Программное обеспечение Windows 0 14-08-2015 11:31
[решено] Запрет за запуск копий .exe (?) 80971815772 AutoIt 2 06-09-2009 23:54
Как настроить ntbackup на копирование определенного числа копий? Ferum01 Microsoft Windows NT/2000/2003 9 11-09-2007 10:18


« Предыдущая тема | Следующая тема »


 
Переход