[Yoshimura]

Iska, Я пробовал играться абсолютно разными значениями обоих этих параметров. указывал их всех от маленьких (1-10) до очень больших (999999) и никакого результата на размер окна они не имели.
Повторюсь изменение цвета и положения окна работает исправно. Так же работает изменение параметров ShowWindow = ... Разные параметры влияют на открытие этого окна как положено - свернутое, на весь экран и т.д. Но вот задание размера увы никак. При чем что интересно скорее всего размер задан абсолютно - на ноутбуке (1366х768) и на мониторе 1024х768 окно имеет одинаковый размер в пикселах. Субъективно по относительным размерам окна к экрану. Линейкой не мерял, но на глаз явно видно.

[icefalcon]

Извиняюсь на наглость, прошу добавить лог файл для каждого окна

[Iska]

icefalcon, что Вы подразумеваете под логом? Каким должно быть его содержимое?

[Serguei Kouzmine]

для изменения defaults на use legacy mode

Код:

' 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
Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

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

strKeyPath = "Console"
strValueName = "ForceV2"
oReg.GetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
Wscript.echo "ForceV2 = " & strValue

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
oReg.SetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,0

[Iska]

Serguei Kouzmine, зачем повторно пересоздавать oReg?!

[Serguei Kouzmine]

@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