dim a  as  object

set a =createobject(" ")
msgbox a.localip

[[it] 本帖最后由 西风独自凉 于 2008-10-23 15:12 编辑 [/it]]

只取到本地局域网的那个IP,对外网,拨号的产生的那个IP没取到.