========================================================================================.
'Merci d'utiliser le programme de fonctions pratiques développé par ASP001 Studio
'Http://www.asp001.net
'===========================================================================================.
'QQ: 1974229
'E-mail: [email protected]
«Pour plus de programmes, téléchargez, veuillez vous rendre sur http://www.asp001.net
'=========================================================================================================.
«Fonction Introduction: Liste des groupes d'utilisateurs NT et des utilisateurs
'Cette fonction utilise ADSI et nécessite des autorisations utilisateur de groupe des administrateurs
'Nom de la fonction: ListGroup (ordinateur)
«Développement du programme: ASP001 Studio Chuqi
'Utilisation: ListGroup (nom de l'ordinateur)
'Exemple: Afficher 127.0.0.1 Group d'utilisateur et utilisateur de l'ordinateur NT
'Listgroup "127.0.0.1"
'=========================================================================================================.
FunctionListgroup (ordinateur)
Response.write "<p> <b> Ce qui suit est l'ordinateur" & Computer & "System User Group and User List </b> </p>"
SetComputerObj = getObject ("winnt: //" & ordinateur)
ComputerObj.Filter = Array ("Group")
Foreachmemberincomputerobj
Réponse.Write "Groupe d'utilisateurs:" & membre.Name & "<br>"
ListUserComputer, membre.name
Suivant
finition de fin
«Énumérez les utilisateurs du groupe d'utilisateurs spécifiés
FunctionListUser (ordinateur, groupe)
SetUserObj = getObject ("winnt: //" & Computer & "&" & Group)
Foreachmemberinuseobj.members
Réponse.write "Utilisateur de groupe:" & membre.Name & "<br>"
Suivant
Finition de fin