'Activer l'afficahge du compte Administrateur à l'écran d'accueil Windows XP Professionnel '© Doug Knox - 9/16/2001 - Traduction et diffusion en français: PN (www.d2i.ch/pn) Option Explicit On Error Resume Next 'Declare variables Dim WSHShell, n, p, itemtype, MyBox Set WSHShell = WScript.CreateObject("WScript.Shell") 'set variables p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrateur" itemtype = "REG_DWORD" n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 0 then 'Create the registry key value for Administrator with value 1 WSHShell.RegWrite p, 1, itemtype End If If n = 0 Then WshShell.RegWrite p, 1, itemtype MyBox = MsgBox("Le compte Administrateur est" & vbCR & "désormais affiché dans l'écran d'accueil", 4096, "Afficher Administrateur") End If If n = 1 Then WshShell.Regwrite p, 0, itemtype MyBox = MsgBox("Le compte Administrateur est" & vbCR & "désormais caché dans l'écran d'accueil", 4096, "Cacher Administrateur") End If Set WshShell = Nothing