运行环境，NT（SERVER、WORKSTATION）、W2K
服务器上需要安装WSH2.0或者更高版本
如果您的系统目前没有安装WSH2.0，您可以从以下这个地址去下载它
http://Spec%/cnslookup"&strHost_
&">C:\"&strHost&".txt",0,True
'OpenthetempTextFileandReadouttheData
SetoFS=Server.CreateObject("Scripting.FileSystemObject")
SetoTF=oFS.OpenTextFile("C:\"&strHost&".txt")
tempData=Null
Data=Null
i=0
DoWhileNotoTF.AtEndOfStream
Data=Trim(oTF.Readline)
Ifi>2Then'Don'twanttodisplaylocalDNSInfo.
tempData=tempData&Data&"<BR>"
EndIf
i=(i+1)
Loop
'Closeit
oTF.Close
'DeleteIt
oFS.DeleteFile"C:\"&strHost&".txt"
SetoFS=Nothing
nsLookup=tempData
EndFunction
%>
</font>
</body>
</html>
代码很简单，我不多说了，如果您对WSH有什么疑问的话，请去下载WSH的电子文档中文版本的，CHINAASP下载区就有的吧
希望能对你有所帮助。