В общем нашел решение сам, спасибо форуму за "поддержку"
скрипт на 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
