[HTA]Problème de chemin du registre sur regWrite

**romca** · 15/11/2012, 21h50

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.......................

**omen999** · 16/11/2012, 12h06

bonjour,
problème classique de droits pour écrire dans HKLM sous vista et w7

voir ici

**romca** · 16/11/2012, 19h18

Bonjour omen,
ok merci, mais je ne vois pas comment l’exécuter en admin, avec le clique droit je n'ai pas l'option (je ne sais pas si cela à une importance mais le fichier est en en .hta).
La discussion que tu m'as donnée précise qu'il faut faire un raccourci sur le bureau puis le lancer en mode admin, mais à part le clique droit je ne vois pas comment. Je ne souhaite pas que les utilisateurs du script utilisent la boite DOS pour lancer le script. Si tu as une autre solution....

Merci,
A+

**romca** · 21/11/2012, 22h42

Bonjour j'ai trouvé une solution en utilisant la classe StdRegProv dans l'espace de nom cmiv2 dans WMI. Je n'ai plus de message d'erreur "Accès refusé.."
Mais voilà quand je veux écrire la clef "test" dans le registre sous HKEY_LOCAL_MACHINE... elle n'apparait pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
strComputer = "." 
Dim oReg
 
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:\\" & _ 
    strComputer & "\root\cimv2:StdRegProv")
   'Car sous Windows 7 la classe stdRegProv est sous l'espace de nom cimv2 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TEST"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

Par contre j'ai essayé d'écrire une autre clef "test" dans HKEY_CURRENT_USER cette fois et cela fonctionne ?

Code :

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

1
2
3
4
5
6
 
Const HKEY_CURRENT_USER	= &H80000001
Set oReg=GetObject("winmgmts:\\" & _ 
	strComputer & "\root\cimv2:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Test2"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath

je ne comprend pas pourquoi ?
Merci de votre aide.
Cdt.

[HTA]Problème de chemin du registre sur regWrite

VBScript

Vue hybride

Discussions similaires

Partager

Partager