| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Priluky
Зарегистрирован: 31.03.2005
Сообщения: 5
|
 Добавлено: Пт Апр 15 2005 15:39 Заголовок сообщения: пароли для локаладминов |
 |
|
| Есть домен с контролером на W2003 Server. Как одним махом поменять/задать пароли локальных админов на компьютерах пользователей, что бы не бегать к ним, а сделать это по сети? |
|
| Вернуться к началу |
|
 |
Alpen
Зарегистрирован: 16.02.2005
Сообщения: 26
Откуда: Пенза
|
| Добавлено: Пт Апр 15 2005 15:50 Заголовок сообщения: Re: пароли для локаладминов |
|
|
| Priluky писал(а): | | Есть домен с контролером на W2003 Server. Как одним махом поменять/задать пароли локальных админов на компьютерах пользователей, что бы не бегать к ним, а сделать это по сети? |
Канеш не одним махом, но все же Панель управления->Администрирование->Управление компьютером
Там выбираем меню Действие->Подключится к другому компьютеру и т.д. |
|
| Вернуться к началу |
|
|
Andy_user
Зарегистрирован: 03.12.2003
Сообщения: 382
Откуда: Санкт-Петербург
|
| Добавлено: Пт Апр 15 2005 15:56 Заголовок сообщения: |
|
|
| Цитата: | On Error Resume Next
Set file_object = CreateObject("Scripting.FileSystemObject")
Set list = file_object.CreateTextFile("./Rezult.log")
domain = "XXX" '********
Set container_comp = GetObject("WinNT://" & domain)
container_comp.Filter = Array("Computer")
For Each comp In container_comp
comp_in_domain = comp.Name
Set container_user = GetObject("WinNT://" & domain & "/" & comp_in_domain)
container_user.Filter = Array("User")
For Each user In container_user
If user.Name="Администратор" Then
list.Write comp_in_domain & " ---"& user.Name & vbCrLf
' user.SetPassword = "PASSWORD" '************
End If
If user.Name="Administrator" Then
list.Write comp_in_domain & " ---"& user.Name & vbCrLf
' user.SetPassword = "PASSWORD" '************
End If
Next
Set container_user = Nothing
Next
list.Close
WScript.Quit(0) ' Exit |
Замените имя домена на нужное Вам. Обратите внимание на то, что строки замены пароля в этом скрипте закоментированы.
Сначала проверьте работу скрипта без замены пароля. В результате работы в той же директории, откуда будет запускаться этот скрипт, будет создан файл Rezult.log .
_________________
Знание принципов компенсирует незнание фактов.
Последний раз редактировалось: Andy_user (Пт Апр 15 2005 19:27), всего редактировалось 1 раз |
|
| Вернуться к началу |
|
|
Andy_user
Зарегистрирован: 03.12.2003
Сообщения: 382
Откуда: Санкт-Петербург
|
| Добавлено: Пт Апр 15 2005 16:02 Заголовок сообщения: |
|
|
Естественно, Вы должны обладать правами локальных администраторов на каждом из этих компов.
_________________
Знание принципов компенсирует незнание фактов. |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
