'Hide or Show Administrator Account on Desktop, Vista

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

Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

Message = "Hide or Show Administrator Account on Desktop." & vbCr & vbCr _
 & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _
 & "  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 and Vista Tweaks")
If X = 6 Then 

p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrator"
setting = "REG_DWORD"
z = "Choose Show or Hide."

On Error Resume Next

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
End If