regex - VBScript — Cut substring from page source by regexp -

i page code, (among other) consists of pieces this:

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

is there way cut ip , token 2 string vars, finding them identical middle thing - marker.number? i'm not neither in vbs nor in it's regexp things... please help.

if mean want extract ip adress, take @ code :

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 : " & 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)     each match in matches            extract_ip_public = match.value     next end function '**************************************************************