Нужен рабочий скрипт который удаляет все устройства Bluetooth

[Френк]

Друзья, ситуация такая: Я принимаю по блитузу документы с разный устройств (телефонов).
И на компьютере остается все сопреженные устройства .
Захожу так: пуск устройства и принтеры и там все эти самые устройства телефонов.
Я могу ручками удалить но по одному слишком тяжко.
Может есть какой нибудь скрипт который удалит все эти устройства телефонов автоматически?!

[Iska]

Френк, у меня нет ни одного такого устройства, потому — на «попробовать»: Monitor the Bluetooth activity around you (http://www.nirsoft.net/utils/bluetooth_viewer.html). Не факт, что это то, что Вам нужно.

[Френк]

Iska, нееет, это совсем не то! :(

[Iska]

Френк, тогда попробуйте поиграться с DevCon - Поиск в Google (https://www.google.com/search?q=DevCon).

[greg zakharov]

Может есть какой нибудь скрипт который удалит все эти устройства телефонов автоматически?!Цена?

[Dreamer_UFA]

Device Cleanup Tool (https://www.uwe-sieber.de/misc_tools_e.html)

Потестил. Рабочий вариант. Можно выбрать несколько сразу и Remove

[Iska]

Dreamer_UFA, тогда уж лучше ниже — Device Cleanup Cmd:
This is the command line version of DeviceCleanup
— самое то, удаление по классу устройств.

[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 $_}}

[Френк]

Fors1k , какой язык програмиирования это?

[Fors1k]

PowerShell

[Френк]

А как автоматизировать ее действия?
Чтобы просто нажать на нее и все делалось без моего участи.
А в нашем случаи, чтобы ее запустить придется прибегнуть к командной строке....
Можно на vbs ее реализовать?

[Fors1k]

просто нажать на нее и все делалось без моего участи »
Сохраните код в файл с расширением .ps1. После запускайте двойным кликом.

[Iska]

Fors1k, ему ещё надо будет как минимум а) разрешить исполнение неподписанных локальных скриптов, б) переназначить умолчание с edit на run («двойным кликом»).

[Френк]

Сохраните код в файл с расширением .ps1. После запускайте двойным кликом. »
Сделал с точностью так как было описано выше.
Запускаю двойным кликом и открывается блокнот с кодом внутри.
В чем подвох?

[Iska]

В чем подвох? »
В том, что действием по умолчанию назначено редактирование, а не исполнение скрипта. ПКМ, Run in PowerShell (или Выполнить с помощью PowerShell) — как-то так.

[DJ Mogarych]

Удобно сделать ярлык, где будет написано

powershell -f "путь к скрипту"

[Френк]

А можно на vbs написать подобный скрипт?

С vbs хлопот нет, запустил себе скрипт и вуаля. Ото я от рутиной работы сбегаю а тут мне сдается powershell.

[Iska]

А можно на vbs написать подобный скрипт? »
Нет. Разве что пользовать DynamicWrapperX (Библиотека DynamicWrapperX (http://script-coding.com/dynwrapx.html)) или другую подобную прослойку.

где будет написано »
…и ещё параметр, разрешающий исполнение скрипта добавьте.

[DJ Mogarych]

С vbs хлопот нет, запустил себе скрипт и вуаля »
Хлопоты только у того, кто этот скрипт будет писать, а у вас проблема ярлычок создать.