使用VBScript在JSON文件上搜索和替换正则表达式

我对regex还很陌生，但一直在努力寻找搜索和替换JSON文件中的文本的方法。我有兴趣通过VBScript完成它，因为我的大多数脚本都已经用这种语言完成了

我有一个JSON文件名

site.JSON

“源”：{
“配置名称”：“站点名称”，
“名称”：“ABCTest”
}
“窗口”：{
“机器ID”：“15371-868-9808907-15424”
}

我正在尝试搜索

机器ID

，并在找到后替换其值，这样它将保留所有内容，但更改为：

。。。
“机器ID”：“123456”

---

然后将其保存到相同的文件名

site.json

此正则表达式可用于捕获组1中的机器ID：

"MachineSID" *: *"([\d-]+?)"

---

到目前为止您尝试了什么？根据什么规则

15371-868-9808907-15424

将减少到

123456

？