asked on 10/4/2011

script add wireless network XP

Hello,

I need a vbscript that will add a wireless network with psk in Windows XP SP2 and/or SP3. I've been unable to find a viable and reliable solution thus far. Here's what I've used so far, it works sometimes but I need a more reliable solution like netsh wlan for Windows 7.

SSID="SSIDName" 
Key="PSK" 
 
Dim objShell:Set objShell=CreateObject("Wscript.Shell")
 
With objShell
  .Run "control netsetup.cpl"
  wscript.sleep 100000
  .AppActivate "Wireless Network Setup Wizard"
  .SendKeys "%NSN" & SSID & "%M" & "{TAB}" & " n"
  .SendKeys "%W" & Key
  .SendKeys "%O" & Key
  .SendKeys "%NSN+{Tab}~"
End With
 
Set objShell=Nothing

Open in new window

Wireless Networking Windows XP VB Script

Last Comment

Arman Khodabande

10/12/2011

Arman Khodabande

10/9/2011

Hi
This would do the job : http://code.mincus.com/31/windows-wireless-api/

Work on it and make your script based upon it.

crash1624

10/9/2011

ASKER

I appreciate the input but I need an option that does not require installation of third party software. I have hundreds of XP based machines to push this out to. There has to be a suitable option built into the OS like netsh wlan for Vista/7.

ASKER CERTIFIED SOLUTION

Arman Khodabande

10/9/2011

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

crash1624

10/12/2011

ASKER

I agree, I don't see a better solution for XP. Thanks for the input though.

Arman Khodabande

10/12/2011

If you want to refine your script to work most of the time just increase the timing in case of a delay. However your timings are good and long enough to make it work!
"I've been unable to find a viable and reliable solution" >> Your script is reliable already! But I know that you looked for a real script not a physical way like this!
Using that 3rd party utility is good and reliable too.
Anyway depends on your choice . . .
Good luck