ITPub博客

首页 > Linux操作系统 > Linux操作系统 > asp获得远程计算机名

asp获得远程计算机名

原创 Linux操作系统 作者:lyingx03 时间:2009-02-03 10:24:44 0 删除 编辑
ASP获取远程计算机名
一:您可以使用ASP的Request对象的方法ServerVariables方法得到客户机的机器名,如下:
远程客户机名<%=Request.servervariables("REMOTE_HOST")%>

一般情况下,考虑到网络性能,Request.servervariables("REMOTE_HOST")返回客户的IP地址。您可以改变IIS的metabase的设定,允许IIS根据客户的IP地址查询用户的机器名。
您可以改变IIS的metabase的相关设定有两种方法:
1.在Asp中用代码设定
<%
   Dim oIIS
   Dim vEnableRevDNS
   Dim vDisableRevDNS
   vEnableRevDNS = 1
   vDisableRevDNS = 0
   Set IIS = GetObject("IIS://localhost/w3svc")
   oIIS.Put "EnableReverseDNS", vEnableRevDNS
   oIIS.SetInfo
   Set IIS = Nothing
   %>

2. 运行命令行:cscript. C:\Inetpub\AdminScripts\adsutil.vbs set /w3svc/EnableReverseDNS "TRUE"
此时,Request.servervariables("REMOTE_HOST")返回客户的机器名。
所需的脚本文件adsutil.vbs及详细信息请参考以下链接:
HOWTO: Configure REMOTE_HOST to Perform. Reverse DNS
http://support.microsoft.com/support/kb/articles/q245/5/74.asp
 
 
注:
  此方法得到远程用户的IP
 
 
二:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%  
strIP = Request.ServerVariables("REMOTE_ADDR")  
strHost = Request.ServerVariables("REMOTE_HOST")  
Set net = Server.CreateObject("wscript.network")  
Set sh = Server.CreateObject("wscript.shell")  
sh.run "%comspec% /c nbtstat -A " & strIP & " 〉 d:\wwwtemp\" & strIP & ".txt",0,true  
sh.run "%comspec% /c ping -a " & strIP & " 〉 d:\wwwtemp\" & strIP & "ping.txt",0,true  
Set sh = nothing  
'分析ping命令结果获取计算机名  
Function GetComputerName(strIP)  
set fso=CreateObject("scripting.filesystemobject")  
set ts=fso.opentextfile("d:\wwwtemp\" & strIP & "ping.txt")  
computername=null  
do while not ts.AtEndOfStream  
data = ucase(trim(ts.readline))  
if instr(data,"[") then  
computername=trim(split(data,"[")(0))  
computername=trim(replace(computername,"PINGING",""))  
exit do  
end if  
loop  
GetComputerName=computername  
End Function  
'分析nbtstat命令结果获取MAC地址  
Function GetMACAddress(strIP)  
Set fso = createobject("scripting.filesystemobject")  
Set ts = fso.opentextfile("d:\wwwtemp\" & strIP & ".txt")  
macaddress = null  
Do While Not ts.AtEndOfStream  
data = ucase(trim(ts.readline))  
If instr(data,"MAC ADDRESS") Then  
macaddress = trim(split(data,"=")(1))  
Exit Do  
End If  
loop  
GetMACAddress = macaddress  
End Function   
%>
 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/12819884/viewspace-545113/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 制做跳转页面
请登录后发表评论 登录
全部评论

注册时间:2008-10-29

  • 博文量
    10
  • 访问量
    76337