That's cool. One thing that might make it easier is to add logic to find the group by short name vs. DN. I haven't seen too many users that can find DN's for anything much less a DG.
Here's some sample for that. http://www.houseofqueues.com//CodeSamples/FindMembers.html Seems to me that adfind had something that might be useful. But it escapes me at the moment ;) Al -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ayers, Diane Sent: Monday, December 13, 2004 3:25 PM To: [EMAIL PROTECTED] Subject: RE: [ActiveDir] Printing Distribution Lists here's my "I'm not a programmer but I play one on TV" approach... Dumps to an excel spreadsheet. Easily modifiable to even the programming challenged like me... Diane ------------------------------------------------------------------- On Error Resume Next CRLF=CHR(13)+CHR(10) strADName = InputBox("Enter Complete LDAP DN for desired group","Group Name?","CN=Listname,OU=Groups,DC=Company,DC=COM") Set GroupObj = GetObject("LDAP://"; & strADname) wscript.echo ("Getting group Membership for " & strADName) if Err.Number <0 then wscript.echo "Failed to connect to " & strADName wscript.quit end if set memberlist=GroupObj.Members Set objExcel = WScript.CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.ActiveSheet.Name = GroupObj.SAMAccountName objExcel.ActiveSheet.Range("A1").Activate objExcel.ActiveCell.Value = "ID" 'col header 1 objExcel.ActiveCell.Offset(0,1).Value = "Last Name" 'col header 2 objExcel.ActiveCell.Offset(0,2).Value = "First Name" 'col header 3 objExcel.ActiveCell.Offset(0,3).Value = "Address" 'col header 4 objExcel.ActiveCell.Offset(0,4).Value = "Office" 'col header 5 objExcel.ActiveCell.Offset(0,5).Value = "Internal Phone" 'col header 6 objExcel.ActiveCell.Offset(0,6).Value = "External Phone" 'col header 7 objExcel.ActiveCell.Offset(0,7).Value = "Mobile" 'col header 8 objExcel.ActiveCell.Offset(1,0).Activate 'move 1 down for each member in memberlist If Len(member.SAMaccountName)=4 then objExcel.ActiveCell.Value = member.SAMAccountName objExcel.ActiveCell.Offset(0,1).Value = member.sn objExcel.ActiveCell.Offset(0,2).Value = member.givenName objExcel.ActiveCell.Offset(0,3).Value = member.streetAddress objExcel.ActiveCell.Offset(0,4).Value = member.physicalDeliveryOfficeName objExcel.ActiveCell.Offset(0,5).Value = member.telephoneNumber objExcel.ActiveCell.Offset(0,6).Value = member.otherHomePHone objExcel.ActiveCell.Offset(0,7).Value = member.mobile objExcel.ActiveCell.Offset(1,0).Activate End if next set GroupObj = Nothing wscript.echo "Done" wscript.quit ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Christine Allen Sent: Monday, December 13, 2004 11:49 AM To: '[EMAIL PROTECTED]' Subject: [ActiveDir] Printing Distribution Lists Running Exchange 2003 and ad 2000 (not on the same box). Is there a way to allow user to print out DL membership? Thanks. -Christine Christine N. Allen Citrix/Windows 2000 Engineer BMC Healthnet Plan One Design Center Place Boston, MA 02210 Work: 617-748-6034 Cell: 617-290-4407 List info : http://www.activedir.org/mail_list.htm List FAQ : http://www.activedir.org/list_faq.htm List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
