VBS中怎么获取外网IP-创新互联

这篇文章给大家介绍VBS中怎么获取外网IP，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

公司专注于为企业提供成都网站建设、成都做网站、微信公众号开发、商城网站开发，小程序制作，软件按需策划设计等一站式互联网企业服务。凭借多年丰富的经验，我们会仔细了解各客户的需求而做出多方面的分析、设计、整合，为客户设计出具风格及创意性的商业解决方案，创新互联更提供一系列网站制作和网站推广的服务。

代码如下:

set oDOM = WScript.GetObject("/tupian/20230522/ i=1 to 10
   if oDOM.readyState = "complete" then
      flag=1
      exit for
   end if
   WScript.sleep 500
next
if flag=0 then
    WScript.Echo "timeout ..."
    wscript.quit
end if
s=oDOM.documentElement.innerText
Set Re = New RegExp
Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in Re.Execute(s)
     res=r
     exit for
Next
WScript.Echo "IPAddress: " & res

关于VBS中怎么获取外网IP就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

当前标题：VBS中怎么获取外网IP-创新互联
分享链接：http://cdkjz.cn/article/ijhgd.html