09/11/2005, 17:05
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 6 meses Puntos: 3 | |
| asi
set obj = GetObject("WinNT://" & Application("MAQUINA") & ",computer")
obj.Filter=Array("user")
For each usr in obj
if ucase(usr.name) = lusr then
For each grp In usr.Groups
grupo = grupo & "," & grp.Name
next
exit for
next
No esta todo exactamente como quieres porque mi programa extrae muchas cosas mas ; pero esta es la idea |