Comments on: Capturing & Deploying WLAN Profiles

By: Niangui

Niangui — Tue, 25 May 2010 14:48:07 +0000

Bonjours je viens de trouver ce poste car sa faisait 5 jours que je n’arrivais pas à trouver, il me reste encore des zones d’ambre au niveau d’importation des la connexion, cela se fait avec un bat ou PowerShell, vous demander des copier des fichiers mais ou les mettre est ce que le wlan.exe doit être dans le même dossier que tous le reste
Merci de pouvoir m’aidé j’en ai besoin

Hi I just found this post because it was five days I could not find, I still have areas of amber in the import level of the connection, it is with a bat or PowerShell, you ask of copying files or put them but what is the wlan.exe must be in the same folder as all the rest
Thank you can help me I need

By: Rob

Rob — Mon, 15 Feb 2010 12:46:18 +0000

Good point Geoff! VB is no longer my scripting choice – so much easier using PS these days.

By: Geoff

Geoff — Mon, 15 Feb 2010 11:26:54 +0000

Slight error with the vbscript code there, “set wshshell=nothing” should be the last line, otherwise the script will fail after the first interface (not many systems have more than 1 wifi interface so should be that much of a problem though!)

By: pascal

pascal — Thu, 26 Mar 2009 08:55:35 +0000

perfect. great work.
thx a lot

By: Rob Milner

Rob Milner — Wed, 25 Mar 2009 20:35:11 +0000

Sorry for late reply – I have just finished the vbscript and the contents of the script is below:

(Powershell is much easier in this case – its only 5 lines of code compared to 24 lines of code for VBScript!). Hope you get it working anyway…

option explicit
Dim wshShell, strComputer, strKeyPath, oReg, arrSubKeys, subkey, command

Set wshShell = WScript.CreateObject (“WSCript.shell”)

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = “.”

Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & _
strComputer & “\root\default:StdRegProv”)

strKeyPath = “Software\Microsoft\WZCSVC\Parameters\Interfaces\”
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
subkey = Replace(subkey, “{“, “”)
subkey = Replace(subkey, “}”, “”)
‘Used for testing: Wscript.Echo “WLAN.exe sp ” & subkey & ” testwireless.xml”
command = “WLAN.exe sp ” & subkey & ” testwireless.xml”

wshShell.run command, 6, True
set wshshell = nothing
Next

By: pascal

pascal — Tue, 17 Mar 2009 11:43:41 +0000

hey, that would be great. i am a really bad in scripting.

thx a lot

By: Rob Milner

Rob Milner — Tue, 17 Mar 2009 08:22:58 +0000

Hi, it should be fairly easy to implement the same thing in vbscript (although not as easy as powershell). You should maybe think about rolling out powershell is as it much more powerful than vbscript and it will eventually replace vbscript anyway!

I will try and work on a vbscript version for you if you like?

By: pascal

pascal — Mon, 16 Mar 2009 17:48:36 +0000

did you have a version without powershell ? maybe vb script? powershell isn’t installed on the most clients.

thx