VBScript—；按regexp从页面源剪切子字符串

我得到了一个页面代码，其中包括如下内容：

 marker.server = '81.30.178.138';
 marker.number = '001-999-141';
 marker.token = 'b402e62ca6934e00919045e1da2f0fb9';

有没有一种方法可以将IP和令牌切割成两个字符串变量，通过相同的中间对象——marker.number找到它们？

---

我在VBS和它的regexp方面都不好。。。请提供帮助。

如果您想提取IP地址，请查看以下代码：

Option Explicit
Dim Title,Data
Title = "IP Public Adress"
Data = "marker.server = '81.30.178.138';"&_
"marker.number = '001-999-141';"&_
"marker.token = 'b402e62ca6934e00919045e1da2f0fb9';"

MsgBox "My IP Public Adress is : " & vbCr & Extract_IP_Public(Data),64,Title
'**************************************************************
Function Extract_IP_Public(Data)
    Dim objRegex,Match,Matches
    Set objRegex = new RegExp
    objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b"
    objRegex.Global = False
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    For Each Match in Matches   
        Extract_IP_Public = Match.Value
    Next
End Function
'**************************************************************

---

您的意思是只想提取IP地址吗