code:
Break On
CLS
dim $usergroups
$sUser = "Richard.Farthing"
$objUser=GetObject("WinNT://@domain/$sUser,User")
For Each $objGroup In $objUser.Groups
  redim preserve $usergroups[ubound($usergroups)+1]
  $usergroups[ubound($usergroups)]=$objGroup.Name
Next


[ 20. June 2003, 18:13: Message edited by: sealeopard ]
_________________________
There are two types of vessels, submarines and targets.