06-06-21, 07:45 AM
ضع هذه الداله
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
ثم استدعي الداله
فاذا رجع لك رقم 1 فهو Administrator
If IsUserAnAdmin()=1 Then
MsgBox " Administrator"
Else
MsgBox "User"
End If
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
ثم استدعي الداله
فاذا رجع لك رقم 1 فهو Administrator
If IsUserAnAdmin()=1 Then
MsgBox " Administrator"
Else
MsgBox "User"
End If