Smart Card in Microsoft Access 2013

Question

Buonasera,

vorrei sapere se è possibile integrare in un Database Access un lettore di smart card.

Il Database è provvisto di una maschera di Login che permette agli utenti di accedere al proprio account tramite Username e Password.

La maschera di Login, programmata in VBA, l'ho pensata come un'alternativa per un'eventuale utente non provvisto di  smart card per l'accesso. 

La mia idea è quella che all'avvio del Database il Computer verificasse l'eventuale presenza di una smart card e se risultasse valida eseguisse l'accesso. Se invece non fosse presente tramite un evento (VBA o Macro) aprisse la maschera di accesso manuale.

Quindi:

Smart Card (Sì) ---> Autenticazione ---> Accesso avvenuto 

Smart Card (No) ---> Login Manuale ---> Autenticazione ---> Accesso avvenuto 

Spero in una concreta risoluzione a quando scritto,

Grazie Daniele

Answer 1

Ciao Mancini,

grazie per la risposta. Non ho specificato cosa metto nella Smart card perché non metto niente ma utilizzo una CRS con dei certificati già presenti all'interno (quelli per accedere ai servizi online).

Ma inserendo la tessera nel lettore non me la legge come unità esterna (o disco removibile).

Quindi il codice che mi hai scritto non può essere usato almeno che

provo a vedere se c'è un modo per vedere il nome e l'estensione del certificato in modo da provare ad utilizzare il tuo codice.

Spero che ci sia una soluzione...

Grazie mille Daniele

Answer 2

Se qualcuno ha già lavorato con questo sistema (Smart Card) sarebbe .......

SmartCard No,    Ma con lettori di codici a barre si   :)

Pero non ci hai spiegato nel dettaglio cosa metti nella SmartCard perLogare l'utente

Immaginiamo che ci metti un  file  .txt di nome LOOGINN.txt

e in questo file ci scrivi nella 1° riga il Id ( numerico ) dell'utente

Il 1° problema è che la SmartCard è una unita esterna e non sai a

priori se si trova alla lettera :A\ oppure :Z\

quindi devi fare un ciclo che verifica in tutte le unuta ( se presenti ) la presenza

del file LOOGINN.txt

Qui potresti riciclare la funzione sotto che ho fatto tempo fa per cercare

un lettore di codici a barre come unita esterna........

Public Function Unit() As String

' Trova la unita di percorso che contiene il file  "????:\PercorsoNellaCarta\LOOGINN.txt"

Dim x As Integer

On Error GoTo Gest52

    For x = 90 To 67 Step -1    ' sono i caratteri dalla Z alla A

        If Len(Dir(UCase(Chr(x)) & ":\PercorsoNellaCarta\LOOGINN.txt")) = 0 Then

            ' in caso di errore 52 questo è il Resume Next

        Else

            Unit = UCase(Chr(x))

            x = 10  ' arresta il ciclo appena trova

        End If

    Next

If Len(Unit) = 0 Then

    MsgBox "Non hai inseritola cata"

Else

    MsgBox "La unita di percorso è: " & Unit

End If

Exit Function

Gest52:

' l'errore 52 si verifica con la unita del CDRoom e se metto una

'     unita ubriaca come ad esempio "GH"

    If Err.Number = 52 Then

        Resume Next

    End If

End Function

Poi devi andare a leggere il file LOOGINN.txt ma lasciamolo al prossimo capitolo,

vediamo prima se la impostazione generale potrebbe "sposarsi" con la tua applicaione

Facci sapere 

PS: La funzione non la ho testata, ma solo CopIncollata  modificandola poi per eliminare quanto

non ti serve,  potrebbe darti dei problemi marginali

Answer 3

Se qualcuno ha già lavorato con questo sistema (Smart Card) sarebbe così gentile da mandarmi un modello del Database così da poter vedere come è fatto ed inserirlo nel mio Database?

Grazie Daniele

Answer 4

Ciao David,

grazie mille per la tempestiva risposta.

Dopo aver visionato il link che mi hai allegato (compresi tutti quelli contenuti nella pagina) non sono giunto a una soluzione. 

Grazie 

Daniele

Answer 5

Ciao  Daniele

prova a leggere questo articolo Can MS Access interface with Smart Cards?

Segui anche i link contenuti. 

David