Настройка ЛВС по письму

[Alf]

Скрипт установки пароля локального администратора на всех рабочих станциях в сети. запускаем от админа доменного на любой рабочей станции.

[Alf]

перед этими строками убрать - '

objUser.SetPassword "testpassword"
objUser.SetInfo

[Alf]

скрипт по смене пароля у пользователей АД с генерацией списка пользователей логина и пароля в тхт файл.(останеться почикать и раздать)
пару строк поменять на нужное. 1 фильтр по группе, 2 фильтр на OU

Const CangeUserGroupPassword="CN=Пользователи ФУ"

objCommand.CommandText = "SELECT Name, samAccountName, ADsPath FROM 'LDAP://ou=ФУ ДФБК,dc=fu,dc=local' WHERE objectCategory='user'"

при первом использовании заремить строку, посмотреть тхт файл сверить у тех ли юзеров произойдет замена пароля.
objUser.SetPassword(Pass)


здесь пробить логин тестового юзера, потом заремить IF
'тестовый юзер на котором проводим тест генерации пароля. условие отключить при массовой смене снизу вырубить end if
'********************************************************************************
if LCase((objRecordSet.Fields("samAccountName").Value))=LCase("Kiruchinnn") Then
'********************************************************************************

[Alf]

Удаленный инстал программ на включенные клиентские компы в сети (нужен АД)
Также нужен правильный sfx архив.