Trouver le user-id de l'utilisateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 289 fois - Téléchargée 36 fois

Commenter

Contenu du snippet

Le bout de code ci-dessous appelle une API de Windows qui récupère le user-ID de la personne connectée sur le pc (disposant de Windows NT, 2000 ou XP pro), et renvoie une chaîne de caractères "propre" (sans cactère de contrôle...)

Source / Exemple : 


' à mettre dans le module
Private Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

'Fonction à appeler
Function GetUser() As String

    Dim sUserNameBuff As String
    Dim x As String
    
    sUserNameBuff = Space(255)
    x = WNetGetUserA(vbNullString, sUserNameBuff, 255&)
    GetUser = UCase$(Trim(Left(sUserNameBuff, InStr(1, sUserNameBuff, Chr$(0)) - 1)))
    
End Function

Conclusion :


Exemple d'utilisation :

If GetUser = "CM3" Then
...
Else
...
End If

Trèèès simple !

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_dragonito
Messages postés
1
Date d'inscription
dimanche 6 février 2005
Statut
Membre
Dernière intervention
15 octobre 2009
 -
de la balle atomique... je cherchai exactement cela !
thx
Signaler
cs_sub-zero
Messages postés
98
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
 -
vi effectivement ms en général WNetGetUserA est utilisé pour connaitre le user ID d un poste du LAN, ms ca a lr de bien marcher en local. :)

pour info l API
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

marche de la mem facon et donner le mem résultat si tiu travaille localement :) @+++ bon coding
Signaler
vjeux
Messages postés
92
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
5 décembre 2003
 -
Marche Nickel !

Gratz ;)
Signaler
ICIoBRa
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
 -
Marshe ossi avec XP familiale :]
+²
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_WebSeb)