#!/bin/sh
   #
   # rc.wlan0
   #

   ESSID="YourSSID HERE"
   INTERFACE="wlan0"
   KEY="YourWEPKeyHere"
   MODE="Managed"

   #Load the module
   echo "Loading NDISWRAPPER"
   /sbin/modprobe ndiswrapper

   # Set up the WiFi card

   echo "Configuring ${INTERFACE}:"
   /sbin/iwconfig ${INTERFACE} essid ${ESSID}
   /sbin/iwconfig ${INTERFACE} mode ${MODE}
   /sbin/iwconfig ${INTERFACE} key ${KEY}

   # Get IP address from dhcp
   #This is somewhat Slackware specific you may
   #need to change it for your distro

   /sbin/dhcpcd -t 10 -d -N wlan0

   # Bring up interface - I'm not sure if this is necessary, 
   # but it doesn't hurt

   ifconfig wlan0 up

#!/usr/bin/perl
$Interface = "wlan0";
$HomeESSID = "Home_SSID_HERE";
$WEP = "Hex_WEP_Key_Here";
$Mode = "Managed";
$IWCONFIG = "/sbin/iwconfig";
$DHCP = "/sbin/dhcpcd -t 10 -d -N";
@APList = ();
#First load the ndiswrapper module
print("Loading ndiswrapper\n");
system("/sbin/modprobe ndiswrapper");
print("Scanning for wireless access points\n");
@ScanList = qx/iwlist wlan0 scan/;
push(@APList, 'Exit');
push(@APList, 'Home');
foreach $a (@ScanList){
	if($a =~m/No scan results/){
                print("No networks detected, enabling home network\n");
                &homeNet;
        }
	if($a =~ m/$HomeESSID/){
                print("Home network detected\n");
		&homeNet;
	}
	if ($a =~m/ESSID/){
		@Temp = split(/"/,$a);
		push(@APList,$Temp[1]);
	}
}
&selectFrom;
sub homeNet{
	print("Setting up wlan0\n");
	system("$IWCONFIG $Interface essid $HomeESSID");
	system("$IWCONFIG $Interface mode $Mode");
	system ("/sbin/iwconfig wlan0 key $WEP");
	print("Requesting IP from $HomeESSID\n");
	system("$DHCP $Interface");
	system ("ifconfig $Interface up");
	print("Configuration done\n");
	exit;
}
sub selectFrom{
	print("Select one of the following AP points\n");
	for($x=0;$x<=$#APList;$x++){
		print("$x - $APList[$x]\n");
	}
	print("Select by number: ");
	$SelectAP = <STDIN>;
	if((0 <= $SelectAP) and ($SelectAP<=$#APList)){
		if($SelectAP ==0){
			print("No AP Selected, exiting program\n");
			exit;
		}
		if($SelectAP==1){
			print("Configuring Home Network\n");
			&homeNet;
			exit;
		}
		else{
			print("Using $APList[$SelectAP]\n");
			system("$IWCONFIG $Interface essid $APList[$SelectAP]");
			print("Requesting IP from $APList[$SelectAP]\n");
			system("$DHCP $Interface");
			system("ifconfig $Interface up");
			exit;
		}
	}
	else{
		print("Please select an acceptable number\n");
		&selectFrom;
	}
	exit;
}