运行环境、NT（SERVER、WORKSTATION）、W2K
服务器上需要安装WSH2.0或更高版本
如果您的系统当前没有安装WSH2.0，您可以从以下地址下载它
它包含WSH2.0
下面是源代码
%@Language='VBScript'%%OptionExplicit%%IfRequest.Form('frmHost')=''Then'设置初始值strIP=Request.ServerVariables('REMOTE_ADDR')ElsestrIP=Request.Form('frmHost')EndIf%htmlheadtitleDNSLookup[v1.0/title/headbodybgcolor='#FFFFFF'formMethod='POST'Name='frmRDNS'labelfor='frmHost'uHost:/u/labelinputtype='text'name='frmHost'ID='frmHost'值='%=strIP%'inputtype='button'name='btnSubmit'ID='btnSubmit'value='Lookup'onClick='document.frmRDNS.submit()'/formfontface='arial'size='2'color='#'%rMethod=uCase(Request.ServerVariables('REQUEST_METHOD'))IfrMethod='POST'Then'LookupHoststrReturn=nsLookup(strIP)IfstrReturn''ThenResponse.WritestrReturnElse'ALameHostisanyValidHostthatDNSCannotResolve'SeeInterNicforDetailsResponse.Write'bLameHost-CouldNotResolveDNSFor'_str知识产权'/bbr'EndIfEndIfFunctionNSlookup(strHost)'CreateShellObjectSetoShell=Server.CreateObject('Wscript.Shell')'RunNSLookupviaCommandPrompt'DumpResultsintoatemptextfileoShell.Run'%ComSpec%/cnslookup'strHost_'C:\'strHost'.txt',0,True'打开tempText文件并读出DataSetoFS=Server.CreateObject('Scripting.FileSystemObject')SetoTF=oFS.OpenTextFile('C:\'strHost'.txt')tempData=NullData=Nulli=0DoWhileNotoTF.AtEndOfStreamData=Trim(oTF.Readline)Ifi2Then'不想显示本地DNSInfo。tempData=tempDataData'BR'EndIfi=(i+1)Loop'CloseitoTF.Close'DeleteItoFS.DeleteFile'C:\'strHost'.txt'SetoFS=NothingnsLookup=tempDataEndFunction%/font/body/html代码很简单，我不多说了好了，如果您对WSH有任何疑问，请下载WSH的电子文档中文版，可以在CHINAASP下载区获取。
希望对您有帮助。
