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
За ранее спасибо
что-то типа этого:
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
За ранее спасибо