Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
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