merci krolours1, tu as raison!
ca marche nickel! :)
NoBlue
peut etre, moi ca donne le login de la personne qui se connecte sous une machine NT après pour novel je sais pas !
krolours1
Ce serait pas plutot WNetGetUser ?? Ca marche chez moi (novell)
NoBlue
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 :)
swing
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) ?
NoBlue
tu parle de quel solution ?
MsgBox Environ("UserName" )
je sais pas si sous vb(de base) il y a la fonction environ ?
swing
ça marche chez vous?
car chez moi ni l'un ni l'autre ne fonctionne :(
NoBlue
Beaucoup plus simple :
environ(name) => te donne le login NTss (je sais pas si ça marche sous 95/98)
karlkox
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
swing
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
