<?
header( "Content-Type: application/octet-stream" );
header( "Content-Disposition: attachment; filename=\"mlist.vbs\"");
?>
Set groups = GetObject("WinNT://.")
groups.Filter = Array("Group")
list = ""
For Each group In groups
	list = list & "Group : " & group.Name & vbCrLf
	list = list & "-------------------------" & vbCrLf
	target = GetMemberName( group.Name )
	if target = "" then
		list = list & "メンバー無し" & vbCrLf
	else
		list = list & target
	end if
	list = list & "-------------------------" & vbCrLf
	list = list & vbCrLf
Next

Wscript.Echo list

Function GetMemberName( strGroup )

	Set users = GetObject("WinNT://.")
	ret = ""
	users.Filter = Array("User")
	For Each user In users
		For Each grp In user.Groups
			if strGroup = grp.Name then
				ret = ret & user.Name & vbCrLf
			end if
		Next
	Next
	
	GetMemberName = ret

End function