Войти

Показать полную графическую версию : Перезапуск проги без запроса пароля


sergeypele
20-08-2013, 15:13
Доброго дня . Ситуация - на предприятии стоит 1С, прогеры сделали так , что при бездействии пользователя она выключается через 10 мин(рабочее место кассира), требуется скрипт,
что-то типа этого:

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")
objShell.Run "1cv8.exe"
End If

но продолжал бы запуск вводя пароль пользователя допустим из из pass.txt
За ранее спасибо

Iska
20-08-2013, 15:50
но продолжал бы запуск вводя пароль пользователя допустим из из pass.txt »
sergeypele, тогда теряется весь смысл:
прогеры сделали так , что при бездействии пользователя она выключается через 10 мин(рабочее место кассира) »

sergeypele
21-08-2013, 11:50
долго грузится 1С, на кассе собираться очередь, дело в том, в обязанности кассира входит консультация в торговом зале, за это время 1 с закрывается, подходит покупатель и кассир заново открывает 1С , на открытие уходит до 3 мин

Iska
21-08-2013, 13:08
долго грузится 1С, … на открытие уходит до 3 мин»
sergeypele, тем более. Копать надо со стороны 1С. Простой блокировки по тайм-ауту самой машины разве было недостаточно для решения тех же целей?!




© OSzone.net 2001-2012