User name da computer name

Question

Salve,

Mi piacerebbe sapere se c'è la possibilità di conoscere il nome utente a partire dal nome computer via VBA.

Nel file laccdb, posso avere il nome computer, ma vorrei sapere se posso risalire anche al nome utente collegato per poter riconoscere chi sta usanto l'applicazione.

Naturalmente potrei scrivere il nome utente in una tabella quando apro l'applicazione, ma dato che gestisco una 50ina di applicazioni, non vorrei modificarle tutte. Vorrei fare qualcosa che mi permetta di farlo a richiesta e dall'esterno.

Ho visto che ci sono in vendita delle applicazioni (per esempio su fmsinc.com), ma ho il sospetto che siano state fatte con .Net e non con Access.

Grazie.

Answer 1

ciao Francesco.

non mi è chiarissimo il tuo scenario soprattutto quanto dici dall'esterno..., ma provo a risponderti.

allora per l'utente collegato credo ti basti :

Environ("username")

per quanto al nome del computer devi ricorrere alle API.

Non credo che il nome del computer ed il nome dell'utente connesso al DB siano rilevabili uno dall'altro, ma attendo volentieri smentite, come per l'utente loggato in Windows.

prova a fare in test, copia questo codice in un maschera.

inserisci le textboxes che vedi richiamate nel codice e i commandButton che vedi richiamati nel codice, con lo stesso nome.

Fai girare il codice e vedi cosa viene scritto nelle textboxes.

ho inserito anche il nome dell'utente loggato in Windows che non centra nulla con quello loggato al DB.

Ciao, Sandro.

Option Compare Database

Option Explicit

Private Declare PtrSafe Function apiGetUserName _

    Lib "Advapi32" _

    Alias "GetUserNameA" ( _

    ByVal Buffer As String, _

    BufferSize As Long _

    ) As Long

Private Declare PtrSafe Function apiGetComputerName _

    Lib "Kernel32" _

    Alias "GetComputerNameA" ( _

    ByVal Buffer As String, _

    BufferSize As Long _

    ) As Long

Private Function mGetUserName() As String

    Dim UserName As String * 255

    Dim NameSize As Long

    Dim RetVal As Long

    NameSize = Len(UserName)

    RetVal = apiGetUserName(UserName, NameSize)

    mGetUserName = Left(UserName, NameSize - 1)

    End Function

Private Function mGetComputerName() As String

    Dim ComputerName As String * 255

    Dim NameSize As Long

    Dim RetVal As Long

    NameSize = Len(ComputerName)

    RetVal = apiGetComputerName(ComputerName, NameSize)

    If RetVal > 0 Then

      mGetComputerName = Left$(ComputerName, NameSize)

    Else

      mGetComputerName = vbNullString

    End If

End Function

Private Sub cmdComputerName_Click()

  txtGetComputerName = mGetComputerName()

End Sub

Private Sub cmdUserDBname_Click()

Me.loggedUSer = Environ("username")

End Sub

Private Sub cmdUserName_Click()

txtGetUserName = mGetUserName()

End Sub