打印

[求助] 如何列出DL成员的Email地址

本主题由 mwpq 于 2007-11-7 08:53 关闭

如何列出DL成员的Email地址

能否通过脚本列出某个DL中所有成员的Emai地址。谢谢!

TOP

下面的脚本列出用户的基本信息,包括邮件地址
) R: r0 j8 L5 b* L; tOn Error Resume Next
' b9 I# a( S2 X7 q2 ]9 _( B7 N5 E9 m+ l
Set objUser = GetObject _
5 {9 e, X3 h& r% l) G ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")
5 ]: Y2 y/ h0 u9 B! s2 N/ f, ]. C, C7 i7 i" \( y( N
( D. N! N: l$ {0 i0 X) z
WScript.Echo "First Name: " & objUser.givenName% b. v8 T3 n+ H. q
WScript.Echo "Initials: " & objUser.initials, s1 ]# ?5 i. N+ t
WScript.Echo "Last Name: " & objUser.sn4 K( J; e1 V# ~- s* [
WScript.Echo "Display Name: " & objUser.displayName
, _- W) \% s8 f; zWScript.Echo "Office: " & _
( [$ t5 U5 }0 x3 A objUser.physicalDeliveryOfficeName$ f+ F' |1 t1 \* j
WScript.Echo "Telephone Number: " & objUser.telephoneNumber* \ ]& U1 J5 a% q1 f5 ^+ w& j
WScript.Echo "Email: " & objUser.mail
4 r- s5 J: |! q3 `3 C# V* \WScript.Echo "Home Page: " & % z0 D# Y. }$ v" M8 P! }
P, U8 |6 z5 f: W- q7 \1 H
For Each strValue in objUser.description
8 d; K9 P0 O6 N/ g WScript.Echo "Description: " & strValue( e2 @8 N, E# x' I- Z$ u
Next& V; n- ]: u7 u. N7 S9 m
, u5 x$ X" G& @( X* ?4 z/ W: m. V
For Each strValue in objUser.otherTelephone: E# A) p& E# y+ ]3 {+ `, [
WScript.Echo "Other Telephone: " & strValue
7 j; x7 L4 f5 I4 O* x6 Y$ ]/ {Next/ _2 K( w5 n' c; h$ z) D: F

+ E' A' Y# u& ?For Each strValue in objUser.url Z' A8 c% X0 f
WScript.Echo "URL: " & strValue
/ ?$ l) H$ D VNext8 G" g2 T2 l* f3 c/ l0 }7 y& b

5 j3 t( \8 m' X% Z: f* V6 X) T/ l( a( h/ C' X; f9 ~
下面的脚本列出某个组中的所有成员
. {: t4 l7 x+ n* e- f- ?On Error Resume Next# u& m/ ?7 A* N

( F$ ^2 W; m4 ?, }Set objGroup = GetObject _# X/ R/ U! m% w) P! w! }1 w
("LDAP://cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com")3 e& X, H P7 o |9 q7 S0 h
objGroup.GetInfo
8 }0 O% M. [5 w0 k+ I1 S
% y+ B5 g3 q) _; H' HarrMemberOf = objGroup.GetEx("member")
" ]6 }2 Y8 l( {% O, v$ l9 b 2 Y" K f- i5 B6 m4 t
WScript.Echo "Members:"
( F% X, W; b) K( y; O2 Y, a. |4 V* CFor Each strMember in arrMemberOf
! l) M+ ?9 f# o WScript.echo strMember
. @2 o% E+ V8 ?2 }8 [6 Q5 J+ l3 vNext, }9 Z& N0 D4 a3 H2 n, l0 V2 Z
1 s6 f# ^7 G( x+ j8 Z. h* @

5 K! u$ } E* h9 ~" L您可以根据这两个脚本来实现您所需要的功能
《无量寿经·第十八愿》言:
设我得佛,十方众生,至心信乐,欲生我国,乃至十念,若不生者,不取正觉。唯除五逆,诽谤正法。

TOP

首先,谢谢mwpq版主,另外问一下,第二个脚本对DL中还嵌套多层DL适不适用?
! W3 T6 r8 M4 i- G谢谢!

TOP

不客气,我没有试验过,但是觉得应该不适用
《无量寿经·第十八愿》言:
设我得佛,十方众生,至心信乐,欲生我国,乃至十念,若不生者,不取正觉。唯除五逆,诽谤正法。

TOP

谢谢,星期一上班去试试。

TOP