how can I check if the current User got Admin rights or not?

Daniel

Hello,

My name is Jian-Wei Yu. Thank you for using the Microsoft VB Newsgroups.

You can check if he is a member of Administrator group:

Please reference Active DS Type Library, and test the following code:

Dim objIADs As IADsUser
Dim objGrp As Object 'IADsGroup

Private Sub Command1_Click()

Set objIADs = GetObject("WinNT://Server/UserName,user")

For Each grp In objIADs.Groups
Debug.Print grp.Name 'List the group
Next

End Sub

Hope it helps. If you have any questions, please reply to this post.

Best Regards,  

Jian-Wei Yu
Microsoft Support

This posting is provided "AS IS" with no warranties, and confers no rights.