checkMem (Tcl recipe) by Patrick Finnegan

ActiveState Code (http://code.activestate.com/recipes/364234/)

###########################################################
# Check physical memory usage. 
# Email alert if ram usage exceeds 90%.
# Display the top ten processes by memory usage.
###########################################################

puts "\n executing [info script]\n"

# make script drive independent.

set drive [lindex [file split [info nameofexecutable]] 0 ] 

puts "\n proclib = $drive/scripts/TCL/proclib"

########################################################  
# Source utility procs.
########################################################  

source [ file join  $drive scripts/TCL/proclib/checkFile_proc.tcl ]
source [ file join  $drive scripts/TCL/proclib/smtp_proc.tcl ]
source [ file join  $drive scripts/TCL/proclib/reportHeader_proc.tcl ]
source [ file join  $drive scripts/TCL/proclib/printColumns.tcl ]
source [ file join  $drive scripts/TCL/proclib/convertToMb.tcl ]

########################################################  
# Source packages. 
########################################################  

package require twapi
package require winutils
package require Tclx
package require math::fuzzy

######################################
# Proc - check memory usage. 
######################################
proc checkMem {} {

   puts "\n checkMem \n"

   while {1} { 

      # pause for 30 seconds 

      after 30000

      # check physical memory utilization over a ten second interval.
       
      array set meminfo [twapi::get_memory_info -all]

      set totalPhysicalMem $meminfo(-totalphysical)
      set availPhysicalMem $meminfo(-availphysical)
      set totalCommit      $meminfo(-totalcommit)
      set availCommit      $meminfo(-availcommit)
      set swapFiles        $meminfo(-swapfiles)

      set physicalMemUsage [ expr { (double ($totalPhysicalMem - $availPhysicalMem)/$totalPhysicalMem  ) } ] 
      
      set usedPerc [ expr { [math::fuzzy::troundn $physicalMemUsage 2] *100 } ]

#      if memory usage is > 90% and alert has not been generated send error report.

      if { ![ info exist report ] } { 
         
         set report false
         
      }
         
      if { $usedPerc > 90 && [ string is false $report ] } { 

	  set report true
          
          writeReport meminfo $usedPerc

      } else {

	  set continue true 

      }

      # if memory usage is < 90% and alert has been generated send OK report.

      if { $usedPerc < 90 && [ string is true $report ] } { 

	  set report false

          writeReport meminfo $usedPerc

      } else {

	  set continue true 

      }

   }

}
######################################
# Proc - write report
######################################
proc writeReport { meminfo usedPerc } {
  
   global reportFile
   global reportFileId

   upvar $meminfo a

   set header       "$::env(COMPUTERNAME) - Check Memory Usage"

   reportHeader $reportFileId $header $reportFile
 
   set s "*****************************************"
   set t1 [ format "%-15s %s" " " $s ]
   set s "The End"
   set t2 [ format "%-35s    %s" " " $s ]
   set t3 "$::env(COMPUTERNAME) -  Memory utilization is $usedPerc\%\. " 

   puts $reportFileId \n$t3\n

   set s "*****************************************"
   set t1 [ format "%-15s %s" " " $s ]

   foreach e [ memDetails a ] {

       puts $reportFileId [ format "%-15s %s" " " $e ] 

   }

   set t9 "Memory utilization - Top Ten" 

   puts $reportFileId \n$t1
   puts $reportFileId [ format "%-15s %s" " " $t9 ]
   puts $reportFileId $t1\n

   set spaces " "

   set w1 [ string length "ProcessName" ]
   set w2 [ string length "ProcessId"   ]
   set w3 [ string length "WorkingSet"  ]
   set w4 [ string length "WorkingsetPeak" ]

   puts $reportFileId [ format "%-15s %-20s %${w2}s %${w3}s %${w4}s\n" $spaces \
                                                             "ProcessName"   \
                                                             "ProcessId"     \
                                                             "WorkingSet"    \
                                                             "WorkingsetPeak"  ]

   foreach e [ processDetails ] {

      set processName    [ lindex $e 0 ]
      set processId      [ lindex $e 1 ]
      set workingset     [ toMB [ lindex $e 2 ] ]
      set workingsetpeak [ toMB [ lindex $e 3 ] ]

      set width [ string length $processId ]
                                              
      puts $reportFileId [ format "%-15s %-20s %${w2}s %${w3}s %${w4}s" $spaces \
                                                             $processName       \
                                                             "$processId"       \
                                                             "$workingset mb"   \
                                                             "$workingsetpeak mb" ]

   }

   puts  $reportFileId \n$t1
   puts  $reportFileId $t2
   puts  $reportFileId $t1

   emailReport $usedPerc

   ftruncate -fileid $reportFileId 0

}
######################################
# Proc - get memory details. 
######################################
proc memDetails { meminfo } {

   upvar $meminfo a

   set totalPhysicalMem $a(-totalphysical)
   set availPhysicalMem $a(-availphysical)
   set totalCommit      $a(-totalcommit)
   set availCommit      $a(-availcommit)
   set swapFiles        $a(-swapfiles)

   set width 30 

   catch { puts_tabular $width "Physical memory:" "Total [toMB $a(-totalphysical)] MB, Available [toMB $a(-availphysical)] MB" } r 
 
   set t1 $r

   catch { puts_tabular $width "Commit:"  "Total [toMB $a(-totalcommit)] MB, Available [toMB $a(-availcommit)] MB" } r 

   set t2 $r

   catch { puts_tabular $width "Swap files:" "[join $a(-swapfiles) {, }]" } r

   set t3 $r

   # allocated swap file space = (total commit memory - total physical memory)

   set swapFileSpace [ expr { $totalCommit - $totalPhysicalMem } ] 
 
   catch { puts_tabular $width "Allocated swap file space:" "[toMB $swapFileSpace] MB" } r 
   set t4 $r
   
   # available swap file space = (available commit memory - available physical memory)  
   
   set availSwapFileSpace [ expr { $availCommit - $availPhysicalMem } ]

   catch { puts_tabular $width "Available swap file space:" "[toMB $availSwapFileSpace] MB" } r 

   set t5 $r

   return [ list $t1 $t2 $t3 $t4 $t5 ]

}
##################################################
# Proc - get memory usage by top ten processes.
##################################################
proc processDetails {} {

#   puts "\n processDetails \n"

   set processList [ lsort [ winutils::processes ] ]

   # calculate the cpu utilization for each process then sort and select the top ten. 
   
   foreach e $processList {

      set processName [ lindex $e 0 ] 
      set processId   [ lindex $e 1 ] 

      array set meminfo [ twapi::get_process_info $processId -workingset -workingsetpeak]

      lappend usageList [ list $processName $processId $meminfo(-workingset) $meminfo(-workingsetpeak) ] 

   }

   set x      [ lsort -decreasing -integer -index 2 $usageList ]

   set topTen [ lrange [ lsort -decreasing -integer -index 2 $usageList ] 0 9 ] 
  
   return $topTen

}
###########################################
# Email Report 
###########################################

proc emailReport { usedPerc } {

   global reportFile
   global reportFileId

   flush $reportFileId  

   set computerName $::env(COMPUTERNAME)

   if { $usedPerc  < 90 } { 

       set subject "$computerName - Memory Alert Over."   

   } else {

       set subject "$computerName - Memory Alert."   

   }

   sendSimpleMessage you@youremail.com $subject $reportFile

}
######################################
# Control Section.
######################################

######################################
# Set Variables
######################################

set processId [ twapi::get_current_process_id ]

set eventId   [ twapi::eventlog_open -write ]

set data "CHECKMEM STARTING"

twapi::eventlog_write $eventId 1 -type information -loguser -data $data

twapi::eventlog_close $eventId

set reportFile   [ file join $drive reports/notify/checkMem.txt ]

#########################################
# Check if files exist.
#########################################

checkFile [file dirname $reportFile]

######################################
# Open output files.
######################################

set reportFileId  [open $reportFile w]

################################### 
# Global variables.
################################### 

global reportFile
global reportFileId

checkMem