Here is a script I use....
#!/usr/bin/perl
#AP must be at default config
use warnings;
use strict;
use Net::Telnet;
#Declare all global variables
my $t1;
my $t2;
my $t3;
my $ap1 = "192.168.200.52";
my $ap2 = "192.168.200.53";
my $ap3 = "192.168.200.56";
my $lab;
my $ssidap1g = "ccx2g";
my $ssidap1a = "ccx2a";
my $ssidap2g = "ccx2g1";
my $ssidap2a = "ccx2a1";
my $ssidap3g = "ccx2g2";
my $ssidap3a = "ccx2a2";
my $un = "cisco";
my $pw = "Cisco";
#Setup new telnet, and login/go to global configuration mode
$t1 = new Net::Telnet ();
$t1->open($ap1);
$t1->waitfor('/Username/');
$t1->print("$un");
$t1->waitfor('/Password:/');
$t1->print("$pw");
$t1->print("enable");
$t1->waitfor('/Password:/');
$t1->print("$pw");
$t1->waitfor('/#/');
$t1->print("Conf term");
$t1->waitfor('/config/');
#Script specific stuff here
#AP 1 Config
$t1->print("int dot11 0");
$t1->waitfor('/config/');
$t1->print("no ssid tsunami");
$t1->waitfor('/config/');
$t1->print("ssid $ssidap1g");
$t1->waitfor('/config/');
$t1->print("authentication open");
$t1->waitfor('/config/');
$t1->print("guest-mode");
$t1->waitfor('/config/');
$t1->print("!");
$t1->waitfor('/config/');
$t1->print("!");
$t1->waitfor('/config/');
$t1->print("int dot11 1");
$t1->waitfor('/config/');
$t1->print("ssid $ssidap1a");
$t1->waitfor('/config/');
$t1->print("no ssid tsunami");
$t1->waitfor('/config/');
$t1->print("authentication open");
$t1->waitfor('/config/');
$t1->print("guest-mode");
$t1->waitfor('/config/');
$t1->print("!");
$t1->waitfor('/config/');
$t1->print("!");
$t1->waitfor('/config/');
$t1->print("end");
#AP 2 Telnet
$t2 = new Net::Telnet ();
$t2->open($ap2);
$t2->waitfor('/Username/');
$t2->print("$un");
$t2->waitfor('/Password:/');
$t2->print("$pw");
$t2->print("enable");
$t2->waitfor('/Password:/');
$t2->print("$pw");
$t2->waitfor('/#/');
$t2->print("Conf term");
$t2->waitfor('/config/');
#sleep 4;
#AP 2 Config
$t2->print("int dot11 0");
$t2->waitfor('/config/');
$t1->print("no ssid tsunami");
$t1->waitfor('/config/');
#sleep 1;
$t2->print("ssid $ssidap2g");
$t2->waitfor('/config/');
$t2->print("authentication open");
$t2->waitfor('/config/');
$t2->print("guest-mode");
$t2->waitfor('/config/');
$t2->print("!");
$t2->waitfor('/config/');
$t2->print("!");
$t2->waitfor('/config/');
$t2->print("int dot11 1");
$t2->waitfor('/config-if/');
$t2->print("no ssid tsunami");
$t2->waitfor('/config/');
$t2->print("ssid $ssidap2a");
$t2->waitfor('/config/');
$t2->print("authentication open");
$t2->waitfor('/config/');
$t2->print("guest-mode");
$t2->waitfor('/config/');
$t2->print("!");
$t2->waitfor('/config/');
$t2->print("!");
$t2->waitfor('/config/');
$t2->print("end");
#AP 3 Telnet
$t3 = new Net::Telnet ();
$t3->open($ap3);
$t3->waitfor('/Username/');
$t3->print("$un");
$t3->waitfor('/Password:/');
$t3->print("$pw");
$t3->print("enable");
$t3->waitfor('/Password:/');
$t3->print("$pw");
$t3->waitfor('/#/');
$t3->print("Conf term");
$t3->waitfor('/config/');
# AP 3 Config
$t3->print("int dot11 0");
$t3->waitfor('/config/');
$t3->print("no ssid tsunami");
$t3->waitfor('/config/');
$t3->print("ssid $ssidap3g");
$t3->waitfor('/config/');
$t3->print("authentication open");
$t3->waitfor('/config/');
$t3->print("guest-mode");
$t3->waitfor('/config/');
$t3->print("!");
$t3->waitfor('/config/');
$t3->print("!");
$t3->waitfor('/config/');
$t3->print("int dot11 1");
$t3->waitfor('/config/');
$t3->print("no ssid tsunami");
$t3->waitfor('/config/');
$t3->print("ssid $ssidap3a");
$t3->waitfor('/config/');
$t3->print("authentication open");
$t3->waitfor('/config/');
$t3->print("guest-mode");
$t3->waitfor('/config/');
$t3->print("!");
$t3->waitfor('/config/');
$t3->print("!");
$t3->waitfor('/config/');
$t3->print("end");
#HTML output goes down here
print "Content-Type: text/html\n\n";
print "<html><HEAD>\n<TITLE>SSID Reset</title></head>\n";
print "<body>\n";
print "Lab SSID's have been reset. <br> $ap1 is configured with $ssidap1g and $ssidap1a.<br>";
print "$ap2 is configured with $ssidap2g and $ssidap2a. <br>";
print "$ap3 is configured with $ssidap3g and $ssidap3a. <br>";
print "\n<p>This page will go back to the main page in 5 seconds<p>\n";
print "\n</body>\n";
print "<meta HTTP-EQUIV=\"REFRESH\" content=\"5; url=/asd/asd_v2.html\">\n";
print "</html>\n";
Facebook
Twitter