Ps System Ip Stats

Problem this snippet solves:

This PowerShell application will query the system wide IP based statistics and display them in columnar format.

This is a second part of a series on system based statistics. The first example was the PsSystemHttpStats example which covered a rollup of all the HTTP profile statistics. This example will present the aggregated low layer IP based statistics.

Code :

#----------------------------------------------------------------------------
# The contents of this file are subject to the "END USER LICENSE AGREEMENT FOR F5
# Software Development Kit for iControl"; you may not use this file except in
# compliance with the License. The License is included in the iControl
# Software Development Kit.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is iControl Code and related documentation
# distributed by F5.
#
# The Initial Developer of the Original Code is F5 Networks,
# Inc. Seattle, WA, USA. Portions created by F5 are Copyright (C) 1996-2007 F5 Networks,
# Inc. All Rights Reserved.  iControl (TM) is a registered trademark of F5 Networks, Inc.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above.  If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#----------------------------------------------------------------------------
param (
  $g_bigip = $null,
  $g_uid = $null,
  $g_pwd = $null
);

Set-PSDebug -strict;

#-------------------------------------------------------------------------
# function Write-Usage
#-------------------------------------------------------------------------
function Write-Usage()
{
  Write-Host "Usage: GlobalIPStats.ps1 host uid pwd";
  exit;
}

#-------------------------------------------------------------------------
# function Get-TimeFromTimeStamp
#-------------------------------------------------------------------------
function Get-TimeFromTimeStamp()
{
  param ($TimeStamp);
  $dt = new-object -typename System.DateTime
  $dt = $dt.AddYears($TimeStamp.year-1).AddMonths($TimeStamp.month-1).AddDays($TimeStamp.day-1);
  $dt = $dt.AddHours($TimeStamp.hour).AddMinutes($TimeStamp.minute).AddSeconds($TimeStamp.second);
  return $dt;
}

#-------------------------------------------------------------------------
# function Convert-To64Bit
#-------------------------------------------------------------------------
function Convert-To64Bit()
{
  param($high, $low);
  return ($high*[Math]::Pow(2,32)) + $low;
}

#-------------------------------------------------------------------------
# Get-GlobalIPStatistics
#-------------------------------------------------------------------------
function Get-GlobalIPStatistics()
{
  param($subset = $null);
  if ( $subset -eq $null ) { $subset = "all"; }
  
  Write-Host "Global IP Statistics"
  
  $stat_obj = New-Object -TypeName System.Object;
  
  $SystemStatistics = (Get-F5.iControl).SystemStatistics.get_ip_statistics();
  $t = Get-TimeFromTimeStamp $SystemStatistics.time_stamp;
  $Statistics = $SystemStatistics.statistics;
  
  $stat_obj | Add-Member -Type noteProperty -Name "Time Stamp" $t;
  $stat_obj | Add-Member -Type noteProperty -Name "--------------------------------" "";

  foreach($Statistic in $Statistics)
  {
    $val = Convert-To64Bit $Statistic.value.high $Statistic.value.low;
    switch ($Statistic.type)
    {
      "STATISTIC_IP_TRANSMITTED_PACKETS" {
        $label = "Packets transmitted";
      }
      "STATISTIC_IP_RECEIVED_PACKETS" {
        $label = "Packets recieved";
      }
      "STATISTIC_IP_DROPPED_PACKETS" {
        $label = "Packets dropped";
      }
      "STATISTIC_IP_TRANSMITTED_FRAGMENTS" {
        $label = "Fragments transmitted";
      }
      "STATISTIC_IP_DROPPED_TRANSMITTED_FRAGMENTS" {
        $label = "Fragments dropped on transmit";
      }
      "STATISTIC_IP_RECEIVED_FRAGMENTS" {
        $label = "Fragments recieved";
      }
      "STATISTIC_IP_DROPPED_RECEIVED_FRAGMENTS" {
        $label = "Fragments dropped on receive";
      }
      "STATISTIC_IP_REASSEMBLED_PACKETS" {
        $label = "Packets reassembled";
      }
      "STATISTIC_IP_INVALID_CHECKSUM_ERRORS" {
        $label = "Errors - Invalid checksum";
      }
      "STATISTIC_IP_INVALID_LENGTH_ERRORS" {
        $label = "Errors - Invalid length";
      }
      "STATISTIC_IP_MEMORY_ERRORS" {
        $label = "Errors - Memory";
      }
      "STATISTIC_IP_RETRANSMITTED_ERRORS" {
        $label = "Errors - Retransmitted";
      }
      "STATISTIC_IP_INVALID_PROTOCOL_ERRORS" {
        $label = "Errors - Invalid protocol";
      }
      "STATISTIC_IP_OPTIONS_ERRORS" {
        $label = "Errors - Options";
      }
      "STATISTIC_IP_REASSEMBLED_TOO_LONG_ERRORS" {
        $label = "Errors - Reassembly";
      }
    }
    #Write-Host "$label : $val"
    $stat_obj | Add-Member -Type noteProperty -Name $label $val;
  }
  $stat_obj | format-list
}

#-------------------------------------------------------------------------
# Do-Initialize
#-------------------------------------------------------------------------
function Do-Initialize()
{
  if ( (Get-PSSnapin | Where-Object { $_.Name -eq "iControlSnapIn"}) -eq $null )
  {
    Add-PSSnapIn iControlSnapIn
  }
  $success = Initialize-F5.iControl -HostName $g_bigip -Username $g_uid -Password $g_pwd;
  
  return $success;
}

#-------------------------------------------------------------------------
# Main Application Logic
#-------------------------------------------------------------------------
if ( ($g_bigip -eq $null) -or ($g_uid -eq $null) -or ($g_pwd -eq $null) )
{
  Write-Usage;
}

if ( Do-Initialize )
{
  Get-GlobalIPStatistics;
}
else
{
  Write-Error "ERROR: iControl subsystem not initialized"
}