Allmänt meddelande

Collapse
No announcement yet.

Övervakning NAT

Collapse
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Övervakning NAT

    Hej!

    Har råkat it för att kursinsamlingen dör i NAT och har därför gjort ett litet VB-script. Övervakar filen deblog.txt och kontrollerar så att den skrivs till varannan minut.
    Lägg in nedanstående i ett notepaddokument och döp om till filändelsen ".vbs".
    Ändra till era egna uppgifter. Jag har lagt in kommentarer så jag hoppas ni förstår var det ska ändras.
    Kör det sedan schemalagt från Windows mellan kl 9.00 och döda det efter 8h 35 min (eller så länge ni vill hålla övervakningen igång).

    Scriptet skickar mail (och sms via pixie om ni registrerat er där).

    Sedan kör jag Teamviewer för att gå in på datorn från distans och starta om eller fixa felet.

    Har varit mycket användbart så långt för min egen del.


    ******

    FileDateTime("C:\Documents and Settings\All Users\Application Data\NordnetAutoTrader\Deblog.txt")


    Private Function FileDateTime(byVal pathname)
    Dim objFSO, objFile
    On Error resume next
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(pathname)

    FileDateTime = CDate( objFile.DateLastModified)
    WScript.Sleep(120000)

    If Err Then
    FileDateTime = Null
    Else
    while CDate( objFile.DateLastModified ) <> OldFileDateTime

    OldFileDateTime = CDate( objFile.DateLastModified )

    WScript.sleep(120000)
    wend

    'Skicka mail
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Set objEmail = CreateObject("CDO.Message")

    'msgbox("Kommer skicka mail")

    With objEmail
    .From = "xxxxx@yyyy"'Din adress som är registrerad som hos pixie
    .To = "zzzzzz@xzxzxzxz"'Mottagaren. Kan vara samma som From
    .Cc = "12345678@pixie.se"'Din adress hos pixie
    .Subject = "NAT ALERT"
    .Textbody = "Nu har Autotrader dött!!!"
    With .Configuration.Fields
    .Item (schema & "sendusing") = 2
    .Item (schema & "smtpserver") = "smtp.something.else"'Ändra här
    .Item (schema & "smtpserverport") = 25
    .Item (schema & "smtpauthenticate") = 1
    .Item (schema & "sendusername") = "xxxxx@yyyy"'Ändra här
    .Item (schema & "sendpassword") = "thepassword"'Ändra här
    End With
    .Configuration.Fields.Update
    .Send
    End With

    End If


    Set objFile = Nothing
    Set objFSO = Nothing
    On Error GoTo 0

    WScript.Quit [0]

    End Function

    *************

    Mvh

  • #2
    Får du kursavbrott med senaste versionen av NAT? Det ska inte behöva hända, men det finns ett par situationer där omstart kan ta 3-4 minuter om man har otur. Det är inte helt lyckat att starta om mitt i en pågående recovery-operation, man får se till så att man använder "snäll" stängning av processen.

    Comment


    • #3
      Jo, senaste version är det allt. 1.3.0.5 / 9.3.0.1 och kurserna var döda tills jag startade om.

      Scriptet meddelar dock bara om något är fel efter 2 minuter, så nedstängning fick jag göra själv...dock inte så snällt. Ska försöka vara snällare nästa gång.

      Mvh

      Comment

      Working...
      X