Discussion :

[patricktoulon]

Bonjour a tous
je cherche a créer une clé dans la base de registre en vbs

je ne dois pas utiliser la bonne méthode car ca ne fonctionne pas et je n'ai pas d'erreur

mon but étant d'ajouter la même clé que "acroRd32.exe" pour "pdftotext32.exe"

des idées ???

Code :

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

1
2
3
4
5
6
7
8
Dim WshShell1,WshShell2
On Error Resume Next
Set WshShell1= CreateObject("WScript.Shell")
CleRegistre = WshShell1.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\")
adobread = Replace(CleRegistre , "AcroRd32.exe", "")
   msgbox adobread
Set WshShell2 = CreateObject("WScript.Shell") 
WshShell2.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\pdftotext32.exe\" , adobread & "pdftotext32.exe"

[Marc-L]

Salut Patrick !

Je pense que tu dois créer l'arborescence niveau par niveau comme dans cet exemple …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

Bonsoir Marc
oui je m'en doutais que l'on pouvait pas créer la cle et la valeur string en meme temps

malgré cela ca ne fonctionne toujours pas

Code :

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

1
2
3
4
5
6
7
8
9
Dim WshShell1,WshShell2
On Error Resume Next
Set WshShell1= CreateObject("WScript.Shell")
CleRegistre = WshShell1.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\")
adobread = Replace(CleRegistre , "AcroRd32.exe", "")
   msgbox adobread
Set WshShell2 =CreateObject("WScript.Shell") 
WshShell2.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\pdftotext32\",1, "REG_BINARY"
WshShell2.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\pdftotext32", adobread & "pdfttotext32.exe", "REG_SZ"

je patauge gloup gloup!! je me noie !!!!

[l_autodidacte]

Code :

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

1
2
Dim WshShell1,WshShell2
On Error Resume Next

Déjà cette instruction masque les erreurs éventuelles.
D'autre part, quelle est l'utilité de créer deux objets WshShell alors qu'un seul suffit s'il n'a pas été supprimé ?

Si tu as les droits nécessaires sur la clé en question, le script doit fonctionner correctement, voici celui que j'ai testé :

Code :

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

1
2
3
4
5
6
7
8
9
Dim WshShell, adobread
'On Error Resume Next
 Const Key = "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\"
 Set WshShell= CreateObject("WScript.Shell")
 CleRegistre = WshShell.RegRead(Key & "AcroRd32.exe\")
 adobread = Replace(CleRegistre , "AcroRd32.exe", "")
 MsgBox adobread
 WshShell.RegWrite Key & "pdftotext32.exe\" , adobread & "pdftotext32.exe", "REG_SZ"
 MsgBox WshShell.RegRead(Key & "pdftotext32.exe\")

[patricktoulon]

BONSOIR L4AUTODIDACTE
MEME ERREUR
SUR CETTE LIGNE
WshShell.RegWrite Key & "pdftotext32.exe\" , adobread & "pdftotext32.exe", "REG_SZ"

POUR QUE LES CHOSES SIENT CLAIRES

la clé pdftotext32 n'existe pas au départ

[l_autodidacte]

Je sais que tu veux créer ladite clé (donc elle n'existe pas).
Quel est le message d'erreur après avoir supprimé On Error Resume Next?

[patricktoulon]

capture

[l_autodidacte]

Donc la clé n'a pas pu être créée.

Et si on procède par étape : D'abord on crée la clé puis on écrit la valeur et la donnée :

Code :

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

1
2
3
WshShell.RegWrite Key & "pdftotext32.exe\", "", "REG_SZ" ' Création de la clé avec une valeur(par défaut) vide
WshShell.RegWrite Key & "pdftotext32.exe\" , adobread & "pdftotext32.exe", "REG_SZ" ' écriture du contenu de la valeur (par défaut)
MsgBox WshShell.RegRead(Key & "pdftotext32.exe\")