主题：一个加密狗能否对多台电脑授权

一个加密狗能否对多台电脑授权，比如一个加密狗对局域网内几台电脑授权。如何实现？

如果你是想实现这种功能，就采用OpenQQ通信，打开的时候，连接服务器，看其机器码是否在授权的表了，如果在，就允许其登陆和打开项目，否则退出。

 

”打开的时候，连接服务器“

 

首次安装系统，局域网内，有办法自动搜索到服务器吗？

能否搜索局域网内的所有电脑，根据获取电脑名称与ip，用户直接选择既可？

ip地址如何获取呢

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

如何把ip地址分离出来，大红袍老师再辛苦一下，帮帮忙

Dim lst As New List(Of String)
Dim yh As String =strRst
Dim ary() As String = yh.Split(" ")   

lst.AddRange(ary)

For Each ls As String In lst
If ls.contains("192.") Then
msgbox(ls)
End If
Next

 

局域网内，是否都以192开头呢？