在VBS中设置注册表项

Question

所以我的问题开始于尝试清除cscript中的屏幕。我想制作一个时钟程序，但是我想要它，所以您无需设置注册表项即可使用它。

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "CONSOLE\VirtualTerminalLevel"
objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

现在，我认为这是设置注册表项的唯一方法。 （如果这有助于我尝试将CONSOLE \ VirtualTerminalLevel设置为dword = 00000001）