Video Screencast Help

Automating Wireless Profile Config Settings for Intel PROSet/Wireless Software 11.1.1.3 for SWD/DS

Created: 17 Mar 2009
Eshwar's picture
+31 31 Votes
Login to vote

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:

  1. Create Profile file [Profile.p10]
    • Open Intel(R) PROSet/Wireless [Start --> Programs --> Intel PROSet Wireless]
    • Click on "Profiles" button
    • In the Profiles windows click on "Add" button
    • Configure "General Settings" [SSID] and click NEXT
    • Configure "Security Settings" [PEAP User/Server]
    • enter userid@corporate.com under Roaming identity [this can not be automated and user has to change this once the profile is set]
    • Once the profile has been created, select the profile and export the profile using "Export" button
    • The saved profile file will be with the extension .p10 [wireless.p10]
  2. Create different profile files depending upon the Laptop model [DELL & IBM]
  3. Use a vbscript to check for the MODEL and install the profile file [wireless.p10] silently
  4. Run this vbscript as a DS job to install the profile silent install

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

License: AJSL
By clicking the download link below, you agree to the terms and conditions in the Altiris Juice Software License
Support: User-contributed tools on the Juice are not supported by Altiris Technical Support. If you have questions about a tool, please communicate directly with the author by visiting their profile page and clicking the 'contact' tab.