Récupérer le login NT d'un Utilisater à la place de son IP
JT
-
29 août 2001 à 16:03
ovincent Messages postés 13 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 19 décembre 2002 - 17 janv. 2002 à 14:50
ovincent Messages postés 13 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 19 décembre 2002 - 17 janv. 2002 à 14:50
A voir également:
- Récupérer le login NT d'un Utilisater à la place de son IP
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Tag ip session - Forum C / C++ / C++.NET
- Comment connaître et mémoriser l'adresse IP des visiteurs de mo, site ✓ - Forum PHP
- Authentification login/mot de passe java ✓ - Forum Java
- Ouverture auto d'une session - Forum PHP
4 réponses
Salut,
Essaye cela:
Public Declare Function WNetGetUser Lib "mpr" _
Alias "WNetGetUserA" _
(ByVal lpName As String, _
ByVal lpUserName As String, _
lpnLength As Long) _
As Long
Private Const NoError = 0
Public Function fGetLoginName() As String
' Buffer size for the return string.
Const lpnLength As Integer = 255
' Get return buffer space.
Dim Status As Integer
' For getting user information.
Dim lpName, lpUserName As String
' Assign the buffer size constant to lpUserName.
lpUserName = Space$(lpnLength + 1)
' Get the log-on name of the person using product.
Status = WNetGetUser(lpName, lpUserName, lpnLength)
' See whether error occurred.
If Status = NoError Then
' This line removes the null character. Strings in C are null-
' terminated. Strings in Visual Basic are not null-terminated.
' The null character must be removed from the C strings to be used
' cleanly in Visual Basic.
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
' An error occurred.
MsgBox "Unable to get the name."
End
End If
fGetLoginName = lpUserName
End Function
Tchao
Néo.Balastik
Essaye cela:
Public Declare Function WNetGetUser Lib "mpr" _
Alias "WNetGetUserA" _
(ByVal lpName As String, _
ByVal lpUserName As String, _
lpnLength As Long) _
As Long
Private Const NoError = 0
Public Function fGetLoginName() As String
' Buffer size for the return string.
Const lpnLength As Integer = 255
' Get return buffer space.
Dim Status As Integer
' For getting user information.
Dim lpName, lpUserName As String
' Assign the buffer size constant to lpUserName.
lpUserName = Space$(lpnLength + 1)
' Get the log-on name of the person using product.
Status = WNetGetUser(lpName, lpUserName, lpnLength)
' See whether error occurred.
If Status = NoError Then
' This line removes the null character. Strings in C are null-
' terminated. Strings in Visual Basic are not null-terminated.
' The null character must be removed from the C strings to be used
' cleanly in Visual Basic.
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
' An error occurred.
MsgBox "Unable to get the name."
End
End If
fGetLoginName = lpUserName
End Function
Tchao
Néo.Balastik
Salut,
Désolé, je n'avais pas vu que ce message était abordé dans la rubrique ASP.
Donc ce dont je t'ai donné ne peut fonctionner.
Sorry !
Néo.Balastik
Désolé, je n'avais pas vu que ce message était abordé dans la rubrique ASP.
Donc ce dont je t'ai donné ne peut fonctionner.
Sorry !
Néo.Balastik
ovincent
Messages postés
13
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
19 décembre 2002
17 janv. 2002 à 14:50
17 janv. 2002 à 14:50
slt
voici un autre exemple un peu plus court
esperant kil convienne à ta recherche :
<% response.write(Request.ServerVariables("LOGON_USER"))%>
voici un autre exemple un peu plus court
esperant kil convienne à ta recherche :
<% response.write(Request.ServerVariables("LOGON_USER"))%>