=========================================================================================.
'Obrigado por usar o programa de função prática desenvolvida pelo ASP001 Studio
'Http://www.asp001.net
'============================================================================' ASP001 Studio Você está com o desenvolvimento personalizado e o desenvolvimento da Internet Expidos
'QQ: 1974229
'E-mail: [email protected]
'Para mais programas Download, vá para http://www.asp001.net
'========================================================================================
'Função Introdução: Listar grupos de usuários e usuários
'Esta função usa o ADSI e requer permissões de usuário do grupo de administradores
'Nome da função: ListGroup (computador)
'Desenvolvimento do Programa: ASP001 Studio Chuqi
'Uso: ListGroup (nome do computador)
'Exemplo: Exibir 127.0.0.1 Grupo de usuários e usuário do computador NT
'ListGroup "127.0.0.1"
'========================================================================================
FunctionListGroup (computador)
Response.Write "<p> <b> O seguinte é o computador" & Computer & "System User Group e Lista de usuários </b> </p>"
SetComputerObj = getObject ("winnt: //" e computador)
Compolobj.filter = Array ("Grupo")
ForeachmemberincomputerObj
Response.Write "User Group:" & Member.Name & "<br>"
ListuserComputer, membro.name
Próximo
Função final
'Liste os usuários de grupo de usuários especificados
FunctionListuser (computador, grupo)
SetUSEROBJ = getObject ("Winnt: //" & Computer & "/" & Group)
ForeachmemberinUserobj.Members
Response.Write "Grupo Usuário:" & Member.Name & "<br>"
Próximo
Função final