========================================================================================================================
「ASP001スタジオが開発した実用的な機能プログラムを使用していただきありがとうございます
'http://www.asp001.net
'===========================================================================================================================================================================================================================================================================================夢
'QQ：1974229
'電子メール：[email protected]
'その他のプログラムをダウンロードするには、http：//www.asp001.netにアクセスしてください
'=====================================================================================================================
'関数の紹介：NTユーザーグループとユーザーをリストします
'この関数はADSIを使用し、管理者グループユーザー許可を必要とします
'関数名：ListGroup（コンピューター）
'プログラム開発：ASP001 Studio Chuqi
'使用法：listGroup（コンピューター名）
'例：ディスプレイ127.0.0.1コンピューターNTユーザーグループとユーザー
'ListGroup "127.0.0.1"
'=====================================================================================================================
functionlistgroup（コンピューター）
Response.Write "<p> <b>以下はコンピューター"＆Computer＆ "システムユーザーグループとユーザーリスト</b> </p>"
setcomputerobj = getObject（ "winnt：//"＆computer）
ComputerObj.filter = array（ "Group"）
foreachmembercomputerobj
Response.write "ユーザーグループ："＆member.name＆ "<br>"
listusercomputer、member.name
次
エンド機能
'指定されたユーザーグループユーザーをリストします
functionListuser（コンピューター、グループ）
setuserobj = getobject（ "winnt：//"＆ "/"＆group）
foreachmemberinuserobj.members
Response.write "グループユーザー："＆member.name＆ "<br>"
次
エンド機能