=========================================================ieben
'Vielen Dank für die Verwendung des von ASP001 Studio entwickelten praktischen Funktionsprogramms
'Http://www.asp001.net
'==========================================================================='ASP001 Studio provides you with customized program development and enterprise Internet expansion services
'QQ: 1974229
E-Mail: [email protected]
'Für weitere Programme herunterladen Bitte unter http://www.asp001.net
'====================================================================================
'Funktion Einführung: Listen Sie NT -Benutzergruppen und Benutzer auf
'Diese Funktion verwendet ADSI und erfordert Administratorengruppen -Benutzerberechtigungen
'Funktionsname: ListGroup (Computer)
'Programmentwicklung: ASP001 Studio Chuqi
'Nutzung: ListGroup (Computername)
Beispiel: Anzeige 127.0.0.1 Computer NT -Benutzergruppe und Benutzer
'ListGroup "127.0.0.1"
'====================================================================================
FunktionListGroup (Computer)
response.write "<p> <b> Folgendes ist Computer" & Computer & "Systembenutzergruppe und Benutzerliste </b> </p>"
SetComputerObj = getObject ("winn: //" & computer)
ComputerObj.filter = array ("Gruppe")
ForeachMemberincomputerobj
Response.write "Benutzergruppe:" & member.name & "<br>"
ListUserComputer, Mitglied.Name
Nächste
Endfunktion
'Listen Sie die angegebenen Benutzergruppenbenutzer auf
FunktionListuser (Computer, Gruppe)
SetUserobj = getObject ("winnt: //" & computer & "/" & gruppe)
ForeachMemberinuserobj.Members
Response.write "Gruppen Benutzer:" & member.name & "<br>"
Nächste
Endfunktion