Set WshShell = WScript.CreateObject("WScript.Shell") Set objWshShell = WScript.CreateObject("WScript.Shell") ' Английский в окне Logon язык по умолчанию работает после перезагрузки ОС p = "HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\" t = "REG_SZ" objWshShell.RegWrite p & "1", "00000409", t objWshShell.RegWrite p & "2", "00000419", t ' Английский после входа пользователя работает после перезагрузки ОС p = "HKEY_CURRENT_USER\Keyboard Layout\Preload\" t = "REG_SZ" objWshShell.RegWrite p & "1", "00000409", t objWshShell.RegWrite p & "2", "00000419", t ' В значении qml надо поставить реальный IP контроллера qml = "192.168.45.140" WshShell.Run "telnet "&qml& " 1001",5 WScript.Sleep 1000 WshShell.AppActivate "Telnet "&qml WshShell.SendKeys "open" WScript.Sleep 1000 WshShell.AppActivate "Telnet "&qml WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 WshShell.AppActivate "Telnet "&qml WshShell.SendKeys "reset" WshShell.AppActivate "Telnet "&qml WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 WshShell.AppActivate "Telnet "&qml WshShell.SendKeys "{ENTER}" WScript.Quit