=====================================================================================
«Спасибо за использование программы практической функции, разработанной ASP001 Studio
'Http://www.asp001.net
'=========================================================================================================================
QQ: 1974229
E-mail: [email protected]
'Для получения дополнительных программ скачать, пожалуйста, перейдите по адресу http://www.asp001.net
'======================================================================================
'Функция Введение: Список групп пользователей и пользователей NT
«Эта функция использует ADSI и требует разрешения пользователя группы администраторов
'Имя функции: ListGroup (компьютер)
Разработка программы: ASP001 Studio Chuqi
'Использование: ListGroup (имя компьютера)
Пример: отображать 127.0.0.1 Компьютерная группа пользователей и пользователя
'ListGroup "127.0.0.1"
'======================================================================================
FunctionListGroup (компьютер)
response.write "<p> <b> Ниже приведен компьютер" & Computer & "Системная группа пользователей и список пользователей </b> </p>"
SetComputerObj = getObject ("winnt: //" & computer)
ComputerObj.filter = Array ("Group")
Foreachmemberncomputerobj
Response.write "user group:" & member.name & "<br>"
ListUserComputer, member.name
Следующий
конечная функция
'Перечислите указанные пользователи группы пользователей
FunctionListuser (компьютер, группа)
Setuserobj = getObject ("winnt: //" & computer & "/" & group)
Foreachmemberinuserobj.members
Response.write "Группа пользователь:" & member.name & "<br>"
Следующий
Конечная функция