Ps Virtual Server Lookup

Problem this snippet solves:

This powershell script will allow you to do a wildcard reverse lookup for Virtual Servers.

Virtual Servers are accessed by user friendly name. In some cases you will want to know which Virtual Servers are using a given address. This script takes as input a wildcard spec for the address:port of a virtual server and lists the address:port and name for all matches.

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-2009 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,
  $g_virtualaddr = $null
);

Set-PSDebug -strict;

#-------------------------------------------------------------------------
# function Write-Usage
#-------------------------------------------------------------------------
function Write-Usage()
{
  Write-Host "Usage: VirtualServerLookup.ps1 host uid pwd [virtual_server]";
  exit;
}

#-------------------------------------------------------------------------
# function Write-VSEntry
#-------------------------------------------------------------------------
function Write-VSEntry()
{
  param(
    [string]$vs = $null,
    [string]$address = $null,
    [int]$port = $null
  );
  if ( $vs -and $address -and $port )
  {
    "{0,16}:{1,-5} -> {2}" -f ${address}, ${port}, $vs;
  }
}

#-------------------------------------------------------------------------
# Lookup-Virtual
#-------------------------------------------------------------------------
function Lookup-Virtual()
{
  param([string]$query = $null);

  $addr = "*";
  $port = "*";

  if ( $query )
  {
    $addr = $query;
    $tokens = $query.Split(':');
    if ( $tokens.Length -eq 2 )
    {
      $addr = $tokens[0];
      $port = $tokens[1];
    }
    if ( !$addr ) { $addr = "*"; }
    if ( !$port ) { $port = "*"; }
  }

  $vs_list = (Get-F5.iControl).LocalLBVirtualServer.get_list();
  $dest_list = (Get-F5.iControl).LocalLBVirtualServer.get_destination($vs_list);

  for($i=0; $i-lt$dest_list.Length; $i++)
  {
    $vs = $vs_list[$i];
    $daddr = $dest_list[$i].address;
    $dport = $dest_list[$i].port;

    if ( !($query) -or ("${daddr}:${dport}" -like "${addr}:${port}") )
    {
      Write-VSEntry -vs $vs -address $daddr -port $dport;
    }
  }
}

#-------------------------------------------------------------------------
# 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 )
{
  if ( $g_virtualaddr )
  {
    Lookup-Virtual $g_virtualaddr;
  }
  else
  {
    Lookup-Virtual;
  }
}
else
{
  Write-Error "ERROR: iControl subsystem not initialized"
}