Incrementation d'une valeur registre windows VBscript

Bonjour à tous,

je suis débutant dans le domaine du vbscript,et je recherche dans le cadre de mon boulot à modifier ,en l'incrementant de +400 ou -400 une sous clé du registre.

je ne trouve pas comment faire, mon code debutant,enfin inspiration;) est :

Code:

---

1 2 3 4 5 6 7 8

Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") MsgBox WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Peter Holmes\Supervisor\Settings\location") If WshShell < 400 Then WshShell = 400 Else WshShell = -400 End If

---

Merci de votre aide

Si j'ai bien compris, tu veux faire ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim WshShell,Ret,V Set WshShell = WScript.CreateObject("WScript.Shell") Ret = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Peter Holmes\Supervisor\Settings\location") MsgBox Ret If Ret < 400 Then 'Test de la donnée de la valeur Ret = Ret + 400 ElseIf Ret > 400 Then ' pour éviter le cas d'égalité à 400 sinon ça retourne zéro Ret = Ret - 400 End If WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Peter Holmes\Supervisor\Settings\location" , Ret, "REG_SZ" 'Ecriture de la nouvelle donnée V = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Peter Holmes\Supervisor\Settings\location") 'Pour tester la nouvelle valeur et sa donnée MsgBox V

---

Oui c'est tout à fait ce que je recherchais,je t'en remercie:ccool:

Nath