Dell Wireless Ad-Hoc Fix

By | December 6, 2006

Recently, a friend of mine (who am I kidding I don't have friends)
who works for a large tier 1 automotive Axel supplier told me of an issue with over 2000 laptops.
He stated that their "NT" and "Desktop" groups could not fix an issue with their Broadcom wireless drivers.The problem was that the Broadcom utility used to change the built-in wireless devices from Ad-Hoc mode to Infrastructure mode was set to Ad-Hoc by default. Now users being what they are would not be able to do this for themselves, so the wireless division asked the aformentioned groups to try to solve the issue, but was told "sorry". They the wireless guys would have to fix all of the laptops by hand (using remote access). Well,first off this is crazy!
I told my buddy I could write a script to fix the issue.

The script below is for the following WLAN NICs and laptops:

Dell TrueMobile 1150 PCMCIA   Dell C800, C810
Dell TrueMobile 1150 Mini-PCI  Dell C840
Dell TrueMobile 14xx Mini-PCI  Dell D500, D505, D510, D800, & D810

The 14xx Series can be 1400, 1450, 1470, or 1490.

———-COPY EVERYTHING BELOW THIS LINE———-

'This Script will go into the registry and change "HKLM\SOFTWARE\Broadcom\802.11",  <Random Key >, Control to dword "5"
'Written by Cheyenne Harden 8.17.06 and updated on 12.6.06 after a flaw was found in two builds for laptops.

On Error Resume Next

'Vars and Constants
Dim arrRegKey()
Dim oReg,dwValue, strValueName, strKeyPath
Dim strComputer, i
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
i = 0

'Connection to the systems registry
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

'Path in the Registry 
strKeyPath = "SOFTWARE\Broadcom\802.11"
'Enumerate all registry keys under 802.11
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subKey In arrSubKeys

 ReDim Preserve arrRegKey(i)
 
 arrRegKey(i) = subKey
  strValueName = "Control"
  dwValue = 5
  If InStr(arrRegKey(i), "{") Then
  oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath &  "\" & arrRegKey(i),strValueName,dwValue
  'The line below is for trouble shooting
  'Wscript.Echo HKEY_LOCAL_MACHINE & strKeyPath & "\" & arrRegKey(i) & strValueName & dwValue
 i = i + 1
 
 Else
 'The line below is for trouble shooting
 'Wscript.Echo "Error"
 
 End If
 
 
Next
'Remove the single quote below to see when the script completes.
'Wscript.Echo "Done…"

———-COPY EVERYTHING ABOVE THIS LINE———-

PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!

To make this script work you will need one things!

1. You will need to have Admin privlidges on the computer.
2. Adding this to a login script or push it out by group policy.

This information is provided "AS IS" with no warranties expressed or implied.

Leave a Reply

Your email address will not be published. Required fields are marked *