Групповая смена пароля администратора (рабочие станции - XP)

[snake-as]

Здравствуйте. Подскажите, пожалуйста, какую-нибудь утилиту для смены пароля администратора на нескольких компьютерах. Компьютеры, конечно, в домене, я являюсь Домен админом. Заранее спасибо..

[Delirium]

в смысле смены пароля? Мой компьютер - управление - подключиться к другому компу - выбираешь комп- выбираешь пользователя - меняешь пароль. все.

[snake-as]

Я имею в виду, когда у меня много машин (до 200), не буду же я на каждую заходить.

[sacredboy]

snake-as попробуй этой (ftp://217.76.187.238/ansol/Pub/PassSerialChanger/dcpc.exe) прогой.

P.S. FTP доступен не кргулосуточно.

[snake-as]

sacredboy, ссылка не работает. Можете дать рабочую. Я просто натыкался уже на такую же тему, там эту же программу советовали, я тоже не смог зайти.

Извините, не прочитал, что не круглосуточно:)

[Maximus_MF]

http://www.avianwaves.com/Tech/Tools/XS_BAP/

http://forums.microsoft.com/TechNet-RU/ShowPost.aspx?PostID=3175098&SiteID=40

[Dimas_83]

Попробуйте воспользоваться консольной утилитой pspasswd.exe из набора PsTools.

[monkkey]

GUI утилита для смены пароля локального администратора:
http://www.avianwaves.com/Tech/Tools/XS_BAP/

[artem_]

Можно вот так попробовать



Option Explicit
Dim objComputer ' Экземпляр объекта Computer
Dim objUser ' Экземпляр объекта User
Dim strComputer ' Имя компьютера
Dim strUser ' Имя создаваемого пользователя
Dim strpass ' пароль пользователя
Dim objSysInfo 'массив для хранения свойств компьютера, считанных из AD
Dim arrFULLNAME 'служебный массив
Dim arrCN 'служебный массив

Set objSysInfo = CreateObject("ADSystemInfo")
strComputer = objSysInfo.ComputerName
arrFULLNAME = Split(strComputer, ",")
arrCN = Split(arrFULLNAME(0), "=")

strComputer=arrCN(1)

strUser = "admin"
strpass = "654321"

Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser)
objUser.Description = "Пароль изменен при помощи скрипта"
objUser.SetPassword strpass
objUser.SetInfo