Disabling Wireless Adapter

Question

I want to run a Powershell Startup Script to disable the Wireless adapters on some systems. I thought I'd want to get some WMI stuff
Get-WmiObject -Class Win32_NetworkAdapter -Filter "Name = 'Intel(R) Centrino(R) Advanced-N 6205'
Then run netsh to disable it
netsh interface set interface "Wireless Network Connection" DISABLED
After looking at this I wondered why not just run the
netsh interface set interface "Wireless Network Connection" DISABLED
I don't really need the Get-WmiObject do I?
Orange County District Attorney

Answer 1

Here are a couple of scripts ( ps and vbscript )  that can be used on a dell bios.. You could adapt it to disable the wireless adapter in the bios if you want  ..
( pcombobox app is on www.justcode.ca  )
Powershell ( may require dell client management agent )
(gwmi DCIM_BIOSService -namespace root\dcim\sysman).SetBIOSAttributes($null,$null,"Wake On LAN","4")
Possible values are:
1 - Disable
2 - Add-in
3 - On board
4 - LAN
5 - PXE boot enable
6 - LAN or WLAN
7 - WLAN only
vbscript
'  Set Dell Bios items
'  Requires that the Dell Client Management software is installed 
'Dell DCIM values
' Wake on LAN values
'Enables or Disables Multiple CPU Core support on next boot.
'Possible values are:
'1 = Other
'2 = Unsupported
'3 = Enabled
'4 = Disabled
'The actual values are not the above, but the below - Paul Jorgensen - Nov 2011 ( Dell gx760 )
'1 = Disabled
'2 = Enabled
'AC Power Recovery Mode
'1 = ?
'2 = ?
'Processor Logical Processor(HyperThreading)
'1 = ?
'2 = ?
Option Explicit
'*** Declare variables
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim strKeyValue
Dim objWMIService
Dim ColSystem
Dim objInstance
Dim oInParams
Dim returnValue
Dim strAttributeName(2)
Dim strAttributeValue(2)
Dim strAuthorizationToken
Dim psDellBios
Dim WshShell, objWshScriptExec
Dim psAttribute
Dim psValue
Dim pbAttributeFound
Set WshShell = WScript.CreateObject("WScript.Shell")
'*** Check that the right executable was used to run the script
'*** and that all parameters were passed
If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _
    (WScript.Arguments.Count < 1) Then
    Call Usage()
    WScript.Quit
