1/5 (4 avis)
Snippet vu 8 601 fois - Téléchargée 38 fois
' à 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
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.