Ejemplos usando el Api de windows para Visual basic

11- Saber si se es un administrador del equipo

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Dos ejemplos de como averiguar si se es un administrador del sistema mediante las funciones OpenSCManager e IsNTAdmin

El primer ejemplo utiliza la función Api OpenSCManager. si la función retorna como valor un 0, no se es un administrador

Código fuente en un form

Option Explicit ' constantes '''''''''''''''''''''''''''''' 'Constantes para usar con OpenSCManager Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const GENERIC_EXECUTE = &H20000000 ' declaraciones Api '''''''''''''''''''''''''''''' 'Función Api OpenSCManager Private Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" ( _ ByVal lpMachineName As String, _ ByVal lpDatabaseName As String, _ ByVal dwDesiredAccess As Long) As Long 'Función Api CloseServiceHandle Private Declare Function CloseServiceHandle Lib "advapi32.dll" ( _ ByVal hSCObject As Long) As Long Private Sub Form_Load() Dim Admin As Long Admin = OpenSCManager(vbNullString, _ vbNullString, _ GENERIC_READ Or GENERIC_WRITE Or GENERIC_EXECUTE) 'Si la función retorna 0 no es Administrador If Admin = 0 Then MsgBox "No es un Administrador", vbInformation Else CloseServiceHandle Admin MsgBox "Es un administrador", vbInformation End If End Sub

Ejemplo 2

Saber si el usuario actual es un administrador del sistema , usando la función del Api IsNTAdmin

Este otro , utiliza la función IsNTAdmin para verificar si se es un administrador

El ejemplo también muestra un mensaje mediante un MsgBox.

Código fuente en un formulario:

Option Explicit 'Función Api IsNTAdmin Private Declare Function IsNTAdmin Lib "advpack.dll" ( _ ByVal dwReserved As Long, _ ByRef lpdwReserved As Long) As Long Private Sub Form_Load() MsgBox "Administrador de este equipo: ? " & _ CBool(IsNTAdmin(ByVal 0&, ByVal 0&)), vbInformation End Sub

Enlaces relacionados

Obtener usuario de windows

Buscar en Recursos vb