Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 61
Благодарности: 10

Профиль | Отправить PM | Цитировать


@Iska наскоро сделано было

Код: Выделить весь код
' origin: https://www.tenforums.com/tutorials/94146-enable-disable-legacy-console-mode-all-consoles-windows-10-a.html#option2
' see also: https://stackoverflow.com/questions/8539821/how-to-get-reg-strvalue-from-hkcu-using-vbscript
Option Explicit

Const bDebug = false

Const HKEY_CURRENT_USER = &H80000001

Dim strComputer: strComputer = "."

Dim myRegExp: Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "^10\..*"
	
Dim objWMIService: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Dim objOperatingSystems: Set objOperatingSystems = objWMIService.ExecQuery ("select * from Win32_OperatingSystem")
Dim objOperatingSystem
For Each objOperatingSystem in objOperatingSystems
  if bDebug then
    Wscript.echo objOperatingSystem.Caption & " " & objOperatingSystem.Version, 0 + 32,"Window Version"
  end if
  if myRegExp.Test(objOperatingSystem.Version) then
    ' Enable Use Legacy Console in Windows 10
    if bDebug then
      Wscript.echo "Will need to Enable Use Legacy Console"
    end if

    Dim objStdRegProv: Set objStdRegProv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

    Dim strKeyPath: strKeyPath = "Console"
    Dim strValueName: strValueName = "ForceV2"
    Dim strValue
    objStdRegProv.GetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
    if strValue <> 0 then
      objStdRegProv.SetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,0
	  if bDebug then
        Wscript.echo "Enabled Use Legacy Console in Windows 10"
      end if
    else
	  if bDebug then
        Wscript.echo "Use Legacy Console  is already Enabled"
      end If
    end if
  end if
Next

Отправлено: 16:23, 17-05-2019 | #26