[问题求助] VBS如何获取外网IP/公网IP？

alpha

要实现的功能：运行vbs后，检测外网IP，然后用msgbox提示：“您的外网IP为：***.***.***.***”，然后将IP地址复制到粘帖版中！

[ 本帖最后由 alpha 于 2010-12-20 23:51 编辑 ]

alpha

没人知道么？？？？？

alpha

@echo off
(echo Set oDOM=WScript.GetObject("http://ip.chinaz.com/getip.aspx"^)
echo Do Until oDOM.readyState="complete"
echo WScript.sleep 10
echo Loop
echo WScript.echo split(oDOM.documentElement.outerText,"'"^)(1^))>Getip.vbs
for /f "delims=" %%i in ('cscript //nologo Getip.vbs') do echo,您的外网IP为:%%i&del Getip.vbs&pause&exit
复制代码

这是我目前的bat代码，如何只将IP地址复制到粘帖版中？并且msgbox提示。（最好能够简化一下代码）

alpha

这是我目前的vbs脚本：

Set oDOM=WScript.GetObject("http://1212.ip138.com/ic.asp")
Do Until oDOM.readyState="complete"
WScript.sleep 200
Loop
str = Split(oDOM.documentElement.outerText,"[")
Set oDOM=nothing
ip = Split(str(1),"]")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", ip(0)
msgbox "IP: [" & ip(0) & "] 已经复制到剪贴板！",64,"OK！"
复制代码

请问如何关闭上述代码中打开IE的功能？

alpha

没人知道么？顶起来！