VBSCRIPT中如何取出本机IP地址？

Question

各位大侠：  请教VBSCRIPT中如何取出本机IP地址？
急!!!     在线等!!

Answer 1

在vbscript中加入如下代码：
Dim WS 
Set WS=CreateObject("MSWinsock.Winsock") 
IPAddress=WS.LocalIP 
MsgBox "Local IP=" & IPAddress 
刚刚发现!!!

Answer 2

用WSH。
<script language="VBScript" type="text/VBScript">
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "ipconfig >d:\11.txt"
Set fso = createobject("scripting.filesystemobject")
set ts=fso.opentextfile("d:\11.txt")
While Not ts.AtEndOfStream
   strLine = ts.ReadLine
   If InStr(strLine,"IP Address") Then
       n=InStr(strLine,":")
   strLine=Mid(strLine,n+1)
   document.write  strLine
   End If
Wend
</script>