'xp_hide_users.vbs
'Hide User on the Windows XP Welcome Screen
'© Doug Knox - 05/01/02
'Downloaded from www.dougknox.com

Option Explicit
On Error Resume Next

'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 = "Adja meg az elrejteni kívánt felhasználó nevét:"
Title = "Felhasználók elrejtése az üdvözlőképernyőn"
User = InputBox(Prompt, Title,"")

If User = "" Then
	Title = "Hiba"
	Prompt = "Üresen hagyta a felhasználónév mezőt."
	MyBox = MsgBox(Prompt,4096,Title)
Else
	p = p & User
	Set WSHShell = WScript.CreateObject("WScript.Shell")
	WSHShell.RegWrite p, n, itemtype
	Title = "Kész"
	Prompt = User & " felhasználó elrejtve az üdvözlőképernyőről."
	
	MyBox = MsgBox(Prompt, 4096, Title)
End If

Set WshShell = Nothing