VBS : Récup Prénom

VBS : Récup Prénom - VB/VBA/VBS - Programmation

Marsh Posté le 25-05-2010 à 16:21:16    

Bonjour, je souhaite recupérer le nom et le prenom de l'utilisateur connecté. je sais récuperer le code utilisateur de connexion (NomUtilisateur=WshNetwork.Username)
mais le reste je ne sais pas  
une idée ?
merci

Reply

Marsh Posté le 25-05-2010 à 16:21:16   

Reply

Marsh Posté le 25-05-2010 à 21:18:13    

Bonsoir,
Je pense que ceci devrait t'aller (n'oublie pas de modifier tonDomaine dans le code) :
 

Code :
  1. Function getFullName(strDomain, strUserName)
  2.     Dim objUser
  3.     Set objUser = GetObject("WinNT://" & strDomain & "/" & strUserName)
  4.     getFullName = objUser.FullName
  5.     Set objUser = Nothing
  6. End Function
  8. Function getUserName()
  9.     Dim objWshNet
  10.     Set objWshNet = CreateObject("WScript.Network" )
  11.     getUserName = objWshNet.UserName
  12.     Set objWshNet = Nothing
  13. End Function
  15. MsgBox "Bonjour " & getFullName("tonDomaine",getUserName())


---------------
VB.NET is good ... VB6 is better !
Reply

Marsh Posté le 25-05-2010 à 22:23:20    

Respect et grand merci
maintenant je vais regarder la fonction FullName car le but et de creer un repertoire qui se nomme NOM.PRENOM
merci encore à toi

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed