Dim WSHShell, n, MyBox, p, p1, t, cn, Caption, itemtype, errnum Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrator" itemtype = "REG_DWORD" t= "Choose Accordingly" On Error Resume Next n = ws.RegRead(p) errnum = Err.Number If errnum <> 0 then n = 0 End If Caption = "1 = Show Administrator on Destop, 0 = Don't Show Administrator on Desktop" On Error Goto 0 cn = InputBox(Caption, t, n) If cn <> "" Then WSHShell.RegWrite p, cn, itemtype End If If cn <>"" Then MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done") End If