Как сменить пароль административного аккаунта на машине под управлением Windows?

Если вы вдруг забыли админский пароль на вход в Windows, ничего страшного, не теряйтесь.
Есть несколько способов замены административного пароля. Надеюсь помочь начинающим администраторам хоть немного и тем самым не дам им упасть в глаза коллектива.

1. Есть куча утилит в интернете, которые без проблем меняют пароль, как правило, почти на любом Live CD они есть.
2. Сделать самописный скриптик на VBS, который поможет решить поставленную задачу.

Пример скриптика:

Option Explicit
Dim oNet,sUser,sComputer
Set oNet = Wscript.CreateObject(«Wscript.Network»)
sUser = oNet.UserName
sComputer = oNet.ComputerName
On Error Resume Next
Set sUser = GetObject(«WinNT://» & sComputer & «/Администратор,user»)
sUser.SetPassword «new_password»
sUser.SetInfo

Копируете содержимое в блокнот, сохраняете с расширением *.vbs и все готово.
*-ваше название файла на английском.

Данный скрипт поможет системным администраторам, если они захотят поменять админские локальные пароли на всех машинах в сети при помощи групповых политик, и по офису бегать не придется как ошпаренному. Учиться никогда не поздно, я это делаю сам постоянно и не считаю все это зазорным. Любой уважающий себя пользователь, взявший на себя права администратора и таковым назвавшись, и по уровню образования должен реально догонять статус.