Created
April 13, 2020 14:48
-
-
Save Bonemind/91a66347a40dfe789c348bbee8653d9d to your computer and use it in GitHub Desktop.
Script to delete bluetooth devices in windows 10 that fail to delete using the normal way. Found on: https://www.tenforums.com/drivers-hardware/22049-how-completely-remove-bluetooth-device-win-10-a-3.html
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $Source = @" | |
| [DllImport("BluetoothAPIs.dll", SetLastError = true, CallingConvention = CallingConvention.StdCall)] | |
| [return: MarshalAs(UnmanagedType.U4)] | |
| static extern UInt32 BluetoothRemoveDevice(IntPtr pAddress); | |
| public static UInt32 Unpair(UInt64 BTAddress) { | |
| GCHandle pinnedAddr = GCHandle.Alloc(BTAddress, GCHandleType.Pinned); | |
| IntPtr pAddress = pinnedAddr.AddrOfPinnedObject(); | |
| UInt32 result = BluetoothRemoveDevice(pAddress); | |
| pinnedAddr.Free(); | |
| return result; | |
| } | |
| "@ | |
| Function Get-BTDevice { | |
| Get-PnpDevice -class Bluetooth | | |
| ?{$_.HardwareID -match 'DEV_'} | | |
| select Status, Class, FriendlyName, HardwareID, | |
| # Extract device address from HardwareID | |
| @{N='Address';E={[uInt64]('0x{0}' -f $_.HardwareID[0].Substring(12))}} | |
| } | |
| ################## Execution Begins Here ################ | |
| $BTR = Add-Type -MemberDefinition $Source -Name "BTRemover" -Namespace "BStuff" -PassThru | |
| $BTDevices = @(Get-BTDevice) # Force array if null or single item | |
| Do { | |
| If ($BTDevices.Count) { | |
| "`n******** Bluetooth Devices ********`n" | Write-Host | |
| For ($i=0; $i -lt $BTDevices.Count; $i++) { | |
| ('{0,5} - {1}' -f ($i+1), $BTDevices[$i].FriendlyName) | Write-Host | |
| } | |
| $selected = Read-Host "`nSelect a device to remove (0 to Exit)" | |
| If ([int]$selected -in 1..$BTDevices.Count) { | |
| 'Removing device: {0}' -f $BTDevices[$Selected-1].FriendlyName | Write-Host | |
| $Result = $BTR::Unpair($BTDevices[$Selected-1].Address) | |
| If (!$Result) {"Device removed successfully." | Write-Host} | |
| Else {"Sorry, an error occured." | Write-Host} | |
| } | |
| } | |
| Else { | |
| "`n********* No devices foundd ********" | Write-Host | |
| } | |
| } While (($BTDevices = @(Get-BTDevice)) -and [int]$selected) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment