'Cacher un utilisateur dans l'écran d'accueil 'Ce code est libre de droit Option Explicit 'Declarer variables Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt 'Fixer variables p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\" itemtype = "REG_DWORD" n = 0 Prompt = "Entrer le nom de l'utilisateur que vous désirez cacher." & vbCR & "ATTENTION à bien orthographier le nom" & vbCR & "En cas d'erreur, une clé ne servant à rien sera créée" Title = "Cacher un utilisateur à l'invite de sessions" User = InputBox(Prompt, Title,"") If User = "" Then Title = "Erreur!" Prompt = "Vous avez oublié d'indiquer le nom!!" MyBox = MsgBox(Prompt,4096,Title) Else p = p & User Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite p, n, itemtype Title = "BRAVO!" Prompt = User & " a maintenant disparu de l'écran d'accueil." MyBox = MsgBox(Prompt, 4096, Title) End If Set WshShell = Nothing