Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Windows 2000/XP/2003/Vista администратору


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Faustofel
Статус: Студент
Рейтинг: 106
∙ повысить рейтинг >>
Witaliks
Статус: 5-й класс
Рейтинг: 65
∙ повысить рейтинг >>
Armad
Статус: 3-й класс
Рейтинг: 65
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Установка и настройка ОС / Windows 2000/XP/2003/Vista/2008 администратору

Выпуск № 1403
от 07.04.2009, 05:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 872, Экспертов: 112
В номере:Вопросов: 2, Ответов: 2

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 163865: Добрый день! Какой утилитой можно проанализировать количество пользователей (и вывести их список) на рабочих станциях в Active Directory домена Windows 2000 Server, входящих в группу локальные Администраторы на своих компьютерах. Операционная ...


Вопрос № 163920: Уважаемые эксперты, Материнская плата на серверной материнской плате s5000vsa с настроенным RAID 1 не могу установить windows 2003 server. Затык происходит после подсовывания инсталятору RAID драйверов, разбиения, проверки и копирования разделов. ...

Вопрос № 163.865
Добрый день!

Какой утилитой можно проанализировать количество пользователей (и вывести их список) на рабочих станциях в Active Directory домена Windows 2000 Server, входящих в группу локальные Администраторы на своих компьютерах. Операционная система рабочих станций Windows XP SP2.

Спасибо.
Отправлен: 01.04.2009, 09:15
Вопрос задал: Vitaly-fedorov (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Megaloman
Здравствуйте, Vitaly-fedorov!
Могу предложить
1. Макрос для Excel, который позволяет выводить в таблицу Excel список логинов пользователей, входящих в указанные группы на указанных компьютерах.
Очевидный недостаток - надо занести в массив имена компьютеров.
Код:
   
N = 3 ' Число тестируемых компьютеров
ReDim MGroup(N - 1), MComp(N - 1)

MComp(0) = "Computer1" ' Имена компьютеров
MComp(1) = "Computer2"
MComp(2) = "Computer3"

MGroup(0) = "Администраторы" ' Массив с наименованием групп в соответствующих комп (могут быть и разные)
For m = 0 To N - 1
MGroup(m) = MGroup(0)
Next

j = 0
Columns("A:B").ClearContents

For m = 0 To N - 1
NameGroup = MGroup(m)
NameComp = MComp(m)

Range("A1").Offset(j, 0) = "Компьютер " + NameComp
Range("A1").Offset(j + 1, 0) = "Группа " + NameGroup

On Error Resume Next
Set GOb = GetObject("WinNT://" + NameComp + "/" + NameGroup + ",group")

If Err.Number = 0 Then

j = j + 2

Set Members = GOb.Members
i = 0
For Each MemberOf In Members
Range("B1").Offset(j, 0) = MemberOf.Name
i = i + 1
j = j + 1
Next
Range("A1").Offset(j, 0) = "Всего членов: " + CStr(i)
j = j + 2
Else
Range("B1").Offset(j + 1, 0) = Err.Description
j = j + 3
End If
Next
< /div> И, самое главное, надо иметь доступ к удалённому компьютеру для пользователя, под которым Вы зарегистрировались. Но, похоже, не обязательно с правами администратора.
В принципе, можно развить макрос для получения более широких сведений о пользователях, не только его логина.

2. Если не привязываться к Excel, то можно аналогичный код написать для VBS-скрипта. Результаты выводятся в указываемый Вами файл. Опять же, список компьютеров придётся ввести.
Код:

Gde_Protokol = "D:kuku.txt" ' Куда запишем протокол

N = 3 ' Число компьютеров
ReDim MGroup(N - 1), MComp(N - 1)

MComp(0) = "Computer1" ' Имена компьютеров
MComp( 1) = "Computer2"
MComp(2) = "Computer3"

MGroup(0) = "Администраторы" ' Массив с наименованием групп в соответствующих комп (могут быть и разные)
For m = 0 To N - 1
MGroup(m) = MGroup(0)
Next

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(Gde_Protokol, 2, True)

For m = 0 To N - 1
NameGroup = MGroup(m)
NameComp = MComp(m)

F.WriteLine "Компьютер " + NameComp
F.WriteLine "Группа " + NameGroup

On Error Resume Next
Set GOb = GetObject("WinNT://" + NameComp + "/" + NameGroup + ",group")

If Err.Number = 0 Then
Set Members = GOb.Members
i = 0
For Each MemberOf In Members
F.WriteLine " " + MemberOf.Name
i = i + 1
Next
F.Wr iteLine "Всего членов: " + CStr(i)
Else
F.WriteLine " !!! Ошибка " + Err.Description
End If
F.WriteLine "-------------------------------"
Next
F.Close

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

3. Способ на уровне идеи - не на чем было отладить. При регистрации пользователя в домене возможен запуск сценария регистрации. В сценарии, как мне думается, может быть использован скрипт, который передаст сведения о компьютере зарегистрировавшегося в домене клиента в файл, расположенный на общем расшаренном ресурсе. Подробнее рассказать не берусь - не на чем проверить.
Но текст скрипта - ниже. Запущенный на локальной машине, он передаст в указанный Вами файл (у меня он в тексте локальный, Вам, естественно, надо расположить его в расшаренной папке какого-то компьютера) требуемые Вами сведения. Однако! Если пользователь зарегистрируется несколько раз, то в этот файл сведения попадут несколько раз, так как файл открывается для добавления.
Код:
   
Gde_Protokol = "D:kuku.txt" ' Куда запишем протокол

NameGroup = "Администраторы"

Set NetWork = CreateObject("WScript.Network")
NameComp = NetWork.ComputerName ' Имя текущего компьютера


Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(Gde_Protokol, 8, True)

F.WriteLine "Компьютер " + NameComp
F.WriteLine "Группа " + NameGroup

On Error Resume Next< br> Set GOb = GetObject("WinNT://" + NameComp + "/" + NameGroup + ",group")

If Err.Number = 0 Then
Set Members = GOb.Members
i = 0
For Each MemberOf In Members
F.WriteLine " " + MemberOf.Name
i = i + 1
Next
F.WriteLine "Всего членов: " + CStr(i)
Else
F.WriteLine " !!! Ошибка " + Err.Description
End If
F.WriteLine "-------------------------------"
F.Close

Вот Здесь можно взять готовые файлы.
---------
Нет времени на медленные танцы
Ответ отправил: Megaloman (статус: Практикант)
Ответ отправлен: 02.04.2009, 20:01

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 246687 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Большое спасибо за развёрнутые идеи, буду пробовать воплощать в жизнь!


    Вопрос № 163.920
    Уважаемые эксперты,
    Материнская плата на серверной материнской плате s5000vsa с настроенным RAID 1 не могу установить windows 2003 server. Затык происходит после подсовывания инсталятору RAID драйверов, разбиения, проверки и копирования разделов. Происходит перезагрузка, появляется курсор...и следом синий экран!!! STOP 0x0000000A IRQL_NOT_LESS_OR_EQUAL
    Кто сталкивался, подскажите пожалуйста.
    Отправлен: 01.04.2009, 20:49
    Вопрос задал: Bpisk (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 8)

    Отвечает: Witaliks
    Здравствуйте, Bpisk!
    Вот по этому адресу http://www.oszone.net/display.php?id=69 вы найдете все ответы на свои вопросы, там же и рекомендаци на избитую тему "Что делать?"
    Ответ отправил: Witaliks (статус: 5-й класс)
    Ответ отправлен: 02.04.2009, 10:03

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 246637 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 4


    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!

    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru

    В избранное