*- Para crear y borrar un usuario 


# DEFINE UF_DONT_EXPIRE_PASSWD  	0X10000

*- Se crea una instancia del Proveedor 
*- WinNT y
*- se crea el usuario llamado Alumno1
oADSobj =  GetObject("WinNT://Cinco")
usr = oADSobj.Create("user","Alumno2")
usr.Setinfo


*- Completamos la información del Usuario1
*- Establecemos un password y lo cambiamos
oUsr = GetObject("WinNT://Cinco/Alumno1,User")
oUsr.Fullname = "Pepe Pérez"
oUsr.Description = "Alumno Fox"
oUsr.SetPassword("Secreto")
oUsr.ChangePassword("Secreto","mipassword") &&Ojo es sensible a mayúsculas


*- Especificamos que para ese usuario el
*- password nunca expira
oUsr.Put("userFlags",UF_DONT_EXPIRE_PASSWD)
oUsr.setinfo


*- Borramos el usuario
oADSobj = GetObject("WinNT://Cinco")
oADSobj.Delete("User","Alumno1")


*
*-Para Crear un Grupo de usuarios
*

* Se deben pasar los siguientes
* Parámetros
Parameter pUser, pPassword, pGroup
set step off
clear

#DEFINE thiscomputer "TuDominio"
dom=GetObject("WinNT://"+thiscomputer)
on Error do ErrHand
lErr=0

if parameters()=3
   usr=dom.Create("user",pUser)
   if lErr=0
      usr.SetInfo()
   else
      usr=dom.GetObject("User",pUser)
   endi
   usr.SetPassword(pPassword)
   usr.SetInfo()
   grp=dom.GetObject("Group",pGroup)
   grp.Add("WinNT://"+thiscomputer+;
		"/"+pUser)
	cancel
else
   lErr=1

   ? "USUARIOS"
   ? "-----"

   for each usr in dom
      if usr.class="User"
         gpx=usr.Groups
         usrgrp=''
         for each usrx in gpx
            usrgrp=usrgrp+usrx.name+","
         endfor
         ? usr.name+" ("+usrgrp+")"
      endi
   endfor

   ?
   ? "GRUPOS"
   ? "------"

   for each usr in dom
      uMemb=''
      if usr.class="Group"
         grp=dom.GetObject("Group",;
			usr.Name)
		 for each Member in grp.Members
   			if !isnull(Member) and ;
				Member.Class="User"
 				uMemb=uMemb+Member.;
					name+","
			endi
 		endfor
 		? usr.name+" ("+uMemb+")"
		endi
 endfor
 cancel
endif

Procedure ErrHand
   if lErr=0
      lErr=1
      return
   endi
   ? "Error Num:",error()," ;
		Message:",Message()
return