VBS: Найти цифры между 2-мя символами

Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent


strSourceFile = "E:\Песочница\0399\тест.txt"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
    With objFSO.OpenTextFile(strSourceFile)
        strContent = .ReadAll()
        .Close
    End With
    
    With WScript.CreateObject("VBScript.RegExp")
        .Pattern = "=M"
        
        If .Test(strContent) Then
            WScript.Echo "Nothing found between [=] and [M] in [" & strContent & "]."
        Else
            WScript.Echo "Somthing found between [=] and [M] or not found [=] and [M] in [" & strContent & "]."
        End If
    End With
Else
    WScript.Echo "Can't find source file [" & strSourceFile & "]."
    WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

(function() {
  var str1 = '****.=125M',
      str2 = '*********.=M',
      reg  = /(?!\**\=)\d+(?!=m)/i,
      res1 = reg.exec(str1),
      res2 = reg.exec(str2);
  WScript.echo("res1: " + res1 + "; res2: " + res2);
}());

(function() {
  with (new ActiveXObject('WScript.Shell')) {
    var top = ExpandEnvironmentStrings('%programfiles%\\1C\\'),
        log = top + 'log.txt',
        bat = top + 'bat.bat',
        str, raw;
    
    with (new ActiveXObject('Scripting.FileSystemObject')) {
      if (!FileExists(log)) {
        WScript.echo("Error: file does not exists.");
        WScript.Quit(1);
      }
      
      str = OpenTextFile(log);
      raw = str.ReadAll();
      str.Close();
    }
    
    if (/(?!\**\=)\d+(?!=m)/i.exec(raw) !== null) {
      //WScript.echo("Если есть цифра");
      Run(bat);
    }
    else {
      WScript.echo("Если нет цифр");
    }
  }
}());