1C Терминал выгонялка по времени.

Если больше 18:00 корректно закрываем 1с с сохранением данных и завершаем сессию. В общих свойствах терм сервера wscript.exe runme.vbs



'---------------------------------------------------------------------------------------
Set objShell = CreateObject("WScript.Shell")
i = 0
objShell.Run "d:\\1C\\BIN\\1cv7s.exe"
wscript.sleep 120000 ' Pause for 2 minutes

Do While i = 0
strCurrentTime = TimeValue(Now)

  If strCurrentTime  знак_больше #18:00# Then
WScript.Sleep(1000)
objShell.SendKeys("%{F4}")
WScript.Sleep(1000)
objShell.SendKeys("{ENTER}")
WScript.Sleep(1000)
objShell.SendKeys("{ENTER}")
WScript.Sleep(1000)
objShell.SendKeys("{ENTER}")
WScript.Sleep(1000)
objShell.SendKeys("{ENTER}")
WScript.Sleep(1000)
objShell.SendKeys("{ENTER}")
objShell.run "shutdown.exe -L -F"
i = 1 ' Break the loop to prevent the message from appearing again
Else
End If

wscript.sleep 300000 ' Pause for 5 minutes (value in milliseconds) between updating the current time
Loop
'-------------------------------------------------------------------------------------------------------