• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1835
  • Last Modified:

VB script to get the group name's description in Active Directory

With the following code I can get the groups that belong to an OU. Now I would like to add some code to the one below so I can get the group's description. Any help will be very much appreciated.

strGroupDN = "GroupDN"
strSpaces = ""
set dicSeenGroupMember = CreateObject("Scripting.Dictionary")
Wscript.Echo "GROUP:"
Wscript.Echo ""
Wscript.Echo "MEMBERS:"
DisplayMembers "LDAP://" & strGroupDN, strSpaces, dicSeenGroupMember
Function DisplayMembers (strGroupADsPath, strSpaces, dicSeenGroupMember)
set objGroup = GetObject(strGroupADsPath)
for each objMember In objGroup.Members
Wscript.Echo strSpaces & objMember.Name
if objMember.Class = "group" then
if dicSeenGroupMember.Exists(objMember.ADsPath) then
Wscript.Echo strSpaces & "already seen group member" & _
"(stopping to avoid loop)"
else
dicSeenGroupMember.Add objMember.ADsPath, 1
DisplayMembers objMember.ADsPath, strSpaces & "  " , _
dicSeenGroupMember
end if
end if
next
End Function
0
kt2003
Asked:
kt2003
  • 3
  • 2
1 Solution
 
omgangIT ManagerCommented:
objGroup.Description

OM Gang
0
 
kt2003Author Commented:
omgang. Thank you for your quick response. I don't know much about VB script. Could you please write some code.
0
 
omgangIT ManagerCommented:
Outputs Group name, Group e-mail addy & Group Description
OM Gang
Option Explicit
Dim strMember, strDNSDomain, strContainer, strPath, strFileName
Dim objGroup, objRootDSE, objParentOU, objFSO, objFile
Dim arrMemberOf
 
strContainer = "OU=Groups,OU=IT, "
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
 
strPath = "C:\temp\"
strFileName = Trim(strContainer) & ".txt"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strPath & strFileName)
 
Set objParentOU = GetObject("LDAP://"& strContainer & strDNSDomain)
objParentOU.Filter = Array("Group")
 
For Each objGroup in objParentOU
      objFile.WriteLine objGroup.CN & "|" & objGroup.Mail & "|" & objGroup.Description
Next
 
WScript.echo "Completed.  See output file " & strPath & strFileName
 
WScript.Quit
 
objFile.Close
 
Set objFile = Nothing
Set objGroup = Nothing
Set objParentOU = Nothing
Set objFSO = Nothing
Set objRootDSE = Nothing

Open in new window

0
 
kt2003Author Commented:
omgang, could please integrate the objGroup.Description with the code that I wrote? Many thanks in advance.
0
 
kt2003Author Commented:
omgang. It is ok. I have already changed the script and it is working.
Thank you.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: MCSA MCSE Windows Server 2012

This course teaches how to install and configure Windows Server 2012 R2.  It is the first step on your path to becoming a Microsoft Certified Solutions Expert (MCSE).

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now