Trouver le user-id de l'utilisateur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 333 fois - Téléchargée 36 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
- Trouver le user-id de l'utilisateur
- 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)
- Trouver l'utilisateur loggé sous windows nt - Codes sources - Visual Basic / VB.NET (Système)
Commentaires
thx
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
Gratz ;)
+²
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.