منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ضع هذه الداله
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long

ثم استدعي الداله
فاذا رجع لك رقم 1 فهو Administrator

If IsUserAnAdmin()=1 Then
    MsgBox " Administrator"
Else
    MsgBox "User"
End If