Discussion :

[natmab]

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 :

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

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

[l_autodidacte]

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

Code :

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

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

[natmab]

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

Nath