Microsoft 365 Initiales du Username

Claudy

XLDnaute Accro
Bonjour,
en VBA comment récupérer les initiales d'un username?
Merci,
Claudy
 

Staple1600

XLDnaute Barbatruc
Re

Ce qui donnerait
VB:
Sub testB_ok()
Dim tmp$
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
tmp = objComputer.UserName
Next
MsgBox "User Name: " & Split(tmp, "\")(1), vbExclamation, "I know who you are, Baby!"
End Sub

PS: je sais que ton code fonctionnera demain quand je serai au boulot ;)(car connecté sur un domaine)
 

Discussions similaires

Réponses
0
Affichages
131
Réponses
3
Affichages
306

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40