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

Delirium · Отправлено: **07:40, 23-05-2008** | #2

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

snake-as · Отправлено: **07:53, 23-05-2008** | #3

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

sacredboy · Отправлено: **08:27, 23-05-2008** | #4

snake-as попробуй этой прогой.

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

snake-as · Отправлено: **08:46, 23-05-2008** | #5

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

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

Maximus_MF · Отправлено: **09:36, 23-05-2008** | #6

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

http://forums.microsoft.com/TechNet-...5098&SiteID=40

Dimas_83 · Отправлено: **09:41, 23-05-2008** | #7

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

monkkey · Отправлено: **07:52, 26-05-2008** | #8

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

artem_ · Отправлено: **12:18, 26-05-2008** | #9

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

Код:

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