MAC ADDRESS

Citação:

:

Primeiramente identifique o Mac de cada Maquina, tem exemplos por ai, se não achar eu posto um.
Depois cadastre o macadress de cada maquina em BD, depois na tela de login consulte esse cadastro e valide, de acordo com o Mac da maquina que esta tentando logar..

Citação:

Certo, como identificar eu tenho... falta o resto, se pudesse me ajudar com o code ficaria grato.

Obrigado mesmo assim.

[ô] http://www.thescarms.com/dotnet/WMI.aspx
[ô] http://msdn.microsoft.com/pt-br/library/system.management.managementobjectsearcher(v=vs.110).aspx
[ô]
[ô] Requer adicionar a referência para [Ô]System.Management.dll[Ô]
[ô]
Imports System.Management

Public Class frmMacAddress

    Public Function MacAddress() As String

        Try
            Dim strMACAddress As String = [Ô][Ô]
            [ô]
            [ô] Criar a consulta, em sintaxe SQL, para recuperar as propriedades do 
            [ô]adaptador da rede ativa.
            [ô]
            Dim strQuery As String = _
                [Ô]SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True[Ô]
            [ô]
            [ô] Criar um objeto de passagem ManagementObjectSearcher na consulta para ser executado.
            [ô]
            Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)

            [ô]
            [ô] Criar um ManagementObjectCollection atribuindo-lhe os resultados da consulta.
            [ô]
            Dim queryCollection As ManagementObjectCollection = query.Get()

            [ô]
            [ô] Loop através dos resultados para extrair o MAC Address.
            [ô]
            Dim mo As ManagementObject

            For Each mo In queryCollection
                strMACAddress = mo([Ô]MacAddress[Ô]).ToString().Replace([Ô]:[Ô], [Ô][Ô])
                Exit For
            Next

            Return strMACAddress

        Catch ex As Exception
            Return [Ô][Ô]
        End Try

    End Function

    Private Sub frmMacAddress_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show(MacAddress)
    End Sub

End Class