WMI Changer User Description [Résolu]

Signaler
Messages postés
19
Date d'inscription
mercredi 18 juin 2008
Statut
Membre
Dernière intervention
28 juillet 2008
-
Messages postés
19
Date d'inscription
mercredi 18 juin 2008
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour,


Sur un Windows Server 2003, je cherche à changer, grâce à un script, la description de l'utilisateur Jean.


Première piste:

Set objUser = GetObject("WinNT://" &
Wscript.CreateObject("WScript.Network").ComputerName &
"/Jean" & ",User")

objUser.description = "Nouvelle description."

objUser.SetInfo


Mais cela ne fonctionne pas. Cela ne génère pas d'erreur mais ne change pas pour autant la description.


Seconde piste:


Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set objColUserAccounts = objWMIService.ExecQuery _

    (    "Select    * " & _

        "From    Win32_UserAccount " & _

        "Where        LocalAccount = True " & _

        "    and    Name = 'Jean'")


For Each objUserAccount In objColUserAccounts

    objUserAccount.Description = "Nouvelle description."

    objUserAccount.Put_

Next


Cela ne fonctionne bien entendu pas puisque, d'après le site:
http://msdn.microsoft.com/en-us/library/aa394507(VS.85).aspx l'attribut
"Description" est en read-only (lecture seule).


C'est du VBS que je fais, donc si vous connaissez une solution faisant
appel à une commande Windows, ce reste possible à faire et donc je
reste interressé.


Cordialement,


--

Mister Lapin Blanc

1 réponse

Messages postés
19
Date d'inscription
mercredi 18 juin 2008
Statut
Membre
Dernière intervention
28 juillet 2008

Bonjour,

Je viens de re-tester de manière atomique avec ce bout de code:

Set objUser = GetObject("WinNT://./Jean,user")
objUser.description = "Nouvelle description."
objUser.SetInfo

ça marche :-) C'est moi qui me suis trompé dans le reste de mon script en fait...

Cordialement,
--
Mister White Lapin