=======================================================================================================================================
'Gracias por usar el programa de funciones prácticas desarrolladas por ASP001 Studio
'Http://www.asp001.net
'=====================================================================--
'QQ: 1974229
'Correo electrónico: [email protected]
'Para obtener más programas, descargue, visite http://www.asp001.net
'======================================================================================================================================
'Introducción de la función: Lista de grupos de usuarios y usuarios de NT
'Esta función utiliza ADSI y requiere permisos de los usuarios del grupo de administradores
'Nombre de la función: ListGroup (computadora)
'Desarrollo del programa: ASP001 Studio Chuqi
'Uso: ListGroup (nombre de la computadora)
'Ejemplo: Pantalla 127.0.0.1 Grupo de usuarios y usuario de la computadora NT
'ListGroup "127.0.0.1"
'======================================================================================================================================
FunctionListGroup (computadora)
Response.write "<p> <b> La siguiente es la computadora" y la computadora "Grupo de usuarios del sistema y la lista de usuarios </b> </p>"
SetComputeroBJ = getObject ("winnt: //" y computadora)
ComputerObj.filter = Array ("Grupo")
ForeachmemberIdomputerobj
Response.Write "Group de usuarios:" & Member.Name & "<br>"
ListuserComputer, member.name
Próximo
Función final
'Enumere los usuarios especificados del grupo de usuarios
FunctionListUser (computadora, grupo)
SetUseroBJ = getObject ("winnt: //" & computer & "/" & group)
Foreachmemberinuserobj.members
Response.Write "Group User:" & member.name & "<br>"
Próximo
Función final