Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1871 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB6 recuperer le nom dutilisateur sous windows

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VB6 recuperer le nom dutilisateur sous windows

n°302750
rik
Posté le 05-02-2003 à 22:34:43  profilanswer
 

comment recuperer le nom dutilisateur connecté sous nimporte kel windows ?
 
merci


Message édité par rik le 05-02-2003 à 22:35:55
mood
Publicité
Posté le 05-02-2003 à 22:34:43  profilanswer
 

n°302761
drasche
Posté le 05-02-2003 à 22:39:32  profilanswer
 


Private Const UNLEN As Integer = 256
Private Declare Function GetUserNameEx _
                Lib "advapi32.dll" _
                Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Function GetUserName() As String
    Dim strUserName         As String
    Dim lSize               As Long
    Dim lValue              As Long
 
    ' Get Username
    lSize = UNLEN
 
    strUserName = Space$(UNLEN)
    lValue = GetUserNameEx(strUserName, lSize)
    If lValue > 0 Then
        GetUserName = Mid$(strUserName, 1, lSize - 1)
    Else
        GetUserName = ""
    End If
End Function


 
j'ai pas compilé mais bon ça doit marcher ;)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°302764
rik
Posté le 05-02-2003 à 22:42:15  profilanswer
 

merci ! ton code marche

n°302917
[SDF]Poire
Vive Grumly
Posté le 06-02-2003 à 09:50:49  profilanswer
 

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'Pour obtenir le nom de l'ordinateur
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'Pour obtenir le nom de l'utilisateur
 
Public Function Get_UserName() As String
'Retourne le nom de l'utilisateur
 
Dim StrUser As String
Dim LTemp As Long
 
    StrUser = String$(255, vbNullChar)
    LTemp = GetUserName(StrUser, Len(StrUser))
    LTemp = InStr(StrUser, Chr$(0)) - 1
    Get_UserName = Mid(StrUser, 1, LTemp)
         
End Function
 
Public Function Get_ComputerName() As String
'Retourne le nom de l'utilisateur
 
Dim StrComputer As String
Dim LTemp As Long
 
    StrComputer = String$(255, vbNullChar)
    LTemp = GetComputerName(StrComputer, Len(StrComputer))
    LTemp = InStr(StrComputer, Chr$(0)) - 1
    Get_ComputerName = Mid(StrComputer, 1, LTemp)
         
End Function


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB6 recuperer le nom dutilisateur sous windows

 

Sujets relatifs
Piloter Excel par VB6 et bloquer l'accès à la feuille durant l'éxec.comment recuperer la date de modif d'un fichier ?
Comment désactiver l'apparition d'une fenêtre dos sous WIndows ?question : recuperer une valeur à l'ecran ?
[JS] récupérer mon adresse ipAppel système sous Windows : pb de guillemets
VB6 et objets graphiques en 3dComment savoir si un control a le focus en VB6
[JAVA] - Récupérer le contenu d'un champ 
Plus de sujets relatifs à : VB6 recuperer le nom dutilisateur sous windows


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR