Не знаю, если вы все еще ищете решение. Мне нужно было что-то, чтобы изменить настройку кнопки питания с «Завершение работы» по умолчанию на «Ничего не делать», поэтому я написал этот VBScript.
'*************************************************************************************** ' File: pwrDoNothing.vbs ' Author: Joe Rawlins ' Purpose: Set system Power Button to 'Do nothing' ' ' ' Notes: Requires button to be held for 5 seconds to initiate shutdown ' ' ' ' ' Last Modified: 06/25/2010 jtr Initial creation ' '*************************************************************************************** Option Explicit Dim objShell, WshShell Set objShell = CreateObject("Shell.Application") Set WshShell = CreateObject("WScript.Shell") objShell.ControlPanelItem("powercfg.cpl") WScript.Sleep 500 WshShell.SendKeys "+" WScript.Sleep 500 WshShell.SendKeys "" WScript.Sleep 500 WshShell.SendKeys "" WScript.Sleep 500 WshShell.SendKeys "" WScript.Sleep 500 WshShell.SendKeys ""