Commande regedit /s sous Vista fonctionne pas?

**Quicksilvain** · 10/02/2013, 16h54

Bonsoir a tous,

Je souhaiterais ajouter une clé dans le registre sous Vista avec la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wshell = CreateObject("WScript.Shell")
wshell.Run "Ma-clé.reg"

Cela fonctionne parfaitement mais lorsque je veux masquer les fenêtres de confirmation avec la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wshell = CreateObject("WScript.Shell")
wshell.Run "regedit /s Ma-clé.reg"

les fenêtres sont effectivement masquées mais la clé ne s'ajoute pas dans le registre..

Ps: sous XP cela fonctionne mais pas sous Vista.

**hackoofr** · 10/02/2013, 17h25

Peut-être à cause de L'UAC qui est encore activé. ou bien vous n'avez pas la permission d'exécuter le fichier VBS en tant qu'utilisateur normal avec des privilèges restreints.

L'UAC (User Account Control) est une nouvelle fonctionnalité dans Windows Vista, sa fonction est de contrôler l'installation et l'administration de l'ordinateur en demandant une augmentation de privilège. Seulement lorsque vous êtes administrateur de votre ordinateur et seul utilisateur, il peut être intéressant de pouvoir l'enlever. Pour se faire allez dans le "Panneau de configuration" puis cliquer sur "Comptes d'utilisateurs". Dans la nouvelle fenêtre cliquer encore une fois sur "Comptes d'utilisateurs".
Ensuite en bas cliquer sur "activer ou désactiver le contrôle des comptes d'utilisateurs". Dans la fenêtre en résultant décocher la case "utiliser le contrôle des comptes d'utilisateurs pour vous aider à protéger votre ordinateur"
et cliquer sur OK.
Il vous sera demandé de redémarrer. Sitôt l'ordinateur redémarré, vous n'aurez plus d'assombrissement de la luminosité de votre écran avec la demande de votre autorisation pour continuer à installer un logiciel ou modifier un paramètre.

**Quicksilvain** · 10/02/2013, 18h06

Ok..

J'ai essayé de mette ce code ci-dessous pour les exécuter avec une élévation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

End If

J'ai cette fenêtre qui s'affiche et non celle du registre cela prouve que j'ai bien une élévation mais ça fonctionne toujours pas..