'Activer / Désactiver la notification de messages à l'invite de session 'Ce code est libre de droit Option Explicit 'Declare variables Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers Dim enab, disab, jobfunc, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\UnreadMail\" p = p & "MessageExpiryDays" itemtype = "REG_DWORD" mustboot = "Redémarrer le pc pour que la modification" & vbCR & "puisse s'appliquer" enab = "ACTIVE" disab = "INACTIVE" jobfunc = "La notification des messages est maintenant " 'Cette section va chercher la valeur de la clé dans le registre. 'En cas d'absence, une erreur est générée. Si la valeur est présente, 'le 0 sera fourni comme réponse à l'instruction gérant les erreurs t = "Confirmation de modification" Err.Clear On Error Resume Next n = WSHShell.RegRead (p) On Error Goto 0 errnum = Err.Number if errnum <> 0 then 'Crée la valeur MessageExpiryDays avec la donnée 0 WSHShell.RegWrite p, 0, itemtype End If 'Si la clé est présente ou a été créée, l'une des boîtes suivantes 's'affichera pour définir l'état de la valeur If n = 0 Then n = 3 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) ElseIf n = 3 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) End If