'xp_unhide_users.vbs - Unhides an XP User account from the Welcome screen
'© Doug Knox - 05/01/02
'Downloaded from www.dougknox.com

Option Explicit
'On Error Resume Next

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, cn, errnum

p1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"

t = "UnHide XP User Account"
cn = InputBox("Enter the Username to unhide and click OK", t, "")

If cn <> "" Then
  ws.RegDelete p1 & cn
Err.Clear
errnum = Err.Number

If errnum = 0 Then
   MsgBox cn & "will show on the Welcome Screen",4096,"Done!"
Else
   MsgBox "Please make sure you entered a valid user name",4096,"Error!"
End If

End If