add_members error with VB.net...????

Here's some code in Perl (since I already had it ready). I'll work on some VB code and get it to you. BTW, if you are still having problems, can you pass along the version of BIG-IP that you are trying to connect to?

 

 

!/usr/bin/perl   
 --------------------------------------------------------------------   
  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-2004 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.   
 --------------------------------------------------------------------   
  
 use SOAP::Lite + trace => qw(method debug);   
 use SOAP::Lite;   
  
 --------------------------------------------------------------------  
  Validate Arguments   
 --------------------------------------------------------------------   
 my $sHost = $ARGV[0];   
 my $sPort = $ARGV[1];   
 my $sUID = $ARGV[2];   
 my $sPWD = $ARGV[3];   
 my $sPool = $ARGV[4];   
 my $sMemberDef = $ARGV[5];   
  
 sub usage()   
 {   
   die ("Usage: add_members.pl host port uid pwd [pool] [member:port]\n");   
 }   
  
 if ( ($sHost eq "") or ($sPort eq "") or 
   ($sUID eq "") or ($sPWD eq "") )   
 {   
   usage();   
 }   
  
 --------------------------------------------------------------------   
  Transport Information   
 --------------------------------------------------------------------   
 sub SOAP::Transport::HTTP::Client::get_basic_credentials   
 {   
   return "$sUID" => "$sPWD";   
 }   
  
 $soap = SOAP::Lite   
 -> uri('urn:iControl:ITCMLocalLB/Pool')   
 -> readable(1)   
 -> proxy("https://$sHost:$sPort/iControl/iControlPortal.cgi");   
  
 if ( "" eq $sPool )   
 {   
   &getList();   
 }   
 else   
 {   
   &getPoolMemberList($sPool);   
   &addMembers($sPool, $sMemberDef);   
   &getPoolMemberList($sPool);   
 }   
  
 --------------------------------------------------------------------   
  addMembers  
 --------------------------------------------------------------------   
 sub addMembers()   
 {   
   my ($sPoolName, $sMemberDef) = @_;   
    
   ($sMemberIP, $MemberPort) = split(/:/, $sMemberDef, 2);   
  
   if ( "" eq $sMemberIP ) { $sMemberIP = "30.30.30.30"; }   
   if ( "" eq $MemberPort ) { $MemberPort = 80; }   
    
   $member_def = { address => $sMemberIP, port => $MemberPort };   
  
   $soapResponse = $soap->add_members   
   (   
     SOAP::Data->name(pool_name => $sPoolName),   
     SOAP::Data->name(members => [$member_def])   
   );   
   if ( $soapResponse->fault )   
   {   
     print $soapResponse->faultcode, " ", 
       $soapResponse->faultstring, "\n";   
     exit();   
   }   
 }   
  
 --------------------------------------------------------------------   
  getList  
 --------------------------------------------------------------------   
 sub getList()   
 {   
   ------------------------------------------------------------   
    Query Pool List    
   ------------------------------------------------------------   
   print "Available Pools:\n";   
   $soapResponse = $soap->get_list();   
  
   if ( $soapResponse->fault )   
   {   
   print $soapResponse->faultcode, " ",  
   $soapResponse->faultstring, "\n";   
   exit();   
   }   
   else   
   {   
     my $poolNumber = 0;   
     my @pool_list = @{$soapResponse->result}; 
     foreach my $pool (@pool_list)   
     { 
       print "\t[$poolNumber] = '", $pool, "'\n";  
       $poolNumber++;   
     }   
   }   
 }   
  
  
 --------------------------------------------------------------------   
  Get the list of pool members   
 --------------------------------------------------------------------   
 sub getPoolMemberList()   
 {   
   my ($poolName) = @_;   
   my @members;   
   my $soapResponse =   
   $soap->get_member_list   
   (   
     SOAP::Data->name ( pool_name => $poolName )   
   );   
   if ( $soapResponse->fault )   
   {   
     print $soapResponse->faultcode, "\n";   
     print $soapResponse->faultstring, "\n";   
     exit("");   
   }   
   else   
   {   
     @members = @{$soapResponse->result};   
   }   
  
   print "Members   : {";   
   foreach my $member (@members)   
   {   
     print $member->{"address"}, ":",  
     $member->{"port"}, ", ";   
   }   
   print "\b\b}\n";   
  
 }

 

 

-Joe