以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样限定不同的用户名称只能在限定的电脑(IP地址)使用？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65397)
--  作者：swagger
--  发布时间：2015/3/15 14:37:00
--  怎样限定不同的用户名称只能在限定的电脑(IP地址)使用？

如题
--  作者：有点甜
--  发布时间：2015/3/15 14:41:00
--  

1、在用户信息那里，加入电脑ip的信息；

 

2、获取当前电脑的ip跟用户信息的比较。

 

Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
OutPut.Show( HostName )  \'本机机器名 
OutPut.Show(IPAdress.ToString )  \'本机的IP
--  作者：swagger
--  发布时间：2015/6/27 18:00:00
--  
以下是引用有点甜在2015/3/15 14:41:00的发言：

1、在用户信息那里，加入电脑ip的信息；

 

2、获取当前电脑的ip跟用户信息的比较。

 

Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
OutPut.Show( HostName )  \'本机机器名 
OutPut.Show(IPAdress.ToString )  \'本机的IP

怎么在用户信息加入电脑ip？
--  作者：大红袍
--  发布时间：2015/6/28 10:03:00
--  

某行("电脑名称") = HostName

某行("电脑ip") = IPAdress.ToString