change name of admin

[websee]

is there a way to change the default name of the administrator user?

to e.g. root or whatever

i need it because of a unix network intergration issue.

[prathapml]

@websee

There's this tool by Siemens AG, which does what you want. Attached to this post.

Usage:

netuser.exe Administrator /name:root

Will do the name changing from Adminsistrator to root.

admin_name_change.zip

[Anderz]

Or you can use this vbs. It doesn't require anything.... Change the stuff in capital letters. (btw: this one is tested and works great ... renames admin, and some other stuff ... mmhm ... disables Guest account .. resets admin account password. Check it out:

On Error Resume Next

strComputer = "."
strCompPass = "SETYOUROWNPASSWORD"
strRemoveHA = "HelpAssistant"
strRemoveSup = "SUPPORT_388945a0"
strRemoveAdmin = "Administrator"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")

strComputer = WshNetwork.ComputerName

'Renaming Administrator account
Set oMachine = GetObject("WinNT://" & strComputer)
Set oInfoUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
set oUser = oMachine.MoveHere(oInfoUser.ADsPath,"NEWADMINNAME")

'Reseting Administrator Password
Set objUser = GetObject("WinNT://" & strComputer & "/NEWADMINNAME, user")
objUser.SetPassword "SETYOUROWNPASSWORD"
objUser.SetInfo

'Renaming Guest
Set oMachine = GetObject("WinNT://" & strComputer)
Set oInfoUser = GetObject("WinNT://" & strComputer & "/Guest,user")
set oUser = oMachine.MoveHere(oInfoUser.ADsPath, "NoGuest")

'Reseting Guest Password
Set objUser = GetObject("WinNT://" & strComputer & "/NoAccess, user")
objUser.SetPassword "SETYOUROWNPASSWORD"
objUser.SetInfo

'Disabling Guest Account
Set objUser = GetObject("WinNT://" & strComputer & "/NoAccess")
objUser.AccountDisabled = True
objUser.SetInfo

'Deleting Help Assistant Account, Support Account
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Delete "user", strRemoveHA
objComputer.Delete "user", strRemoveSup

What else .. yeah .. someone in this forum posted this originally .. Dunno who! Great job though! And, so it's mentioned, I run this vbs during runonceex....

[ravashaak]

I use cusrmgr.exe from the resource kit to perform this task on the local administrator account during my unattended installs. It works like a champ and I even use it to remind me, at first manual logon, to change my password (that way I don't have my permanent password in a sif file on a floppy floating around somewhere). The only drawback is that you'll need access to the resource kit.

- Ravashaak

[websee]

thx, very much. the siemens prog did only the cosmetic thing, but the user core name remained administrator, at least it still sent administrator as user name over network, but the vbs did great. thx