Trouver le user-id de l'utilisateur
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
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci spécifié.&errorcode=4 - Forum C# / .NET
- Exception asp.net - Forum ASP.NET
- Problème avec web config - Forum ASP.NET
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Ne trouve pas l'erreur de mon code.. help ✓ - Forum Javascript / DHTML
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.