如何获得当前IP（可能是无线），DNS，子网掩码(30分)

最好通过API级得到。

下面是用VBScript操纵WMI对象提取网卡信息的代码，稍加修改就能达到您的目的。<br><br>Set objWMILocator = CreateObject(&quot;WbemScripting.SWbemLocator&quot<br>Set objWMIService = objWMILocator.ConnectServer<br>On Error Resume Next<br>Set colItems = objWMIService.ExecQuery(&quot;Select * from Win32_NetworkAdapterConfiguration where IPEnabled=true&quot;,,48)<br>N=1<br>For Each objItem in colItems<br> &nbsp;WITH objItem<br> &nbsp; &nbsp;if .MACAddress&lt;&gt;&quot;&quot; then<br> &nbsp; &nbsp; &nbsp;Call WriteIndexValue(&quot;NetworkCard&quot;,N,.Description)<br> &nbsp; &nbsp; &nbsp;Call WriteIndexValue(&quot;MAC&quot;,N,Replace(CStr(.MACAddress),&quot;:&quot;,&quot;-&quot)<br> &nbsp; &nbsp; &nbsp;Call WriteIndexValue(&quot;IP&quot;,N,.IPAddress(0))<br> &nbsp; &nbsp; &nbsp;N=N+1<br> &nbsp; &nbsp;end if<br> &nbsp;END WITH<br>Next<br>'WriteIndexValue 是一个输出函数，可以自行实现

接受答案了.