Admin بودن يا نبودن اكانت

[Restlesa]

سلام بر همگي دوستان عزيز برنامه نويس
چه طوري مي تونم با استفاده از برنامه ام چك كنم كه كاربري كه برنامه رو سيستمش نصب شده با اكانت adminstrator لاگين كرده يا نه ؟؟؟؟

[محسن واژدی]

سلام علیکم
برای بررسی وضعیت admin کاربر از دستور زیر استفاده کنید:
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long

Private Sub Command1_Click()
MsgBox "Is admin? " & CBool(IsNTAdmin(0&, 0&))
End Sub

موفق باشید