Check if user has Administrator rights 2

[dgschnei]

How can find out if the user has administrator rights using VB and/or VBscript?

If the user does not have administrator's access rights, I simply want to display a message and quit.

Thanks

PS:
I can get the user's name and computer's name using
VBA.Environ("USERNAME&quot, Function GetUserName using advapi32.dll, Function GetComputerName using kernel32...

 

[vb5prgrmr]

To do this (on win2k) you will need to use the NetLocalGroupGetMembers API.

Good Luck

 

[teh215]

You could also use the undocumented IsNTAdmin API.

Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long

msgbox "Are you an Administrator? " & CBool(IsNTAdmin(ByVal 0&, ByVal 0&))


Rob

 

[dgschnei]

Thank you for your help.

It works for me, you have been of great help.

It is a very good forum, I will let people know about it.

It seems you guys saved my life

:O)

 

[mattKnight]

teh215

Nice one!

Matt

 

[JasZ]

I've read your conversations,it's really a great help! But I want to ask if the undocumented IsNTAdmin API will work for other Windows Versions.Will it Work???