Option Explicit 
On Error Resume Next 
Dim wsh, box1, box2, str1, str2 

Set wsh = CreateObject("WScript.Shell") 
str1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption")
str2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText") 
box1 = InputBox("Entrez le titre de votre message", "Titre du message de démarrage", str1)
box2 = InputBox("Entrez le contenu de votre message", "Contenu du message de démarrage", str2) 
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", box1, "REG_SZ" 
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", box2, "REG_SZ" 
MsgBox ("Votre message de démarrage est enregistré."), 64, "Opération terminée"