大家好,下面我们来谈谈在集团内部的网络中如何限制用户自己不要乱改自己的ip地址呢,我通过设置网卡物理地址和ip地址的对应来实现,建两个基本的表,一个记录着正确的ip,mac关系,一个记录者不法分子的进入过程,当然这些是通过他们对内部网的访问来控制的,如果用户改了自己的ip,那么他就无法用内部的系统了。
获取的过程如下,对数据库的操作自己写了,strIP是ip,strMac是网卡物理地址
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\" & 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
ts.close
Set ts = nothing
fso.deletefile "c:\" & strIP & ".txt"
Set fso = nothing
GetMACAddress = macaddress
strMac = GetMACAddress