'Hide or Show Administrator Account on Desktop, XP

On Error Resume Next

Dim WshShell, m, MyBox, p,  z, cm, Title, setting, errorn

Message = "Hide or Show Administrator Account on Desktop." & vbCr & vbCr _
 & "If you do not trust the source of this information, do not add it to the registry."  & vbCr  & vbCr _
 & "Would you like to continue?"

X = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP, Vista and Windows 7 Tweaks")
If X = 6 Then 

Set WshShell = WScript.CreateObject("WScript.Shell")
p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrator"
setting = "REG_DWORD"
z = "Choose Show or Hide."

m = WshShell.RegRead(p)

errorn = Err.Number
If errorn <> 0 Then  

m = 0
End If 

Title = "0 = Hide Administrator Account on Desktop." & vbCr & "1 = Show Administrator Account on Desktop." & vbCr & vbCr & vbCr & vbCr & "It Is Now Set At:"
On Error GoTo 0

cm = InputBox(Title, z, m)
If cm <> "" Then
WshShell.RegWrite p, cm, setting
End If

If cm <> "" Then
MyBox = MsgBox("You must Log Off/On for this change to take effect." & vbCr & vbCr &_
 "This script was downloaded from www.paulsxp.com" ,64,"Setting has Changed")
End If
End If