derssaati.net

Windows üzerinde çalışan bir servisiniz var ve arada sorun çıkarıyor. Bu yüzden de belirli aralıklar ile bu servisin restart edilmesini isteyebilirsiniz. Buraya kadar her şey tamam. Ama nasıl ?

Burada servisleri restart etmek için scriptlerin gücünden faydalanacağız. İsterseniz bu iş için bir exe hazırlayabilirsiniz. Tamamen size kalmış bişi.

Ben vbs kullanarak bir script hazırlayacağım. Bu konuda çok detaylı bir bilgiye sahip olmadığım için google amcadan kısa bir araştırma ile hoş bir vbs script budum.

‘ RestartServices.vbs
‘ Example VBScript to Restart Services
‘ Author Guy Thomas http://computerperformance.co.uk/
‘ Version 1.3 – March 20th 2005
‘ —————————————————————–’
Option Explicit
Dim objShell, intShortSleep, intLongSleep
Dim strService
Set objShell = CreateObject(“WScript.Shell”)’ Values set
strService = ” Alerter”
intShortSleep = 1500
intLongSleep = 5500

‘ Cmd prompt opened
objShell.Run “cmd”
Wscript.Sleep intShortSleep

‘ Service stopped with ‘Net’ command
objShell.SendKeys “net stop” & strService
Wscript.Sleep intShortSleep
objShell.SendKeys “{Enter}”
Wscript.Sleep intLongSleep

‘ Service started with ‘Net’ command
objShell.SendKeys “net start” & strService
Wscript.Sleep intShortSleep
objShell.SendKeys “{Enter}”
Wscript.Sleep intLongSleep

‘ Cmd prompt exited
objShell.SendKeys “Exit”
Wscript.Sleep intShortSleep
objShell.SendKeys “{Enter}”

Wscript.Echo strService & ” service stopped ”
WScript.Quit

‘ End of example VBScriptBu dosyayı vbs uzantılı olarak kaydediyorum ve kendi servisime göre yeniden düzenliyorum.

Daha sonra bir zamanlanmış görev atıyorum. Bu görev için hazırladığımız vbs dosyasını ilişkilendiriyorum.

Zamanlanmış görevi de her akşam saat 00:00 da yeniden çalıştıracak şekilde ayarlıyorum.

Artık sorun çıkaran servislerin çalışıp çalışmadığı ile ilgili endişelerimiz tamamıyla ortadan kalkmış olacaktır.