Sorry about that, I was writting over the group names:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>AD GroupReporter</title>
<script language="vbscript">
Sub QueryMethod
If UserOption(0).Checked Then
strUser = window.prompt("Please enter the username to query.", "%username%")
If IsNull(strUser) Then
MsgBox "You clicked the Cancel button"
Else
'set up the AD connection
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
'the AD query
DNC = GetObject("LDAP://RootDSE").Get("defaultNamingContext")
objCommand.CommandText = _
"SELECT Adspath FROM 'LDAP://" & DNC & "'" & _
" WHERE objectCategory='user' " & _
"AND sAMAccountName='"& strUser &"'"
'run the AD query and put the results in a recordset
Set objRecordSet = objCommand.Execute
'Validate the results
If objRecordSet.RecordCount = 0 Then
MsgBox "No membership data found. Possible problems include: " & VbCrLf & "- Invalid user name" & VbCrLf & "- User is a member of no groups, or is only a member of the primary group"
Exit Sub
End If
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
TxtADSPath.Value = objRecordSet.Fields("Adspath").Value
Set objUser1 = GetObject(objRecordSet.Fields("Adspath").Value)
Set objGroupList1 = GetGroups(objUser1)
statval.value = strUser & vbCrLf
For Each strGroup1 In objGroupList1.Keys
statval.value = statval.value & strGroup1 & vbCrLf ' this keeps the old value and adds the new
Next
End If
End If
If UserOption(1).Checked Then
Msgbox "This option will get group membership from a known group."
End If
If UserOption(2).Checked Then
MsgBox "This option will get group membership from the ACL of a specified directory."
End If
End Sub
Function GetGroups(objUser)
' Retrieve direct group memberships for a user and
' return a dictionary object of the memberships.
Dim objGroup
' Dictionary object for groups the user belongs to.
Set GetGroups = CreateObject("Scripting.Dictionary")
GetGroups.CompareMode = vbTextCompare
' Enumerate direct group memberships for user.
For Each objGroup In objUser.Groups
' Add each group to dictionary object.
GetGroups.Add objGroup.sAMAccountName, True
Next
End Function
Sub ExitHTA
self.close()
End Sub
</script>
<hta:application
applicationname="ADGroupReporter"
border="dialog"
borderstyle="normal"
caption="Active Directory Group Reporter"
contextmenu="no"
icon="myicon.ico"
maximizebutton="no"
minimizebutton="yes"
navigable="no"
scroll="yes"
selection="no"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
version="1.0"
windowstate="normal"
>
</head>
<body>
<!-- Query Method Radio Buttons -->
<input type="radio" name="UserOption" value="1">Get Group Membership from known user<BR>
<input type="radio" name="UserOption" value="2">Get Group Membership from known group<BR>
<input type="radio" name="UserOption" value="3">Get Group Membership from ACL on specified directory<BR>
<!-- Submit button -->
<input id="runbutton" class="button" type="button" value="Execute Query" name="execute_button" onclick="QueryMethod">
<p align="center">
<textarea rows="2" name="TxtADSPath" READONLY cols="75" style="text-align:center">AdsPath</textarea></p>
<p align="center">
<textarea rows="6" name="statval" READONLY cols="75" style="text-align:center">Status Box</textarea></p>
<p align="center">
<input type="BUTTON" name="button1" value="Exit" onclick=self.close>
</body>
</html>
As for the procedure I used in order to accomplish that, well this Function does that:
Function GetGroups(objUser)
' Retrieve direct group memberships for a user and
' return a dictionary object of the memberships.
Dim objGroup
' Dictionary object for groups the user belongs to.
Set GetGroups = CreateObject("Scripting.Dictionary")
GetGroups.CompareMode = vbTextCompare
' Enumerate direct group memberships for user.
For Each objGroup In objUser.Groups
' Add each group to dictionary object.
GetGroups.Add objGroup.sAMAccountName, True
Next
End Function
And objGroup.sAMAccountName is the common name for the group.
OldDog
