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?!?!

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

Beaucoup plus simple :
environ(name) => te donne le login NTss
(je sais pas si ça marche sous 95/98)

ça marche chez vous?
car chez moi ni l'un ni l'autre ne fonctionne

tu parle de quel solution ?
MsgBox Environ("UserName" )
 
je sais pas si sous vb(de base) il y a la fonction environ ?

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) ?

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

Ce serait pas plutot WNetGetUser ?? Ca marche chez moi (novell)

peut etre, moi ca donne le login de la personne qui se connecte sous une machine NT après pour novel je sais pas !

merci krolours1, tu as raison!
ca marche nickel!