OVH Cloud OVH Cloud

recherche du non de "login"

10 réponses
Avatar
lematou
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks

10 réponses

Avatar
Sweety
"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks




Il faut récupérer la valeur de la variable système "username" ou
"nwusername" si c'est un réseau Novell.
Ceci devrait le faire :

Set wshnetwork = WScript.CreateObject("WScript.Network")
user = wshnetwork.username

Michel

Avatar
lematou
Re bonjour,
en fait en cherchant j'ai trouvé ceci sur le site
C'est ici, dans une clé de type REG_BINARY (pour voir le nom "en clair" :
clic
droit -> Modifier) :

HKEY_CURRENT_USERSoftwareMicrosoftOffice10.0CommonUserInfoUserName

en fait moi c'est la valeur de "UseName" que je voudrais récupérer
merci a tous si vous avez une piste
Jacks


Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks




Avatar
Youky
moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks




Avatar
lematou
bonjour Youky
Oui mais là c'est le nom qui a été renseigné lors de l'instal de Xecell et
moi c'est le username que je cherche
parceque si toto est sur le poste à titi j'aurais comme réponse titi alors
que c'est toto que je voudrais récuperer
merci
tu as peut etre autre chose
j'ai trouvé un truc dans excelabo mais
c'est une fonction (elle fonctionne
mais je ne sais pas comment l'appeler dans ma macro

Merci pour ton aide
Jacks


moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks









Avatar
lematou
Bonjour Sweety
merci mais j'ai un message qui me dit:
erreur d'exécution 424
objet Requis

as tu une idée stp
Merci pour ton aide
jacks


"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks




Il faut récupérer la valeur de la variable système "username" ou
"nwusername" si c'est un réseau Novell.
Ceci devrait le faire :

Set wshnetwork = WScript.CreateObject("WScript.Network")
user = wshnetwork.username

Michel






Avatar
Youky
A copier dans un module, si tu veux l'appeler par une macro tu écris
simplement
lenom
je pense que c'est le nom que tu attends........

Youky

'Attribute VB_Name = "ComputerName1"
'Robert Dezan, mpfe

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As
Long

Sub lenom()
MsgBox ReturnComputerName
End Sub

Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetComputerName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnComputerName = UCase(Trim(tString))
End Function

"lematou" a écrit dans le message de
news:
bonjour Youky
Oui mais là c'est le nom qui a été renseigné lors de l'instal de Xecell et
moi c'est le username que je cherche
parceque si toto est sur le poste à titi j'aurais comme réponse titi alors
que c'est toto que je voudrais récuperer
merci
tu as peut etre autre chose
j'ai trouvé un truc dans excelabo mais
c'est une fonction (elle fonctionne
mais je ne sais pas comment l'appeler dans ma macro

Merci pour ton aide
Jacks


moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom
de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit
se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander
de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks











Avatar
Jacky
Bonsoir
Essaie:
Sub JJ()
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With
End Sub

Salutations
JJ

"lematou" a écrit dans le message de
news:
bonjour Youky
Oui mais là c'est le nom qui a été renseigné lors de l'instal de Xecell et
moi c'est le username que je cherche
parceque si toto est sur le poste à titi j'aurais comme réponse titi alors
que c'est toto que je voudrais récuperer
merci
tu as peut etre autre chose
j'ai trouvé un truc dans excelabo mais
c'est une fonction (elle fonctionne
mais je ne sais pas comment l'appeler dans ma macro

Merci pour ton aide
Jacks


moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le
nom de



connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun
doit se



connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander
de



renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks











Avatar
ThierryP
Bonjour lematou,

Ceci récupéré il y quelquestemps sur le forum :

Public utilisateur As String
Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub ControleUtilisateur()
Dim NomUser As String
NomUser = String(100, Chr$(0))
GetUserName NomUser, 100
utilisateur = Left$(NomUser, InStr(NomUser, Chr$(0)) - 1)
End Sub


Bonjour Sweety
merci mais j'ai un message qui me dit:
erreur d'exécution 424
objet Requis

as tu une idée stp
Merci pour ton aide
jacks


"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le nom de
connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun doit se
connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander de
renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks


Il faut récupérer la valeur de la variable système "username" ou

"nwusername" si c'est un réseau Novell.
Ceci devrait le faire :

Set wshnetwork = WScript.CreateObject("WScript.Network")
user = wshnetwork.username

Michel






--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline



Avatar
Youky
Trés trés bon,
bravo Jacky et en plus c'est simple.
Youky
"Jacky" a écrit dans le message de news:

Bonsoir
Essaie:
Sub JJ()
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With
End Sub

Salutations
JJ

"lematou" a écrit dans le message de
news:
bonjour Youky
Oui mais là c'est le nom qui a été renseigné lors de l'instal de Xecell
et
moi c'est le username que je cherche
parceque si toto est sur le poste à titi j'aurais comme réponse titi
alors
que c'est toto que je voudrais récuperer
merci
tu as peut etre autre chose
j'ai trouvé un truc dans excelabo mais
c'est une fonction (elle fonctionne
mais je ne sais pas comment l'appeler dans ma macro

Merci pour ton aide
Jacks


moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message
de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le
nom de



connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun
doit se



connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui
demander
de



renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks















Avatar
lematou
Bonsoir,
un grand merci à vous tous
grace à votre aide et votre sens du partage i l est agréable d'évoluer dans
ce monde pas toujours évident surtout quand on n'est pas né la dedans comme
moi.
encore MERCI !
Jacks


Bonsoir
Essaie:
Sub JJ()
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With
End Sub

Salutations
JJ

"lematou" a écrit dans le message de
news:
bonjour Youky
Oui mais là c'est le nom qui a été renseigné lors de l'instal de Xecell et
moi c'est le username que je cherche
parceque si toto est sur le poste à titi j'aurais comme réponse titi alors
que c'est toto que je voudrais récuperer
merci
tu as peut etre autre chose
j'ai trouvé un truc dans excelabo mais
c'est une fonction (elle fonctionne
mais je ne sais pas comment l'appeler dans ma macro

Merci pour ton aide
Jacks


moi mon nom je l'ai par là......
MsgBox Application.UserName
Youky

"lematou" a écrit dans le message de
news:
Bonjour
via une macro vba est il possible de récupérer de manière simple le
nom de



connexion sur un poste de travail?
dans une entrprise tous les postes sont en réseau (domaine) chacun
doit se



connecter via (un login qui est en fait son nom utilisateur)
ex: Mr TOTO Yves à comme login "totoy"
et donc mois je voudrais récupérer celuici pour éviter de lui demander
de



renseigner ce champ.
a votre avis est ce du domaine de l'envisageable ?

Merci beaucoup
jacks