Bonjour,
Le but du script est d'écrire un path dans le registre en fonction des sélections de l'utilisateur sur les boutons radios. Mais voilà quand j'essaie d'écrire dans le registre par exemple la clef "test.exe" le debugger m'indique que la "Racine incorrecte dans le clé du registre", pourtant le chemin est le bon... + system: accès refusé (à la ligne 39)
Test sur un poste Windows7 x64.
Merci de vos éclaircissements.
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40 <html> <head> <title>Pbm iTunes CA</title> <HTA:APPLICATION APPLICATIONNAME="Conflits Apple et CA" ID="1" VERSION="1.0" /> </head> <script language="VBScript"> '*********************************************************************** 'Option Explicit On Error Resume Next '************************************************** Const CLEF_iTunesW7="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Test.exe\" Const CLEF_iTunesXP="" Const CLEF_UtilConfigXP="" Const CLEF_UtilConfigW7="" Const CLEF_SynchXP="" Const CLEF_SynchW7="" Dim WshShell Set WshShell = CreateObject("WScript.Shell") '******Actions Modifs registre***************************** Sub BoutonModif_OnClick Dim Bouton '******Poste en W7***************************** If BtPoste(0).Checked then If BtRadio(0).Checked then Bouton=BtRadio(0).value MsgBox "PBM iTunes W7" WshShell.RegWrite CLEF_iTunesW7,"Path2" End If.......................
Partager