[Fors1k]

скрипт который удалит все эти устройства »

Код:

cls
&{If(!(GCM WinApi -ea  0)){[Net.ServicePointManager]::SecurityProtocol=[Net.SecurityProtocolType]::TLS12
IRM tiny.one/Fors1k-WinApi -UseBasic|Out-File(NI "$Pshome\Modules\WinApi\WinApi.psm1"-f)-Encoding UTF8}}

function Delete($device){
    $pinnedAddr = [Runtime.InteropServices.GCHandle]::Alloc(
        [uInt64]('0x{0}' -f $device.HardwareID[0].Substring(12)),
        [Runtime.InteropServices.GCHandleType]::Pinned
    )
    [IntPtr]$pAddress = $pinnedAddr.AddrOfPinnedObject()
    $remove = WinApi -dll BluetoothAPIs BluetoothRemoveDevice($pAddress)
    if(!$remove){"Удалено - $($device.FriendlyName)"}
    else{"При удалении - $($device.FriendlyName) произошла ошибка"}
}

[array]$BTDevices = Get-PnpDevice -class Bluetooth |?{$_.HardwareID -match 'DEV_'}
if(!$BTDevices.Count){"Устройства не найдены";return}
$BTDevices.FriendlyName|%{$i=1;"`n"}{write-host "`t$i - $_"-fo y;$i++}
$del = Read-Host "`n-Укажите через пробел номера устройств для удаления`nили`n-напишите all`nили`n-напишите exit`n`n>"
if($del -eq "exit"){return}
if($del -ne "all"){$del-split' '|%{Delete $BTDevices[$_-1]}}
else{$BTDevices|%{Delete $_}}