Cuenta al iniciar....

Foro referente al sistema operativo Windows XP
fimbelete
Usuario linuxero
Usuario linuxero
Mensajes: 13
Registrado: 16 Oct 2008, 15:47
Contactar:

Cuenta al iniciar....

Mensajepor fimbelete » 16 Oct 2008, 15:51

Antes encendia el ordenador y me salia el escritorio con el fondo de pantalla pero ahora me sale la cuenta de administrador¿cómo puedo volver al estado de antes y no me salga la cuenta?
Gracias a todos.Un saludo

Avatar de Usuario
Souto
Usuario Bill Gates
Usuario Bill Gates
Mensajes: 10665
Registrado: 25 Feb 2008, 10:21
Ubicación: Galicia
Agradecido : 6 veces
Agradecimiento recibido: 647 veces
Contactar:

Re: Cuenta al iniciar....

Mensajepor Souto » 16 Oct 2008, 17:59

Bienvenido al foro!
Algo ó alguien ha modificado tu Registro. No se si tienes experiencia en editarlo y modificarlo y es por esto que te voy a indicar como crear dos scripts que realicen los cambios necesarios sin que tú tengas que entrar al Registro.

PASO NUMERO UNO[/color]Pretendemos que se vuelva a mostrar tu usuario.

Copia en bloc de notas el texto que te pongo en azul. Guárdalo en Escritorio con cualquier nombre (mostrarusuario, por ejemplo); pero antes de dar en Guardar como pulsa sobre Tipo para que en lugar de *.txt muestre Todos los archivos. Ahora, ya sí, lo guardas como mostrarusuario.vbs
Ratón derecho sobre ese archivo y damos en Abrir con símbolo de sistema. A continuación se nos mostrará una ventana donde debemos teclear el usuario que queremos desocultar, aceptamos y listo. Reiniciamos el equipo.

'xp_unhide_users.vbs - Unhides an XP User account from the Welcome screen
'© Doug Knox - 05/01/02
'Downloaded from http://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



PASO NUMERO DOS Vamos ahora a ocultar el usuario administrador, para que ya arranque directamente con "tu" usuario.

Creamos al igual que antes otro script, pero con este texto y con cualquier nombre (ocultar.vbs , por ejemplo).Procedemos igual que antes (ratón derecho...) aparecerá también una ventana, en ella deberás teclear un 0.

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

VisitKelly's Korner

Sub VisitKelly's Korner
If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm"
End If
End Sub



Saludos
Qui dove il mare luccica e tira forte il vento


Volver a “Windows XP / X64”

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 3 invitados