Récupérer le login user name [VB/API] - Programmation
Marsh Posté le 22-01-2001 à 05:16:19
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Function UtilisateurReseau() As String
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
If strUserName <> "" Then
UtilisateurReseau = strUserName
ssssElse
UtilisateurReseau = ""
End If
End Function
Marsh Posté le 22-01-2001 à 08:22:16
Beaucoup plus simple :
environ(name) => te donne le login NTss
(je sais pas si ça marche sous 95/98)
Marsh Posté le 22-01-2001 à 09:05:09
ça marche chez vous?
car chez moi ni l'un ni l'autre ne fonctionne
Marsh Posté le 22-01-2001 à 09:10:34
tu parle de quel solution ?
MsgBox Environ("UserName" )
je sais pas si sous vb(de base) il y a la fonction environ ?
Marsh Posté le 22-01-2001 à 09:14:26
oui je parle de la tienne et de celle de KarLKoX.
elle me retourne toujours une valeur vide.
j'ai la version VB entreprise et je suis sous w98.
c'est Environ("UserName" ) ou environ(name) ?
Marsh Posté le 22-01-2001 à 09:20:18
Environ("UserName" ) marche parfaitement sous NT car ça va lire la variable d'environnement.
maitenant sous 98 je sais pas si ça marche, mais je pense pas
la solution de KarLKoX ça doit etre pareil
teste sous 2000 la au mois tu te log
Marsh Posté le 22-01-2001 à 09:50:30
Ce serait pas plutot WNetGetUser ?? Ca marche chez moi (novell)
Marsh Posté le 22-01-2001 à 09:52:44
peut etre, moi ca donne le login de la personne qui se connecte sous une machine NT après pour novel je sais pas !
Marsh Posté le 19-01-2001 à 16:34:46
Est-il possible de récupérer le nom de celui qui s'est loggué sous win95/98/2k dans un réseau Microsoft et/ou Novell ?
J'ai essayé avec ça, mais ça ne marche pas:
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
ss "GetUserNameA" (ByVal lpBuffer As String, _
ss ByVal nSize As Long) As Long
Function UtilisateurReseau() As String
ssDim strTemp As String * 200
ssDim lngSize As Long
ssDim lngResultat As Long
sslgnSize = 199
sslngResultat = GetUserName(strTemp, lngSize)
ssIf lngResultat <> 0 Then
ssssssUtilisateurReseau = Left$(strTemp, lngSize)
ssssElse
ssssssUtilisateurReseau = ""
ss End If
End Function
Debug.Print UtilisateurReseau
Voilà, ma chaine est vide?!?!