Cambiar nombre de cuenta "Administrador"

[spideywolvie]

Hola soy yo de nuevo, ahora tengo una duda
como es posible cambiar el nombre de la cuenta de Administrador por algun otro mediante alguna clave de registro (regedit) o desde que se instala Windows Xp?
Esto lo he visto en el win desatendido de Leonic ya que desde que se instala windows el nombre de la cuenta del administrador es "Leonic", esto solo lo he podido modificar en forma manual al abrir la ventana de "administracion de equipos" y ahi en la parte de usuarios locales y grupos/ usuarios, ahi elijo el usuario y modifico el nombre
pero yo lo quisiera hacer de forma automatica

[LeThe]

En el foro de MSFN he encontrado el siguiente script:

@echo off

Código: Seleccionar todo

%systemdrive%\MSA\Utilities\renuser.exe guest disabled
net localgroup guests disabled /delete

set /P newadmin="Enter a new administrator name: "
%systemdrive%\MSA\Utilities\renuser.exe administrator %newadmin%

reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList" /v %newadmin% /t REG_DWORD /d 00000001 /f

Necesitas encontrar el programita renuser.exe cual no he tenido tiempo de buscar. Pruebalo primero en una maquina virtual a ver que tal.

El enlace al tema esta aqui: http://www.msfn.org/board/index.php?sho ... ode=linear" onclick="window.open(this.href);return false;

[spideywolvie]

Muchas gracias, ya me he puesto a buscar ese programa, yo he encontrado este script de VB

Código: Seleccionar todo

'ChgOwnOrg.vbs - Change Win9x Registered Owner/Organization.
'© rev 29 Oct 1999.
'Modified for Windows XP

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where LocalAccount = True And Name = 'Leonic'")

For Each objAccount in colAccounts
    objAccount.Rename "Administrador"
Next

True And Name = 'Leonic'" esta es la parte donde se coloca el nombre de usuario a renombrar

objAccount.Rename "Administrador" esta es la parte donde se coloca el nuevo nombre de la cuenta

y tambien este otro de un archivo bat para lo que se refiere a la parte de nombre completo (fullname), pero este ultimo no se como agregarlo al script de VB ya que no soy muy bueno en ese lenguaje

Código: Seleccionar todo

@echo off
net user Administrador /fullname:"Administrador"

todo esto para que se ejecuten lo he agregado al archivo cmdlines.txt que se encuentra en la carpeta $OEM$