Try

colGroups = GetObject("WinNT://" + strComputer + "")
For Each objGroup In colGroups
	IF UPPER(objGroup.class) = "GROUP"
	    ? objGroup.Name, objGroup.class
	ENDIF
ENDFOR

>
>I have the following VB script, that I need to convert to VFP:
>
>

>strComputer = "MyServer"
>
>Set colGroups = GetObject("WinNT://" & strComputer & "")
>
>colGroups.Filter = Array("group")
>
>For Each objGroup In colGroups
>    Wscript.Echo objGroup.Name
>    For Each objUser in objGroup.Members
>        Wscript.Echo vbTab & objUser.Name
>    Next
>Next
>

>I tried to convert to the following VFP code, but get stuck with the line "colGroups.Filter = Array ("group")"
>

>strComputer = "MyServer"
>
>colGroups = GetObject("WinNT://" + strComputer + "")
>
>colGroups.Filter = Array ("group")
>
>For Each objGroup In colGroups
>    Wait Window NoWait objGroup.Name
>    For Each objUser In objGroup.Members
>        Wait Window NoWait objUser.Name
>    Next
>Next
>
>Wait Clear
>

>How should it be?
>
>TIA,
>
>Fernando