WMI nom long de l'user du domaine

Résolu
Signaler
Messages postés
2
Date d'inscription
mardi 13 mars 2012
Statut
Membre
Dernière intervention
17 avril 2012
-
Messages postés
2
Date d'inscription
mardi 13 mars 2012
Statut
Membre
Dernière intervention
17 avril 2012
-
Bonjour,

Voilà je bricole un peu en vb et je cherche à récupérer le nom de l'utilisateur du domaine logué sur le pc via WMI.

J'ai le bout de code suivant qui fonctionne, cependant ça va me chercher le nom long dans tout l'AD (+ de 3 minutes de recherche).

Y aurait il une solution plus rapide pour trouver le nom long.

Dim NomUtilisateurComplet As String = My.User.Name
Dim Selection = "Select * from Win32_UserAccount where name="
Dim Slash As Integer = NomUtilisateurComplet.LastIndexOf("")
Dim NomUtilisateur As String = NomUtilisateurComplet.Substring(Slash + 1)
Selection = Selection & Chr(34) & NomUtilisateur & Chr(34)
TextBox9.Text = NomUtilisateur
For Each Objet In GetObject("WinMgmts:").execQuery(Selection)
TextBox10.Text = Objet.fullname
Next

Merci

1 réponse

Messages postés
2
Date d'inscription
mardi 13 mars 2012
Statut
Membre
Dernière intervention
17 avril 2012

Bon j'ai trouvé .

Merci scriptomatic

' Login Utilisateur
TextBox9.Text = Environ("UserName")

' Nom long de l'utilisateur
Dim Nomlong As String
For Each Objet In GetObject("WinMgmts:").InstancesOf("Win32_NetworkLoginProfile")
Nomlong = Objet.FullName.ToString()
TextBox10.Text = Nomlong
Next