'Faire disparaitre un compte utilisateur à l écran d'accueil

Option Explicit

'Declare variables
Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt

'set variables
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
itemtype = "REG_DWORD"
n = 0

Prompt = "Entrez le nom d'utilisateur que vous souhaitez cacher."
Title = "Cacher un utilisateur sur l'écran d'accueil"
User = InputBox(Prompt, Title,"")

If User = "" Then
	Title = "Erreur!"
	Prompt = "Vous n'avez rien saisi."
	MyBox = MsgBox(Prompt,4096,Title)
Else
	p = p & User
	Set WSHShell = WScript.CreateObject("WScript.Shell")
	WSHShell.RegWrite p, n, itemtype
	Title = "Succès"
	Prompt = User & " est maintenant caché sur l'écran d'accueil."	
	
	MyBox = MsgBox(Prompt, 4096, Title)
End If

Set WshShell = Nothing