End If
'*** request combobox input as to which bios setting should be updated
psDellBios = GetComboInput("pcombobox.exe /p:WakeOnLAN,EnableDualCPU")
WScript.Echo("This is setting ->" & psDellBios)
'*** Initialize variables
strNameSpace = "root\dcim\sysman"
strComputerName = WScript.Arguments(0)
strClassName = "DCIM_BIOSEnumeration"
'*** Set Variables based on combobox selection
If psDellBios = "WakeOnLAN" Then 
psAttribute = "Wake On LAN"
psValue = "4"
End If
If psDellBios = "EnableDualCPU" Then
psAttribute = "Multiple CPU Cores"
psValue = "1"             ' see value notes at top of script
End If
'*** Retrieve the instance of DCIM_BIOSEnumeration class for the TPM
Set objInstance = GetObject("WinMgmts:{impersonationLevel=impersonate," &_
    "AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace)
'*** print out attribute if found
Set ColSystem = objInstance.execquery("Select * from " & strClassName)
For Each objInstance In ColSystem
'*** Check every instance
  'iTKVal = objInstance.Properties_.Item("CurrentValue").Value(0)
'*** Auto On Hour and Auto On Minutes don't have PossibleValues and PossibleValuesDescription properties
If (objInstance.AttributeName = psAttribute)  Then
WScript.Echo("Specified Attribute found " & objInstance.AttributeName & ", " & ( objInstance.CurrentValue(0) ) & VbCrLf )
pbAttributeFound = True
End If
Next
    strClassName = "DCIM_BIOSService"
    strAttributeName(0) = psAttribute    ' Wake on LAn or Multi Core CPU, see psAttribute in query section above
WScript.Echo("strAttributeName-> " & strAttributeName(0))
  strAttributeValue(0) = psValue
    WScript.Echo("strValue-> " & strAttributeValue(0))
    strAuthorizationToken = ""
    '*** Retrieve the instance of DCIM_BIOSService class 
Set objWMIService = GetObject("WinMgmts:{impersonationLevel=impersonate," &_
        "AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace )
    Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
    For Each objInstance In ColSystem    
        Set oInParams = objInstance.Methods_("SetBIOSAttributes").InParameters.SpawnInstance_
        oInParams.AttributeName = strAttributeName
        oInParams.AttributeValue = strAttributeValue
        oInParams.AuthorizationToken = strAuthorizationToken
        Set returnValue = objInstance.ExecMethod_("SetBIOSAttributes", oInParams)
        Exit For
    Next
'End If
'*** If any errors occurred, let the user know
If Err.Number <> 0 Then
    WScript.Echo "Enabling Wake On LAN failed."
End If
'*** Sub used to display the correct usage of the script
Sub Usage()
Dim strMessage
strMessage = "incorrect syntax. You should run: " & vbCRLF & _
    "cscript.exe /nologo SampleWakeOnLAN.vbs <systemname>"
WScript.Echo strMessage
End Sub
Function GetComboInput(cbparam)
Dim sTempPath, sTempResult, sTempExitCode
sTempPath = cbparam
WScript.Echo sTempPath
Err.Clear
'WshShell.run sTempPath, WINDOWNORMAL, True
Set objWshScriptExec = WshShell.Exec(sTempPath)
' ***** BELOW - **  USE RegRead to read reg return value **** !!!!
'wscript.Echo WshShell.RegRead(testregpath)
'WScript.Echo Err.Number
Do While objWshScriptExec.Status = 0
WScript.Sleep 100
'WScript.Echo "this is the status code" & objWshScriptExec.Status
Loop
'**** if item was not picked from combobox, take action based on errorlevel
sTempExitCode = objWshScriptExec.ExitCode
If (objWshScriptExec.ExitCode = 0 Or objWshScriptExec.ExitCode = 100 Or objWshScriptExec.ExitCode = 102 Or objWshScriptExec.ExitCode = 101) Then
'If(objWshScriptExec.ExitCode > 20 )Then 
Select Case sTempExitCode
Case 0
WScript.Echo "User clicked cancel"
WScript.Quit(0)
Exit Function
Case 100   
WScript.Echo "User clicked return abort"
WScript.Quit(100)
Exit Function
Case 101
WScript.Echo "User clicked ok with NULL item"
WScript.Quit(101)
Exit Function
Case 102
WScript.Echo "User clicked ok with data entry"
'WScript.Echo " result is " & 
GetComboInput = WshShell.RegRead("HKCU\Software\Green-Frog-Software\pComboBox\RData\PComboBox")
WScript.Echo " GetComboInput is " & GetComboInput
Exit Function
Case Else
End Select  
End If
'WScript.Echo objWshScriptExec.ExitCode
'**** return the error value
'*****ACTUALLY - parse "cbparam" using the exitcode to return the 
'***** the string required rather then run another function
'***** or run a generic function from here...
'***** this will make the function single line usage 
'***** which is way more script friendly
sTempResult = pfParseResult(cbparam, objWshScriptExec.ExitCode)
'WScript.Echo sTempResult
GetComboInput = sTempResult
End Function
' ** Application:  VB MapDrives
' ** Function:  pfParseResult
' ** Purpose:   match the errorlevel returned to the input string desired
' ** Update:    
' ** Date: Jan 6 2009
' ** Author:    Paul Jorgensen
Function pfParseResult(cbparam, pi_Result)
Dim sTempPath, sSplitFirst, piLen
Dim paParseArray
sTempPath = cbparam
'WScript.Echo sTempPath
Err.Clear
piLen = Len(cbparam)
If (piLen > 17) Then
sSplitFirst = Right(cbparam, piLen - 17)    ' 17 = 3 for /p: and 14 for pcombobox.exe with spaces
End If
'WScript.Echo "this is sSplitFirst" & sSplitFirst
paParseArray = Split(sSplitFirst, ",", -1, 0)     ' string, delimiter, count -1 = all, binary(0) or text (1)
'WScript.echo CrLf
'WScript.echo paParseArray(0)
'WScript.echo CrLf
'WScript.echo paParseArray(1)
' ie a valid selection was returned from GetComboInput, so use the return code ( pi_Result) which represents the item
' selected to select the item from the paParseArray which is the cbparam parameter minus the exe and the /p: with
' the /p: parameters split into the paParseArray ( ie D,L,R,S,V.... )
pfParseResult = paParseArray(pi_Result - 1)
'Do While objWshScriptExec.Status =0
'WScript.Sleep 100
'WScript.Echo "this is the status code" & objWshScriptExec.Status
'Loop
End Function
just code, no beer...although that would probably help..