|
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.
|
RSS Feeds 
