Restringir acceso mediant derecho d usuario?

[47]

Esop mi duda s q si hay algun codigo q me permita "leer" los derechos d usuario y n base a eso permitir la ejecucio d mi programa por ejemplo ver q si el usuario esta n una sesion restringida no ejecutar l codigo          gracias d antemano      47

[Korpex]

no se si te servirá esto, yo lo utilizo para que me diga si el usuario que ejecuta la aplicacion es administrador o no; para darme informacion acerca del usuario . Agrega esto en un formulario y carga en el form_load la sub administrador().

Código:

'Api utilizada
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long

sub administrador()
            If CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) = True Then
                msgbox  ("Admin = Yes")
            Else
               msgbox "Admin = No"
            End If
end sub

Espero que te sirva.

[47]

# Execelent muchisimas gracias por l code me servira bastante