vbscript - 列表分隔符脚本

Question

如何从命令行更改列表分隔符？

通常我必须在以下位置编辑一个字段:控制面板 → 更改键盘或其他输入法 → 其他设置

我很想创建一个 VBScript，我单击它会自动从 , 更改为 ;，然后再返回另一个。

Answer 1

一个脚本就足够了。该设置存储在注册表值 HKCU\ControlPanel\International\sList 中，可以通过如下方式切换:

Set sh = CreateObject("WScript.Shell")

path = "HKCU\Control Panel\International\sList"

Set separator = CreateObject("Scripting.Dictionary")
separator.Add True , ";"
separator.Add False, ","

sh.RegWrite path, separator(sh.RegRead(path) = ","), "REG_SZ"