Solved

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

Posted on 2008-06-24
5
1,791 Views
Last Modified: 2008-10-14
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
Comment
Question by:kt2003
  • 3
  • 2
5 Comments
 
LVL 28

Expert Comment

by:omgang
ID: 21856481
objGroup.Description

OM Gang
0
 

Author Comment

by:kt2003
ID: 21856524
omgang. Thank you for your quick response. I don't know much about VB script. Could you please write some code.
0
 
LVL 28

Accepted Solution

by:
omgang earned 500 total points
ID: 21856547
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
 

Author Comment

by:kt2003
ID: 21856657
omgang, could please integrate the objGroup.Description with the code that I wrote? Many thanks in advance.
0
 

Author Comment

by:kt2003
ID: 21856902
omgang. It is ok. I have already changed the script and it is working.
Thank you.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Recently I finished a vbscript that I thought I'd share.  It uses a text file with a list of server names to loop through and get various status reports, then writes them all into an Excel file.  Originally it was put together for our Altiris server…
This is an addendum to the following article: Acitve Directory based Outlook Signature (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24950055.html) The script is fine, and works in normal client-server domains…
Delivering innovative fully-managed cloud services for mission-critical applications requires expertise in multiple areas plus vision and commitment. Meet a few of the people behind the quality services of Concerto.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

937 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now