VBS obtains the implementation code of external network IP

set oDOM = ("//")
flag=0
for i=1 to 10
   if = "complete" then
      flag=1
      exit for
   end if
   500
next
if flag=0 then
    "timeout ..."
   
end if
s=
Set Re = New RegExp
="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in (s)
     res=r
     exit for
Next
"IPAddress: " & res