среда, 25 июня 2025 г.

Windows 11 отключить bluetooth гарнитуру

Не отключалась гарнитура блютус.
Нажимаешь удалить устройство, выключаешь, включаешь блютус, оно снова появляется в списке как известное но не подключается.
Помог скрипт отсюад

$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 found ********" | Write-Host     }  } While (($BTDevices = @(Get-BTDevice)) -and [int]$selected)
Ратнер Арсений, arsenyratner@gmail.com, 7 985 273 2090

среда, 4 июня 2025 г.

hyper-v saved-critical windows 11

После обновления с 10 на 11 появились в списке ВМ которых на самом деле нет, из менеджера не удаляются

```powershell
$vmname = 'test1'
$VMManagementService = Get-WmiObject -Namespace 'root\virtualization\v2' -Class Msvm_VirtualSystemManagementService
$vmobject = Get-WmiObject -Namespace 'root\virtualization\v2' -Class 'msvm_computersystem' | Where-Object { $_.elementname -match $vmname }
$VMManagementService.DestroySystem($vmobject)
```

Ратнер Арсений, arsenyratner@gmail.com, 7 985 273 2090

Меняется разрешение при выключении экрана

Идея в том, чтобы виртуальный экран при выключенных реальных был нужного разрешения.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\SIMULATED_8086_46A8_00000000_00020000_800050^1A6FF0E82864B84FCEAD280EFF0E764B\00]
"PrimSurfSize.cx"=dword:00000a00
"PrimSurfSize.cy"=dword:000005a0

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\SIMULATED_8086_46A8_00000000_00020000_800050^1A6FF0E82864B84FCEAD280EFF0E764B\00\00]
"ActiveSize.cx"=dword:00000a00
"ActiveSize.cy"=dword:000005a0
"PrimSurfSize.cx"=dword:00000a00
"PrimSurfSize.cy"=dword:000005a0
"DwmClipBox.right"=dword:00000a00
"DwmClipBox.bottom"=dword:000005a0

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\SIMULATED_8086_46A8_00000000_00020000_2045^DD31C473FFED3913883A19534512E68D\00]
"PrimSurfSize.cx"=dword:00000a00
"PrimSurfSize.cy"=dword:000005a0

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\SIMULATED_8086_46A8_00000000_00020000_2045^DD31C473FFED3913883A19534512E68D\00\00]
"ActiveSize.cx"=dword:00000a00
"ActiveSize.cy"=dword:000005a0
"PrimSurfSize.cx"=dword:00000a00
"PrimSurfSize.cy"=dword:000005a0
"DwmClipBox.right"=dword:00000a00
"DwmClipBox.bottom"=dword:000005a0


Ратнер Арсений, arsenyratner@gmail.com, 7 985 273 2090

Заменить циферки на циферки в кавычечках

Задача сделать так, чтобы 01 стало '01' иначе ансибл считае что 01 = 1
notepad++
suffix: (\d+),
suffix: '\1',
Ищем циферки: (\d+)
Берём найденое (содержимое скобочек) в кавычечки: '\1'

Ратнер Арсений, arsenyratner@gmail.com, 7 985 273 2090