We help IT Professionals succeed at work.

WPA wireless network automate

Last Modified: 2012-05-09
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.

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

Open in new window

Watch Question

This one is on us!
(Get your first solution completely free - no credit card required)
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.


Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.