break ON
$= SetOption("WrapAtEol","On")

? "KiXtart version = " @KIX


; Win32Admin.DLL documentation and example KiXtart code

; All method set return data or true on success or nothing on failure.
; Also @error is set when an error occurs but does not seem to be reset on success.
; Therefore, checking the function result seems to be the best method of
; determining when an error occurs.
; @Error may not reflect the actual error of methods. Be sure to
; check @serror as it will reflect the correct text of the COM error.

$Win32Admin = createobject("Win32Admin")
if vartypename($Win32Admin) <> "Object"
  ? "@serror"
endif

; Method GrpEnum($Server, "global"|"local", optional $InclDesc)
;   Enumerates all "global" or "local" groups on $Server.
;
;   Returns either an array of dictionary objects
;   Local group keys: (comment, name)
;   Global group keys: (attributes, comment, group_id, name)
;
RedirectOutput("c:\scripts\globalgroups.log")
$Groups = $Win32Admin.GrpEnum("MOP002", "global")
if @error = 0
	for each $Group in $Groups
		$keys = $Group.keys
		for each $key in $keys
			$Value = $Group.get($key)
			If $key = "name"
				$grpname=$Value
				?$grpname
			EndIf
			$Members = $Win32Admin.GrpEnumMembers(MOP002, "global","$grpname")
			for each $Member in $Members
				$toys = $Member.keys
				for each $toy in $toys
					$Value = $Member.get($toy)
					If $toy = "name"
						$memname=$Value
						?"	" + $memname
					EndIf
				next
			next
		next
	next
else
	? "Error: @error  @serror"
endif
RedirectOutput("")

AA_DriveBF
	MLBQS
	MOJGS
	MLCAR
	MLOPI
	TERM ESBUR
	_BRKL ADMINISTRATION TEMPLATE
	UKMYA
	MLBQS
	MOJGS
	MLCAR
	MLOPI
	TERM ESBUR
	_BRKL ADMINISTRATION TEMPLATE
	UKMYA
	MLBQS
	MOJGS
	MLCAR
	MLOPI
	TERM ESBUR
	_BRKL ADMINISTRATION TEMPLATE
	UKMYA
	MLBQS
	MOJGS
	MLCAR
	MLOPI
	TERM ESBUR
	_BRKL ADMINISTRATION TEMPLATE
	UKMYA

$Server = 'amdc004'
$Groups = $Win32Admin.GrpEnum($Server, "global")
if @error = 0
  for each $Group in $Groups
    $grpname = $Group.get('name')
    ?$grpname

    $Members = $Win32Admin.GrpEnumMembers($Server, "global", $grpname)
    for each $Member in $Members
      $memname = $Member.get('name')
      ? " " + $memname
    next
  next
else
  ? "Error: @error  @serror"
endif