Scorpkoms
|
 Posted: Wed Jun 03, 2009 10:17 Post subject: |
 |
|
| LocKtaR-o-DarK wrote: | Scorpkoms
приводил бы чтоли скрипт, скринов маловато будет
держи скрипты на корректный рестарт тотала без участия хелпера
способ прикрутки выбирай по вкусу |
Спасибо,скрипт взят с RU.TCKB.chm вот он:
| Quote: | 'Перезагрузка
Option Explicit
Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut
Set TCS = CreateObject("TCScript.Helper")
Set WshShell = WScript.CreateObject("WScript.Shell")
TCexe = """" & TCS.TCPath & "\totalcmd.exe"""
'Завершаем работу ТС
TCS.SendCommand "cm_Exit", True
'Ожидание завершения работы ТС
Timeout = 3000 ' Сколько ждать выключения в мсек
Do
Timeout = Timeout - 100
If Timeout < 0 Then QuitByTimeOut = True: Exit Do
WScript.Sleep 100
Loop While TCS.IsRunningTC
'Запускаем новый экземпляр программы
If Not QuitByTimeOut Then WshShell.Run TCexe
Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
