Para eliminar usuarios sería el mismo código pero usando la sentencia:

// Este es el código:
if oCon:Execute( "DROP USER eagle1" )
        Alert( "El usuario se eliminó correctamente" )
else
         Alert( "Error al eliminar el usuario" )
        oCon:oError:Show( .t., "Que no tío" ) // Amplia la descripción del error
endif

--- En eagle1@yahoogroups.com, "Manu" <messoft@...> escribió:
>
> El amigo Wilfredo me hizo esa pregunta y creo que estaría bien que lo
> publicara por aquí:
>
> Este es el código básico, a partir de aquí la imaginación es
> el límite:
>
> function main()
>
> local cDb := "E1Prueba"
> local oCon
>
> // Sistema Cliente/Servidor
> local cHost := "127.0.0.1"
> local cUser := "root"
> local cPwd := "root"
>
> // Creamos el objeto Connect e intentamos la conexión:
> oCon := TMSConnect():New()
> oCon:Connect( cHost, cUser, cPwd )
>
> if !oCon:lConnected
> Alert( "No se ha establecido la conexión" )
> // Liberamos memoria
> oCon:Close()
> return( nil )
> endif
>
> cls
> // Este es el código:
> if oCon:Execute( "CREATE USER eagle1 IDENTIFIED BY 'eagle1'" )
> Alert( "El usuario se creó correctamente" )
> else
> Alert( "Error al crear el usuario" )
> oCon:oError:Show( .t., "Que no tío" ) // Amplia la
> descripción del error
> endif
> ...
> Fijaros que el nombre del usuario eagle1 no va entre comillas simples
> pero la password 'eagle1' si que va.
>