This VBS Script will allow you to determine if a specified user is a member of a specified domain group.
VBS Script:
strDomain = InputBox ("Enter Domain Name")
strGroup = InputBox ("Enter Group Name")
strUser = InputBox ("Enter User Name")
Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",User")
Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",Group")
If objGroup.IsMember(objUser.AdsPath) Then
MsgBox UCase(strUser) & " Is A Member Of " & UCase(StrDomain) & "\" & UCase(strGroup)
Else
MsgBox UCase(strUser) & " Is A Not Member Of " & UCase(StrDomain) & "\" & UCase(strGroup)
End If
No Comments