Windows10 64bit パソコン設定 自動化

パソコンの設定で自動化できるコマンドのメモ

VB6.0でWindows10の設定を行う

'Windows7でのシリアルマウス対策
dwRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\services\sermouse", 0, KEY_ALL_ACCESS, dwKeyHandle)
dwValue = 4
dwRet = RegSetValueEx(dwKeyHandle, "Start", 0, REG_DWORD, dwValue, Len(dwValue))
dwRet = RegCloseKey(dwKeyHandle)

'電源オプションを高パフォーマンスに変更
Shell "cmd.exe /c powercfg.exe -SETACTIVE 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", vbHide

'電源オプションのディスプレイの電源を切る時間を0（なし）に変更
Shell "cmd.exe /c powercfg -x -monitor-timeout-ac 0", vbHide

'電源オプションのUSBのセレクティブサスペンドを無効に変更
Shell "cmd.exe /c powercfg -setacvalueindex SCHEME_MIN 2a737441-1930-4402-8d77-b2bebba308a3 48e6b7a6-50f5-4782-a5d4-53bb8f07e226 0", vbHide