This is a script that will restart a service if a process is missing. I this example\u00c2\u00a0the DFS service will be\u00c2\u00a0restarted if not notepad.exe is running. Maybe not a very likely\u00c2\u00a0scenario :)\u00c2\u00a0<\/p>\n
Set colProcesses = objWMIService.ExecQuery _ End IF This is a script that will restart a service if a process is missing. I this example\u00c2\u00a0the DFS service will be\u00c2\u00a0restarted if not notepad.exe is running. Maybe not a very likely\u00c2\u00a0scenario :)\u00c2\u00a0 strProcess = “notepad.exe” ‘Name of the process strServiceName = “DFS” ‘Name of the service strComputer = “.”Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & … Continue reading
\nstrProcess = \"notepad.exe\" 'Name of the process
\nstrServiceName = \"DFS\" 'Name of the service<\/code> <\/code>strComputer = \".\"<\/code>Set objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\cimv2\")
\nSet objShell = CreateObject(\"Wscript.Shell\")<\/p>\n
\n(\"Select * from Win32_Process Where Name = '\" & strProcess & \"'\")
\nIf colProcesses.Count < 1 Then\n\nConst EVENT_WARNING = 2\nSet objShell = CreateObject(\"Wscript.Shell\")\nobjShell.LogEvent 2, strProcess & \" is not running. The following process will be restarted: \" & strServiceName\n\nSet objWMIService = GetObject(\"winmgmts:\" _\n& \"{impersonationLevel=impersonate}!\\\\\" & strComputer & \"\\root\\cimv2\")\n\nSet colListOfServices = objWMIService.ExecQuery _\n(\"Select * from Win32_Service Where Name = '\" & strServiceName & \"'\")\nFor Each objService in colListOfServices\nIf objService.State = \"Running\" Then\nobjService.StopService\n\nstrNow = now\nDo Until DateDiff(\"s\", strNow, now) > 10
\nLoop<\/p>\n
\nobjService.StartService
\nNext
\nEnd If
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"