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:
----------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.
