Following is the method if you are planning for automating "Wireless Profile" configuration setting for Intel PROSet/Wireless software 11.1.1.3 for SWD/DS. I've included DELL & IBM laptop models in my script. You can change the script according to your requirement to fit in more models.
In order to automate the "Wireless Profile" configuration, follow the steps below:
Note: Once the wireless profile is set, user has to change the "Raoming Identity" manually so that it reflects his/her email address [userid@corporate.com]
Following is the VBscript to install the PROFILE FILE silently.
'=================================================================== Dim Man Dim WshShell, objFileSys, sWinDir, sSysDir, strScriptDir '----------------------------------------------------------------- 'Setting of scripting objects Set WshShell = WScript.CreateObject("WScript.Shell") Set objFileSys = CreateObject("Scripting.FileSystemObject") '===================================================================================== strComputer = "." sWinDir = objFileSys.GetSpecialFolder(0).Path If Right(sWinDir,1) <> "\" Then sWinDir = sWinDir & "\" sSysDir = objFileSys.GetSpecialFolder(1).Path If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\" strScriptDir = objFileSys.GetParentFolderName(WScript.ScriptFullName) If Right(strScriptDir,1) <> "\" Then strScriptDir = strScriptDir & "\" '=================================================================================================== 'Verify profile files are in same folder as script If Not objFileSys.FileExists(strScriptDir & "DELLwlan.p10") Then 'MsgBox "Unable to locate " & strScriptDir & "DELLwlan.p10", vbCritical, "Error!" WScript.Quit 1 End If If Not objFileSys.FileExists(strScriptDir & "IBMwlan.p10") Then 'MsgBox "Unable to locate " & strScriptDir & "IBMwlan.p10", vbCritical, "Error!" WScript.Quit 1 End If '==================================================================================================== ' Get Manufacturer of the Computer System Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48) For Each objItem in colItems Man = objItem.Manufacturer Next '=================================================================================== If objFileSys.FileExists("C:\Progra~1\Intel\Wireless\Bin\PfWizard.exe") Then 'Execute Wireless configuration Profile If Man = "Dell Inc." Then objFileSys.CopyFile strScriptDir & "DELLwlan.p10", ("C:\WINDOWS\Temp\") WshShell.Run("C:\WINDOWS\Temp\DELLwlan.p10") Else objFileSys.CopyFile strScriptDir & "IBMwlan.p10", ("C:\WINDOWS\Temp\") WshShell.Run("C:\WINDOWS\Temp\IBMwlan.p10") End If End if '==================================================================================== IF objFileSys.FileExists("C:\WINDOWS\Temp\DELLwlan.p10") THEN WScript.Quit 0 ElseIf objFileSys.FileExists("C:\WINDOWS\Temp\IBMwlan.p10") THEN WScript.Quit 0 Else WScript.Quit 1 End If '==================================== The End ================================ Set WshShell = Nothing Set objFileSys = Nothing