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
|