USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  identificar se o usuário logado é administrador nos Windows XP e 2000 através do VB
Postada em 5/4/2006 por Geronimo            
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long

Private Function IsAdmin() As Boolean

    IsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&))

End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página