Visual Basic > Code Snippets sample source codes

Visual Basic Code > 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