Memory CheckUp

[layer 2]

just made a little memory logger to see how your memory is: unhealthy or healthy... it checks every 15 minutes... it is very simple script but who cares...

While 1
$getmem= MemGetStats ()
Sleep (60*15*1000)
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Memory percentage being used: " & $getmem[0] & "%")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Total amount of RAM: " & $getmem[1] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Unused RAM: " & $getmem[2] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Total amount of PageFile: " & $getmem[3] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Unused PageFile: " & $getmem[4] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Total amount of Virtual Memory: " & $getmem[5] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "Date= " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & "Time= " & @Hour & ":" & @Min & ":" & @Sec & ": " & "Unused virtual memory: " & $getmem[6] & " Kilobytes")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
WEnd

enjoy

EDIT: fixed the sleep to 15 minutes

EDIT: added some more line breaks in log so you can see when 15 minutes passed...

Edited January 3, 2005 by layer

[Valik 478]

15000 = 15 seconds.

15 minutes = 60*15*1000.

[layer 2]

thanks Valik

[DirtyBanditos 0]

thanks Valik

<{POST_SNAPBACK}>

H layer great script thx to share it

[layer 2]

no problem

[Insolence 2]

FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")
FileWriteLine ("MemUsageLog.txt", "")

What's that about? Do you want 5 blank lines?

FileWriteLine ("MemUsageLog.txt", @LF & @LF & @LF & @LF & @LF)

[layer 2]

thats what you see right, because @LF doesnt work... it returns little rectangles...

[Valik 478]

So use @CRLF instead.