Как запретить запуск двух и более копий 1С8

[ragnar40]

В магазинах установлены компы с 1С-8. Продавцы запускают несколько копий программы с ярлыка. Натворили дел уже, замаялись расхлебывать. Как запретить запуск более одной копии?

[El Scorpio]

Должностной инструкцией и увольнением особо отличившихся "работничков" по причине полного служебного несоответствия

[ragnar40]

Это не не решение проблемы. Кадровый голод у нас, работников не найти. Как программными средствами избавиться от такой засады?

[ragnar40]

Это не не решение проблемы. Кадровый голод у нас, работников не найти. Как программными средствами избавиться от такой засады?

[ragnar40]

ragnar40, ну а нельзя перед запуском смотреть есть ли программа в списке процессов и если есть, то не запускать?

[mailfannah]

Создайте .cmd (.bat)-файл с таким содержимым:


Цитата:



SET SEARCH=notepad.exe

tasklist /fi "imagename eq %SEARCH%" /fo table /nh | find /c /i "%SEARCH%"

if %ERRORLEVEL%==1 start notepad.exe



Где вместо notepad.exe нужно указать имя вашей программы. И, видимо, во втором вхождении (там, где start) - полный путь к файлу. И пусть запускают этой cmd'шкой.



Источник:

1. Постановка задачи:

Любой язык - [архив] Нужна помощь в написании BAT | CMD | VBS | WSH файлов

2. Решение:

Любой язык - [архив] Нужна помощь в написании BAT | CMD | VBS | WSH файлов

[Coutty]

ragnar40, можно в свойствах ярлыка подменить запуск exe-шника на такой vbs-скрипт:



Код:

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = '1cv8.exe'")
If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  Set objEnv = objShell.Environment("Process")
  objShell.Run """" + objEnv("ProgramFiles") + "\1cv81\bin\1cv8.exe"""
Else
  MsgBox "Копия программы уже запущена. ", 48, "Внимание"
End If

[Petya V4sechkin]

ragnar40, можно в свойствах ярлыка подменить запуск exe-шника на такой vbs-скрипт:



Код:

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = '1cv8.exe'")
If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  Set objEnv = objShell.Environment("Process")
  objShell.Run """" + objEnv("ProgramFiles") + "\1cv81\bin\1cv8.exe"""
Else
  MsgBox "Копия программы уже запущена. ", 48, "Внимание"
End If

[ragnar40]

Ерунда какая-то. При запуске не может найти екзешник. Я не программист, я чайник, который комп 2 года назад увидел.

[Petya V4sechkin]

ragnar40, в какой папке exe-шник и как называется?