Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名
Dim l As Integer = System.Net.Dns.GetHostByName(HostName).AddressList.Length
Dim s As String = ""
Dim s1 As String = ""
For i As Integer=0 To l-1
    IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.getValue(i) \'获得本机的IP
    s &= IPAdress.Tostring & " | "
Next
Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
    If IsDBNull(mo.Item("macaddress")) = False Then
        If mo.Item("macaddress") <> "" AndAlso mo.Item("IPEnabled") Then
            s1 & =  mo.Item("macaddress") & " | "
        End If
    End If
Next

Dim dr As  DataRow
dr=DataTables("登录日志").AddNew
dr("用户名")= User.Name
dr("计算机名")= HostName
dr("登录时间")= Date.now
dr("ip")= s.trim("|")
dr("MAC")= s1.trim(",")
DataTables("登录日志").save