'##################################################################
'自定义DataGird分页显示代码
'DataGird绑定的显示 SqlAll显示的数据 LitPage 分页显示 CPage当前分页
'SqlAll() 1、全部数据的代码 2、当前的SQL 3、TName表名 4、主键
...
Function CareFGetMac() As String
Try
Dim Mac As String
Dim mc As ManagementClass
...
Dim StrHostName, IP As String
StrHostName = ""
' 首先得到本地机器的主机名称
StrHostName = Dns.GetHostName.ToString
...