Visual Basic > Code Snippets

Check for admin rights for XP and 2000

Check for admin rights for XP and 2000

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

Private Sub Form_Load() 

Dim blnAdmin As Boolean 
blnAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) 

end sub