strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where LocalAccount = True And Name
= '
NOMUTILISATEUR'")
For Each objAccount in colAccounts
objAccount.Rename "
NouveauNom"
Next
