Option Explicit 
On Error Resume Next 
Dim wsh, box, str 

Set wsh = CreateObject("WScript.Shell") 
str = wsh.RegRead("HKEY_CURRENT_USER\Control Panel\international\s1159") 
box = InputBox("Entrez le texte à afficher dans la barre des tâches (8 caractères maximum)", "Personnaliser la barre des tâches - Zebulon.fr", str) 
wsh.RegWrite "HKEY_CURRENT_USER\Control Panel\international\s1159", box, "REG_SZ" 
wsh.RegWrite "HKEY_CURRENT_USER\Control Panel\international\s2359", box, "REG_SZ" 
wsh.RegWrite "HKEY_CURRENT_USER\Control Panel\international\sTimeFormat", "HH:mm tt", "REG_SZ" 
MsgBox ("Votre texte est enregistré. Veuillez relancer l'ordinateur afin que les changements soient validés."), 64, "Opération terminée"