einen Service Watcher ...

Re(4): einen Service Watcher ...

Maugrim — Tue, 14 Oct 2008 13:01:43 GMT

Ah dankeschön

mit WMI hab ich noch relativ wenig zu tun, mir fehlt einfach die Zeit dafür...

ich werd das dann mal umschreiben, wie ich es brauch - danke nochmal.

Greetz,

Maugrim

Re(3): einen Service Watcher ...

Glockman — Tue, 14 Oct 2008 12:59:01 GMT

Ich hab da in der Zwischenzeit schon mal was gebastelt - allerdings beendet mein Script auch gleich die .exe...


' Check for status of a service and terminate a given executable if service state changed
' 
' Parameters:
' ServiceName - name of the service as seen under "Service name" when looking at the service's properties
' ExecName    - name of the executable to be terminated if service state changed
' Interval    - time in seconds to wait for next status check
' strComputer - machine to run the query on; specify "." if the local machine is being used

Option Explicit

Call CheckService("messenger", "calc.exe", 1)

Sub CheckService(ServiceName, ExecName, Interval)

Dim strComputer
Dim objWMI, objWMIQrySrv, objWMIQryExe, objWMIQryResultSrv, objWMIQryResultExe

strComputer = "."

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Do
  Set objWMIQrySrv = objWMI.ExecQuery("Select * from Win32_Service where Name = '" & ServiceName & "'")
  For Each objWMIQryResultSrv in objWMIQrySrv
      If objWMIQryResultSrv.State = "Stop Pending" Then
         Set objWMIQryExe = objWMI.ExecQuery("Select * from Win32_Process where Name = '" & ExecName & "'")
         For Each objWMIQryResultExe in objWMIQryExe
             objWMIQryResultExe.Terminate (0)
         Next
      End If
  Next
  Set objWMIQrySrv = Nothing
  Set objWMIQryResultSrv = Nothing
  Set objWMIQryExe = Nothing
  Set objWMIQryResultExe = Nothing
  WScript.Sleep Interval * 1000
Loop

End Sub

Wenn Du weiterhin Dein Batchfile aufrufen lassen möchtest muss ich das noch ein wenig umschreiben...

Du müsstest jetzt nur noch die Parameter anpassen und das dann am Besten per cscript aufrufen, beenden lässt es sich durch Abschießen von cscrpt.exe (sonst läuft es in einer Endlosschleife).

Weitere Anpassungen (Logfile, Mail,...) sind auch noch möglich, aber ich wollte es am Anfang nicht übertreiben.

Ach ja, und wie verlangt: Freeware (weil ich für sowas einfach kein Geld verlangen kann ) ist es in jedem Fall

hth,

Re(2): einen Service Watcher ...

Maugrim — Tue, 14 Oct 2008 12:42:46 GMT

Eigentlich ist es der SMTP Dienst der sich öfters in den Zustand "wird beendet" verirrt (kA warum hab nichts diagnostizieren können).

Die einzige möglichkeit das dann zu "reseten" ist die Inetinfo.exe per Taskkill zu beenden, was einen iisreset bewirkt und das ganze funktioniert wieder und deswegen bräucht ich einen Watcher der schaut ob der SMTP-Dienst hängt und dann einfach ne bat mit Taskkill inetinfo.exe ausführt.

Bis auf den Watcher läuft alles ja schon ^^

Greetz,

Maugrim

Re: einen Service Watcher ...

Glockman — Tue, 14 Oct 2008 09:23:18 GMT

Hi!

Ist der Name der .exe gleich der Dienst selbst oder eine andere?
Und was soll nach dem Beenden passieren? Dienst neu starten, Nachricht schicken,...

Re: einen Service Watcher ...

Maugrim — Fri, 10 Oct 2008 06:58:19 GMT

Push^^

einen Service Watcher ...

Maugrim — Thu, 09 Oct 2008 07:25:48 GMT

der mir beim Abschmieren eines Dienstes (Status: "wird beendet") einen taskkill macht für einen gewissen Prozess (*.exe).

Greetz,

Maugrim

Edit: am besten freeware
Edit2: mal nach Software verschieb ^^

einen Service Watcher ...

Maugrim — Thu, 09 Oct 2008 07:25:48 GMT

der mir beim Abschmieren eines Dienstes (Status: "wird beendet") einen taskkill macht für einen gewissen Prozess (*.exe).

Greetz,

Maugrim

Edit: am besten freeware

einen Service Watcher ...

Maugrim — Thu, 09 Oct 2008 07:25:48 GMT

der mir beim Abschmieren eines Dienstes (Status: "wird beendet") einen taskkill macht für einen gewissen Prozess (*.exe).

Greetz,

Maugrim