Skip to main content

Performance and logs alerts

More
19 years 7 months ago #7726 by DaLight
What you could do is leave the checking interval at 5 secs and update a textfile with the value of current FTP connections. Then if it changes from the last value, tell it to send an email.

That way, you still get it checking every 5 secs, but it only sends an email when the number of current connections changes.
More
19 years 7 months ago #7736 by aminos
Replied by aminos on topic Thanks
thanks Dalight,
but can you give me a little script either in vbscript or wscript that do this, actually i just begin to leran scripting, but anyways it's a good idea
thanks a lot for all
More
19 years 7 months ago #7742 by DaLight
OK aminos,

I've put something together. You'll have to test it yourself though.
You may also want to increase the checking interval to something like 30 or 60 seconds as you don't want it accessing a file every 5 secs.

First you need to alter Command Line Arguments option in Alerts i.e. the window where you entered the VBscript file name. Make sure only the "Measured value" option is checked.

This gives us access to the FTP service\current connections value or whatever value you're monitoring.

Now for the script (No error checking, you'll have to sort that out):

CurrentFTPconn = int(WScript.Arguments.Item(0)) 'read number of connections from command line
Dim xFSO ' As FileSystemObject
Dim xFile ' As Scripting.TextStream
Dim Result
Set xFSO = CreateObject("Scripting.FileSystemObject")


If (xFSO.FileExists("C:\Counter.txt")) Then
' File exists, grab its contents.
Set xFile = xFSO.OpenTextFile("c:\Counter.txt")
LastFTPconn = int(xFile.ReadLine())
xFile.Close

If LastFTPconn <> CurrentFTPconn then
'send and email if number of connections changes (up or down)
objEmail.From = "xxxxx@xxxx.xx"
objEmail.To = "yyyyy@yyy.yy"
objEmail.Subject = " ftp Server"
objEmail.Textbody = "Someone is here "
objEmail.Send
Set xFile = xFSO.CreateTextFile("c:\Counter.txt", True)
xFile.Write (CurrentFTPconn)
xFile.Close
End If
Else 'file does not exist
Set xFile = xFSO.CreateTextFile("c:\Counter.txt", True)
xFile.Write (CurrentFTPconn)
xFile.Close
End If

Set xFile = Nothing
Set xFSO = Nothing



Hope this helps
More
19 years 7 months ago #7744 by aminos
Replied by aminos on topic Thanks a lot Dalight
Thanks that's really great,
But i have a problem :
[code:1]WScript.Arguments.Item(0)) 'read number of connections from command line [/code:1]
how do i do this, i mean i want the vbscript of the FTP number of connections :roll:
but i'll check the Microsoft scripting center for that and tell you,
anyways thanks a lot for responding, you did a greatt job :wink:

if you have any ideas i'll be here :wink:
More
19 years 7 months ago #7745 by DaLight
WScript.Arguments.Item(0)) gives you the first command line argument.

From my post:

First you need to alter Command Line Arguments option in Alerts i.e. the window where you entered the VBscript file name. Make sure only the "Measured value" option is checked.

This gives us access to the FTP service\current connections value or whatever value you're monitoring.


You can see that this argument gives you the "Measured Value" of whatever parameter you're monitoring i.e FTP connections or whatever. So you don't have to figure out how to get hold of this value from the code. It's already been done for you if you set it up as I've suggested.
More
19 years 7 months ago #7747 by aminos
Replied by aminos on topic Problem
Hi Dalight,

well actually i've got a problem, when i execute the script without
specifying the argument command ligne it works fine,
but with "Measured value" as command line argument i've got nothing
i guess that happened becuase i specify MyScript.bat as the program to run.
myscript contains:
[code:1] wscript.exe Yourdcript.vbd[/code:1]

so i'll check how to tackle this :cry:
Time to create page: 0.132 seconds