mingjianko

用第5个代码，获取外网IP后，保存在TXT文件里，应该改什么地方

Dim objDOM, Url, Text, Ip
Url = "http://iframe.ip138.com/ic.asp"
Set objDOM = WScript.GetObject(Url)
Do Until objDOM.ReadyState = "complete"
  WScript.Sleep 200
Loop
Text = objDOM.DocumentElement.InnerText
Set objDOM = Nothing
Ip = Split(Split(Text, "[")(1), "]")(0)
WScript.Echo Ip