Question : WPA wireless network automate

Hi Guys,
I was wondering if I could get some help setting up a wireless WPA network automatically.
At the moment, the code I have attached is for a WEP network. I was wondering how I would change it to a WPA network.

Thanks Heaps for your help.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
SSID="WIFINETWORK"  'Adjust to read the SSID
Key="Password" 'Adjust to read the key
 
Dim objShell:Set objShell=CreateObject("Wscript.Shell")
 
With objShell
  .Run "control netsetup.cpl"
  wscript.sleep 1000
  .AppActivate "Wireless Network Setup Wizard"
  .SendKeys "%NSN" & SSID & "%MN"
  .SendKeys "%W" & Key
  .SendKeys "%O" & Key
  .SendKeys "%NSN+{Tab}~"
End With
 
Set objShell=Nothing

Answer : WPA wireless network automate

www.snapfiles.com/freeware
look for Spyware Terminator, install w/clam antivirus.
run in safe mode.
Random Solutions  
 
programming4us programming4us