如何导AD成员隶属于那个组或者OU

大家好！如何导出AD内某个成员其隶属于那个组的名称！; {9 s# a8 ~9 B# X# W
就是说：
" _. k5 V: L. H假设user1，属于组110OU，group1，group2# F, p. F& s: a. d. S  K
那么我想实现一个功能就是通过user1查询到
' e, S9 O0 k! q8 |8 `% Ruser 110ou，group1，group2  ?( r, \$ V, B# p4 N
或者实现只能查询其所隶属于的安全组也行
9 j4 m: Z) W0 x" Y& u( Zuser  group1，group2

) @3 o4 i  y9 l9 }+ b: @. Q
on error resume next7 F, s! C* H1 Q8 V
Dim strUserPath1 F1 b4 p  H9 ~$ j% |# s* A

4 o: n4 o& N+ j1 A% `+ qSet objSysInfo =CreateObject("ADSystemInfo"); B2 s2 t% k. A- d% [5 a) T
strUserDN = objSysInfo.UserName1 T+ \6 b' [0 ^2 f
strUserPath = "LDAP://" &strUserDN
7 C* ]- N0 ~3 nSet objUser = GetObject(strUserPath)
+ V: f$ w) F- o7 o7 [: p- \+ q 3 v' L* S- D+ U
For Each strGroupin objUser.MemberOf
, ^5 z/ ?8 B' j: @6 z8 u) g' `0 w0 M, m, M' k* _, D
strGroupPath = "LDAP://" &strGroup
* O- ^2 r1 |5 j7 E! q
: _5 u) K- w0 F. L2 t  [. I- r
: m2 V2 k8 `# v: l1 S+ O" ]# x; V5 ESet objGroup = GetObject(strGroupPath
: s( Z. i7 a: b) A+ C0 X( w5 c. {. I4 T# r" Q9 r" {

; k9 X  l$ M7 H5 g0 t& S2 M5 dstrGroupName =objGroup.CN
3 f- x/ B' m2 n$ s8 J: P  W# o- ywscript.echostrGroupName, V0 t, H9 e# \/ L. ^9 P0 q1 e
Next3 H! h& K+ C& V2 c5 M) T9 F

& I) M( d+ Y3 q5 N# Y" A5 Awscript.echo “END”

' P0 w! E- x3 G1 d" [* t重发一下，复制后格式乱了！
% \) g8 G: P* n! m: N) bon error resume next1 u4 ^: {1 V- Q( C) U4 m
Dim strUserPath
8 w* ?& |+ \: m0 S& ~, d4 `0 L
: L  P  V7 L: ^# g+ t8 j: pSet objSysInfo =CreateObject("ADSystemInfo"), U* H) j/ A5 @# n" k) _
strUserDN = objSysInfo.UserName
$ O1 ~: f, S5 B7 R2 q
1 ]4 P, F. X( I/ I1 |* @3 m: y9 }strUserPath = "LDAP://" &strUserDN
+ f7 ~% r6 L  h4 TSet objUser = GetObject(strUserPath)# K3 B- m/ r) _+ D
, |5 j7 [4 f2 e2 f
For Each strGroup in objUser.MemberOf
7 ]! M  _6 Z4 i: d
; x8 H$ {) b/ X! v# I/ IstrGroupPath = "LDAP://" &strGroup
( \$ H+ C. k  \
9 y3 G3 B  Q  O6 d, \* U, X5 |! m$ q' s; z$ g! Z" G5 f
Set objGroup = GetObject (strGroupPath)
* }3 D. ~1 j6 _3 V+ G; p# v0 R9 `

1 {" w" @! K6 B! U( fstrGroupName =objGroup.CN( m. L/ I! O' c5 l# ?
wscript.echo strGroupName* k+ b, p+ [, M3 u, R
Next
8 G& O# C$ b: s( ~% h3 a
5 y# D1 w. }7 A7 L# v- gwscript.echo "END"

2 _& Z; S* Y6 p; S) @; c
还有一种方法，这个需要手动输入CN名称，这个更灵活，不是提取本机登录的域户：# r" W! ?: O. o) `& @
on error resume next# k  _( G, Q7 z! ?! q8 m+ K5 E! K

* j4 P( X( L' z! i1 O* `Dim strUserPath
; ^" S2 e0 r: i0 b/ p; t: e' Q  C' }5 E! _- L
Set objSysInfo =CreateObject("ADSystemInfo")6 b* T2 D" C- a8 a( b: `( x8 Q" V

7 x  t( d+ G' V. l6 c/ p+ T- y2 n" E2 u
userCN = inputbox("请输入CN","用户CN","CN=")' v; J. a& a0 c4 ^8 c; H! F# s7 R
strUserDN = userCN & ",OU=DLadmin,OU=DL,OU=City,DC=yu2,DC=51job,DC=com"+ b5 E3 m# U! F, b

# f% ^+ E2 e* t; {1 i! ]  Z# A2 @' O1 U% b
strUserPath = "LDAP://" &strUserDN4 x$ V* r; R- V/ g3 @4 \
Set objUser = GetObject(strUserPath)
  W: Y2 i( h% \8 l, a) W! u2 X  g# \+ z% m
For Each strGroup in objUser.MemberOf0 S2 x" L6 b7 ?0 U( ]

: R) l+ h, |7 I* T" M; x7 T  xstrGroupPath = "LDAP://" &strGroup+ ^: j: ?% @  r9 S- t9 n3 X& H: B
Set objGroup = GetObject (strGroupPath)8 j( L5 J# a. F0 ?  @& K) k' F
strGroupName =objGroup.CN
- f; \9 N+ t1 a' B/ L' `5 S% L0 K+ _wscript.echo strGroupName
# j2 r8 C* h9 ~0 KNext
1 L2 `, ^3 ?+ k- e- f5 c6 F5 I; X9 E; T6 ]& A  y+ X2 s, {0 R* e
wscript.echo "END"