Trouver le user-id de l'utilisateur
1/5 (4 avis)
Snippet vu 8 601 fois - Téléchargée 38 fois
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...)
Exemple d'utilisation :
If GetUser = "CM3" Then
...
Else
...
End If
Trèèès simple !
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
- Getusernamea
- User identifier - Meilleures réponses
- ASP / ASP.NET : Generateur user id - CodeS SourceS - Guide
- Trouver le prochain id de libre. - Codes sources - PHP (Base de données)
- User ID perdu ✓ - Forum - Visual Basic 6
- Trouver le nom de d'utilisateur connecte sur le pc - Codes sources - Visual Basic / VB.NET (Système)
- Visual Basic / VB.NET : Trouver l'utilisateur loggé sous windows nt - CodeS SourceS - Guide
15 oct. 2009 à 09:15
thx
22 mai 2003 à 12:25
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
21 mai 2003 à 16:24
Gratz ;)
21 mai 2003 à 13:08
+²
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.