Code:
break On
$obj = GetObject("WinNT://domain/computername$$,user")
? @serror
for each $grp in $obj.groups
	? $grp.name
next

exit 0
_________________________
Home page: http://www.kixhelp.com/hb/