Get a particular OU Group name with Description and created date.

Any script that can do this

here,

just change line 1 with info from your group

strContainer = "CN=yourGroup,OU=YourOU,DC=YourDomain,DC=YourSufix"
Set objGroup = GetObject ("LDAP://" & strContainer)
WScript.Echo "Description: " & objGroup.Get("Description")
WScript.Echo "Created: " & objGroup.Get("whenCreated")
                                              

1:
2:
3:
4:

Thanks i gte this

---------------------------
Windows Script Host
---------------------------
Script:      D:\Domain_Groups_Description_Created_Date.vbs
Line:      3
Char:      1
Error:      The directory property cannot be found in the cache.

Code:      8000500D
Source:       Active Directory

---------------------------
OK  
---------------------------

The groups are on the root Domain

Maingroup
Subgroup
Subgroup
Subgroup
I need to query from a system on Subgroup to root group
I do have permissions

Replace line 3 with this one

WScript.Echo "Description: " & Join(objGroup.Get("Description"))

                                              

1:

Still get the same error

this script will only get the info from 1 Group, and you have to pass it's distinguished Name on line1.

I'll get right back to you with the query to search for every group

I want for just 1 OU
I have the code as this changed

strContainer = "OU=Che bution Groups,DC=group,DC=co,DC=uk"
Set objGroup = GetObject ("LDAP://" & strContainer)
WScript.Echo "Description: " & Join(objGroup.Get("Description"))
WScript.Echo "Created: " & objGroup.Get("whenCreated")

again, change line1:

ex.: for the experts.com domain:

strContainer = "DC=experts,DC=com"

If you want to narrow the search from the root OU "groups":

strContainer = "OU=groups,DC=experts,DC=com"

strContainer = "OU=MyOU,DC=myDomain,DC=MySuffix"
On Error Resume Next
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 
objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://" & strContainer &"' WHERE objectCategory='group'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strDN = objRecordSet.Fields("distinguishedName").Value
	Set objGroup = GetObject ("LDAP://" & strDN)
	WScript.Echo "Name: " & objGroup.Get("cn")
	WScript.Echo "Description: " & objGroup.Get("Description")
	WScript.Echo "Created: " & objGroup.Get("whenCreated")
	Set objGroup = Nothing
	objRecordSet.MoveNext
Loop

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

ok

Line 1: strContainer = "OU=Che bution Groups,DC=group,DC=co,DC=uk"

you should get the list of groups in that OU with the info you need

the first script would work for 1 group within 1 OU, like Group MyGroup in OU Che bution Groups:
strContainer = "CN=MyGroup,OU=Che bution Groups,DC=group,DC=co,DC=uk"


got it?

I got me message.So removed the On error portion and got this

---------------------------
Windows Script Host
---------------------------
Script:      D:\Domain_Groups_Description_Created_Date.vbs
Line:      13
Char:      1
Error:      A referral was returned from the server.
Code:      8007202B
Source:       Provider

---------------------------
OK  
---------------------------

as refered in:

http://www.computerperformance.co.uk/Logon/code/code_8007202B.htm


check the spelling of the LDAP object

But the path i mentioned is correct as per the Root domain Ou path .

DC=group ?

in: strContainer = "OU=Che bution Groups,DC=group,DC=co,DC=uk"


is your domain called group.co.uk ?

yes thats right

Hi Chandru. It works but i need the description also from the group. i get the created date only

Replace the first line with second line

Wscript.Echo "Group=" & Mid(objGroup.Name,4) & Space(50 - Len(Mid(objGroup.Name,4))) & objGroup.whencreated

Wscript.Echo "Group=" & Mid(objGroup.Name,4) & Space(50 - Len(Mid(objGroup.Name,4))) & objGroup.whencreated & " " & objgroup.description

Thanks can i get a seperator for each or in a colum in a csv format. not able to delimit

Change this line to

Wscript.Echo "Group=" & "," & objGroup.whencreated & "," & objgroup.description

In colum A i get this
Group=
not the group name now

Try this

Wscript.Echo "Group=" & Mid(objGroup.Name,4) & "," & objGroup.whencreated & "," & objgroup.description

Thank U Chandru and all :-)