[Iska]

суть проблемы что все сидят с правами администратора »

Вы верно определили суть проблемы.

Возможно ли создание программы для перезапуска службы, если её отключит пользователь? »

Возможно. Равно как для пользователя с административными правами возможно будет отключение этой гипотетической «программы».

Пока Вы не решите радикально вопрос с наличием административных прав у обычных пользователей, всё остальное будет — мёртвому припарки.

[egorkin]

Iska, понимаете на всех ПК сидят женщины среднего приклонного возраста, что такое службы они толком не знают. И если даже они найдут службу Tmeter и отключат "нечаенно", тут мне и поможет такая программка перезапуска службы! Будьте добры подскажите модуль программки?
P.S. А запаролить её нельзя?

[egorkin]

Добрые люди, хоть примерный код дайте... плиз...

[egorkin]

Так нашел vbs скрипт для проверки и запуска процесса TrafSvc.exe

HTML код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = 'TrafSvc.exe'")

If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  objShell.Run "TrafSvc.exe"
End If

только при остаовке службы Tmeter, процесс заново не заускается. Т.е. я понимаю надо еще отдельный скрипт для перезапуска самой слыжбы?

[egorkin]

В общем нашел решение сам, спасибо форуму за "поддержку"
скрипт на vbs, надеюсь пригодится кому.

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\temp\logsTrafSvc.txt", True) 
While 1 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='TrafSvc'") 
For Each objService in colServiceList 
objTextFile.WriteLine objService.State & Date () & "  " & Time () 
If objService.State = "Stopped" Then 
objTextFile.WriteLine "Остановленна, запускаем... " & Date () & "  " & Time () 
        errReturn = objService.StartService() 
End if 
Next 
Wscript.Sleep 18000 ' в милисекундах 
Wend