Is User member of AD group - VBA

Came across this small function which returns true or false based on the user belonging to a AD group. No need to add a reference to any dll. Very short and works great.

Quote:

Function IsMember(strDomain As String, strGroup _
As String, strMember As String) As Boolean
Dim grp As Object
Dim strPath As String

strPath = "WinNT://" & strDomain & "/"
Set grp = GetObject(strPath & strGroup & ",group")
IsMember = grp.IsMember(strPath & strMember)
End Function

Thanks to Greg Reddick

Link: http://my.advisor.com/doc/08691