VBS 使用 RegEx 返回命令行返回的一部分

Question

我正在尝试通过 ssh 执行命令，仅获取返回命令的第一部分，并将其设置为要使用的变量。我正在尝试使用 RegExp，因为我只需要前 4 位数字，所以我使用模式代码“^\d{1,4}”，我可以通过此代码成功获得整个返回；

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec ("ssh -un -pw command")
      Do Until oExec.StdOut.AtEndOfStream
         ID = oExec.StdOut.ReadLine
      Loop
       WScript.Echo ID

但是现在，当我尝试使用 RegExp 和 echo 来查看是否得到我想要的内容时，我收到“类型不匹配”错误。

Set RegExp = New RegExp
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec ("ssh -un -pw command")
RegExp.Pattern = "^\d{1,4}"
      Do Until oExec.StdOut.AtEndOfStream
         ID = oExec.StdOut.ReadLine
          WScript.Echo RegExp.execute(ID)
      Loop

如果有人对代码有问题有任何煽动，请告诉我。如果您知道任何替代方案，我将不胜感激。使用 shell 脚本我可以得到我正在寻找的东西，但我需要在 Windows 上运行这个 VBS。这是 Shell 脚本（如果有人可以将其翻译为 VBS）。

.............for i in `command | sed ‘1d’ | awk ‘{print $1}’`..............

提前感谢任何帮助...我在这个问题上绞尽脑汁有一段时间了，然后精疲力竭。

Answer 1

您不能 .Echo 一个对象，例如从 .Execute 获得的匹配集合；访问其第一项的 .Value：

>> sInp = "1234xxx"
>> Set reHead = New RegExp
>> reHead.Pattern = "^\d{4}"
>> Set oMTS = reHead.Execute(sInp)
>> WScript.Echo oMTS(0).Value
>>
1234
>> WScript.Echo oMTS
>>
Error Number:       13
Error Description:  Type mismatch