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
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
Comment