Tjeck om service køre på srv og meld tilbage

Jeg vil foretrække at den melder tilbage til mail postkasse.

Hej negerfrans
Det kan man da. Her er et script jeg har lavet der overvåger en service og sender en mail hvis servicen stopper:

strComputer = "servernavn"
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
strWQL = "SELECT * " & _
        "FROM __InstanceModificationEvent " & _
        "WITHIN 2 " & _
        "WHERE TargetInstance ISA 'Win32_Service' " & _
        "AND  TargetInstance.Name = 'Messenger'" & _
        "AND  TargetInstance.State = 'Stopped'"
Set objEventSource = objWMIService.ExecNotificationQuery(strWQL)
WScript.Echo "Monitoring the service..."
Set objEventObject = objEventSource.NextEvent()
WScript.Sleep(5000)
call sendemail



function sendemail

    Const olMailItem = 0

    strMsg = "email@domæne.com"
    strReceipent = "email@domæne.com"
    strSubject = "Service has stopped"
    strBodyText = "The Service needs to be restarted"

    Set objOutlook = CreateObject("Outlook.application")
    Set objNameSpace = objOutlook.GetNamespace("MAPI")
    Set mItem = objOutlook.CreateItem(olMailItem)

    mItem.To = strReceipent
    mItem.Subject = strSubject
    mItem.Body = strBodyText

    mItem.Save
    mItem.Send
 
    Set mItem = Nothing
    Set objNameSpace = Nothing
    set objOutlook = Nothing

end function

Der skal være installeret en mailklient på serveren.

Håber du kan bruge det:):)

Det ser kanon ud!
Jeg tester det senere!
du får lige nogle points
Bare lige så vi er enige det er Messenger du tjekker på ik' ?

mange tak
bb

Hej negerfrans
Jo det er "messenger" jeg checker for i eksemplet....du skal bare udskifte dette med navnet på din service:):)

Kanon du er en gud.
Det kan desværre først blive tjekket senere på ugen, men jeg vender tilbage med resultatet.
1000 tak

Jeg har lige testet det lokalt og det virker smukt!
Der bare lige det kendte sikkerheds problem når et program prøver at bruge outlook email klient til at sende en mail. Man skal give lov det program som prøver at sende via klienten.
Er det noget man kan tage højde for i scripted?
Og lige en anden ting hvor lang tid ligger den og venter på stop eventen?

hilsen
BB

Hej negerfrans
Du kan fjerne den setting på outlook klienten der spørger om adgang til mailboxen....kan ikke huske hvor:)

Scriptet kører som en process og terminerer først når serveren bootes eller brugeren logger af.

fik du det til at virke?

Det virker perfekt bort set fra den setting der i outlook. Jeg mener det er noget sikkerhed der kom med en servicepack, så jeg må finde en outlook uden service pack og ligge den på serveren som mail klient.
tak for det endnu engang, det her er sku et forum man kan bruge til noget.
BB

Hvad med Outlook Express den gør det vist ikke !

Vil ovennævnte kode stadig virke til outlook Express?

hejsa negerfrans
Jeg undersøger det lige....

ja det kan jeg jo selvfølgelig også selv gøre, men jeg har ikke tid lige nu.
Men tak for indsatsen.  :o)

Hej negerfrans
Jeg har ikke en outlook Express client kørende...men prøv at test det når du får tid....og smid lige resulatet....så lærer jeg også lidt:)

Giver du mon snart lidt point?:)

hej negerfrans
Giver du ikke snart lidt point??:):)

Jeg tror da jeg har givet dig!
Man skal da bare trykke på accepter, ik' !
tak for hjælpen!

hmmm....spørgsmålet er ikke lukket....du skal vælge mit navn forneden og klikke på ok/accepter eller lign.