| snake-as |
23-05-2008 05:02 808900 |
Групповая смена пароля администратора (рабочие станции - XP)
Здравствуйте. Подскажите, пожалуйста, какую-нибудь утилиту для смены пароля администратора на нескольких компьютерах. Компьютеры, конечно, в домене, я являюсь Домен админом. Заранее спасибо..
|
| Delirium |
23-05-2008 07:40 808927 |
в смысле смены пароля? Мой компьютер - управление - подключиться к другому компу - выбираешь комп- выбираешь пользователя - меняешь пароль. все.
|
| snake-as |
23-05-2008 07:53 808933 |
Я имею в виду, когда у меня много машин (до 200), не буду же я на каждую заходить.
|
| sacredboy |
23-05-2008 08:27 808948 |
snake-as попробуй этой прогой.
P.S. FTP доступен не кргулосуточно.
|
| snake-as |
23-05-2008 08:46 808953 |
sacredboy, ссылка не работает. Можете дать рабочую. Я просто натыкался уже на такую же тему, там эту же программу советовали, я тоже не смог зайти.
Извините, не прочитал, что не круглосуточно:)
|
| Maximus_MF |
23-05-2008 09:36 808987 |
|
| Dimas_83 |
23-05-2008 09:41 808993 |
Попробуйте воспользоваться консольной утилитой pspasswd.exe из набора PsTools.
|
| monkkey |
26-05-2008 07:52 810788 |
|
| artem_ |
26-05-2008 12:18 810934 |
Можно вот так попробовать
Код:
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
|
Время: 08:24.
© OSzone.net 2001-
