Code:

$localgroups = getobject('WinNT://' + @wksta)
$localgroups.filter = 'group',''

DIM $admingroups[0]

for each $group in $localgroups
	if instr($group.name,'admin')
		;this local group has 'admin' in it's name
		$admingroups[$i] = $group
		$i = $i + 1
		redim preserve $admingroups[$i]
	EndIf
next

If $i
	redim preserve $admingroups[$i-1]
Else
	$admingroups=0
EndIf

for each $group in $admingroups
	? $group.name
next