L'utilisateur de l'ordinateur
Résolu
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
12 mai 2005 à 23:13
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 13 mai 2005 à 00:01
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 13 mai 2005 à 00:01
A voir également:
- L'utilisateur de l'ordinateur
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Échec de l'ouverture de session de l'utilisateur ✓ - Forum SQL
- Aucune connexion n'a pu être établie car l'ordinateur cible l’a expressément refusée ✓ - Forum VB.NET
- Échec de l'ouverture de session de l'utilisateur'NomPC\UserName'. (.Net SqlClien - Forum SQL
- Problème de connexion à SQL Server 2008!!!!!!!!!!!!! - Forum SQL
1 réponse
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
13 mai 2005 à 00:01
13 mai 2005 à 00:01
Re
j'ai trouvé se code sur le forum :
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function UserName() As String
' Retourne le nom de l'utilisateur courant de l'ordinateur
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function
et ça fonctionne
j'ai trouvé se code sur le forum :
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function UserName() As String
' Retourne le nom de l'utilisateur courant de l'ordinateur
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function
et ça fonctionne
