[Petya V4sechkin]

что бы запускалось 2 копии программы но НЕ 3 ?

Заменить строку:

Код:

If colProcesses.Count = 0 Then

на:

Код:

If colProcesses.Count < 2 Then

[Sinus]

Меня интересует как изменить именно этот код, vbs-скрипт не подходит

SET SEARCH=notepad.exe tasklist /fi "imagename eq %SEARCH%" /fo table /nh | find /c /i "%SEARCH%" if %ERRORLEVEL%==1 start notepad.exe »

[Anoxiety]

Немного причесал выложенный више vbs скрипт

Код:

 bitVersion =  "'64'"
    strPath =  "1cv8\8.3.10.2252\bin"
 strProcess =  "1cv8c.exe"
 runProcess = "'1cv8c.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 = 0 then
   set objshell = wscript.createobject("wscript.shell")
   set objenv = objshell.environment("process") 
      If bitVersion = "'64'" Then
         ProgramFilesPath = "%ProgramFiles%"
      Else
         ProgramFilesPath = "%ProgramFiles(x86)%"
      End If
    objshell.run """" + ProgramFilesPath + "\" + strPath + "\" + strProcess + ""
else
   msgbox "Копия программы уже запущена. ", 48, "Внимание"
end if

Для компиляции в .exe удобно использовать утилиту Vbs To Exe По ссылке есть портативная версия без установки.

[lxa85]

А если версия платформы изменится? Path исправлять?
А если надо в нескольких версиях работать?
Своя бухгалтерия в одной версии, а дочерней фирмы в другой?
Почему это не решается на уровне Конфигуратора 1С?
Хотя именно там это и надо решать.
Три года назад решали подобную задачу.
Хорошо бы указывать платформу и конфигурацию. Они довольно сильно обновляются.
УТ, УПП Конфигуратор
Код выполняемый при запуске

[Iska]

Для компиляции в .exe »

Спрашивается — нахрена зачем?! До усрачки нужен именно исполняемый файл — делаются косметические изменения в коде, который затем компилируется консольным vbc.exe, идущим в комплекте .Net Framework.

[ekoshko]

Можно ли в этом скрипте сделать проверку запущенного процесса у текущего пользователя?
Если на терминальном серваке куча пользователей работает с 1С, текущему говорит Копия программы уже запущена.

[Petya V4sechkin]

ekoshko, пример:

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = '1cv8.exe'")

Set objShell = Wscript.CreateObject("Wscript.Shell")
Set objEnv = objShell.Environment("Process")
strCurrentUser = UCase(objEnv("UserDomain") & "\" & objEnv("UserName"))

For Each objProcess in colProcesses
  If objProcess.GetOwner(strUser, strDomain) = 0 Then
    If UCase(strDomain & "\" & strUser) = strCurrentUser Then
      MsgBox "Копия программы уже запущена. ", 48, "Внимание"
      Wscript.Quit
    End If
  End If
Next
objShell.Run """" + objEnv("ProgramFiles") + "\1cv81\bin\1cv8.exe"""

При необходимости скорректируйте путь/имя исполняемого файла 1С.

[Stasan22]

подскажите пожалуйста как сделать чтобы на терминальном сервере скрипт запускал проверку процесса у текущего пользователя и запускал 1с не более 5 раз?

[Вариант]

А что даёт в "причёсанном" коде строчка strPath = "1cv8\8.3.10.2252\bin" ? Что вообще означает strPath?
Спасибо.

[Iska]

в "причёсанном" коде »

Что Вы подразумеваете под «"причёсанным" кодом»?

А что даёт … строчка strPath = "1cv8\8.3.10.2252\bin" ? »

Даёт присвоение значения текстовой строки "1cv8\8.3.10.2252\bin" переменной strPath.

Что вообще означает strPath? »

Ничего не означает, это просто имя переменной.