Newsgroup: it.comp.appl.access
Titolo: nomeutente sistema operativo

salve,
č possibile da access 2000 intercettare il nome utente che si č
autenticato sul sistema operativo in uso?
grazie anticipatamente
carmelo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

[cut]
Allora:
Crei un modulo e ci metti:
Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As 
OSVERSIONINFO) As Integer
         Public Type OSVERSIONINFO
            dwOSVersionInfoSize As Long
            dwMajorVersion As Long
            dwMinorVersion As Long
            dwBuildNumber As Long
            dwPlatformId As Long
            szCSDVersion As String * 128
         End Type
Public Function getVersion() As String
            Dim osinfo As OSVERSIONINFO
            Dim retvalue As Integer
            osinfo.dwOSVersionInfoSize = 148
            osinfo.szCSDVersion = Space$(128)
            retvalue = GetVersionExA(osinfo)
            With osinfo
            Select Case .dwPlatformId
               Case 1
                  If .dwMinorVersion = 0 Then
                     getVersion = "Windows 95"
                  ElseIf .dwMinorVersion = 10 Then
                     getVersion = "Windows 98"
                  ElseIf .dwMinorVersion = 90 Then
                     getVersion = "Windows ME"
                  End If
               Case 2
                  If .dwMajorVersion = 3 Then
                     getVersion = "Windows NT 3.51"
                  ElseIf .dwMajorVersion = 4 Then
                     getVersion = "Windows NT 4.0"
                  ElseIf .dwMajorVersion = 5 Then
                     getVersion = "Windows 2000"
                  End If
               Case Else
                  getVersion = "Failed"
            End Select
            End With
End Function
Poi ti fai la tua bella form e segui questi parametri che ti passo:
Private Sub cmd_UserOs_Click()
    Me.txt_os.Value = getVersion()
    Me.txt_utente = CurrentUser
End Sub
dove txt_os è la text box che riceverà il dato dell'os in uso e txt_utente 
quella dell'utente della macchina.
P.S.: comunque se fai delle ricerche su google trovi molte altre dritte 
altre a questa che ti stò passando.
Ciao e buona giornata!
-- 
**********
EmMeCi - Strano...Mavero
**********
Blog Personale: 
http://www.setfocus.it
 
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 autenticato sul sistema operativo in uso?
www.donkarl.com/it
 FAQ 2.24 Ottenere il nome utente/computer di rete
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + iscriviti alla CISA2, la seconda
Conferenza Italiana per Sviluppatori di Access, Paola, 17+18/6/2006 

 
www.donkarl.com/it
 FAQ 2.24 Ottenere il nome utente/computer di rete
mi resituisce errore di progetto o libreria non trovata sull'espressione:
strUserName = String$(254, 0)
quale libreria occorre caricare?
ciao e grazie
camelo


 quale libreria occorre caricare?
String$ è una funzione della libreria VBA che sempre dev'essere
presente. Per il codice di Dev non hai bisogno di una libreria
particolare. Forse hai un problema diversa nei riferimenti.
Guarda 
www.donkarl.com/it
 FAQ 7.1.


 Guarda 
www.donkarl.com/it
 FAQ 7.1.
risolto.
grazie ancora
