Övervakning NAT

[NickoTrader]

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

[Rikard Nilsson]

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.

[NickoTrader]

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