导出域用户信息到EXCEL中
时间:2011-07-06
来源:互联网
大家好!!!请问大家如何把域中的域用户信息导出到EXCEL表格中??! U) M9 L& m2 Z a& [' _4 f) r" |
因为在客户端安装了一台打印监控软件,看到添加用户时可以自动连接域控(AD)读出域用户信息,不知用的什么技术,来此和各位大侠请教下!!
+ Y+ I% k0 H; Q# ?问题:域普通用户如何导出域中所有域用户信息(账号,姓名,mail)?????
因为在客户端安装了一台打印监控软件,看到添加用户时可以自动连接域控(AD)读出域用户信息,不知用的什么技术,来此和各位大侠请教下!!
+ Y+ I% k0 H; Q# ?问题:域普通用户如何导出域中所有域用户信息(账号,姓名,mail)?????
作者: 583398903 发布时间: 2011-07-06
On Error Resume Next6 F9 Y9 y& j# o5 ^; Q0 j
, ]; {9 |/ |* }9 D( K$ s+ e" _Set objGroup = GetObject _1 I& V& E7 }0 D; y3 ?) r
("LDAP://cn=test,ou=test,dc=contso,dc=com")
! {) Z- Q+ p* nobjGroup.GetInfo; D4 B( J% x* k, Y4 q3 V: a _' v
" @0 E6 F' {( u/ tarrMemberOf = objGroup.GetEx("member") z$ y8 j/ P/ ~0 b5 ^; B) p
! j2 H* W w- u- }3 U: |WScript.Echo "Members:"# A4 ?/ B1 H% [5 \' ^3 m" }
For Each strMember in arrMemberOf
3 W3 @' _, }) Y" J WScript.echo strMember
9 p$ x6 M& G9 S; \Next
8 I9 \8 g8 i0 f! o: z% k
8 U. |# S5 b0 N0 q2 f这是MS的一个示例脚本,请用& I0 E5 g) v7 F+ ?% E
. m) c+ Q1 K, L; R1 N
cscript scriptname.vbs > output.csv
5 B- o# U! L9 G* V4 _导出,然后再编辑下output.csv文件……
, ]; {9 |/ |* }9 D( K$ s+ e" _Set objGroup = GetObject _1 I& V& E7 }0 D; y3 ?) r
("LDAP://cn=test,ou=test,dc=contso,dc=com")
! {) Z- Q+ p* nobjGroup.GetInfo; D4 B( J% x* k, Y4 q3 V: a _' v
" @0 E6 F' {( u/ tarrMemberOf = objGroup.GetEx("member") z$ y8 j/ P/ ~0 b5 ^; B) p
! j2 H* W w- u- }3 U: |WScript.Echo "Members:"# A4 ?/ B1 H% [5 \' ^3 m" }
For Each strMember in arrMemberOf
3 W3 @' _, }) Y" J WScript.echo strMember
9 p$ x6 M& G9 S; \Next
8 I9 \8 g8 i0 f! o: z% k
8 U. |# S5 b0 N0 q2 f这是MS的一个示例脚本,请用& I0 E5 g) v7 F+ ?% E
. m) c+ Q1 K, L; R1 N
cscript scriptname.vbs > output.csv
5 B- o# U! L9 G* V4 _导出,然后再编辑下output.csv文件……
作者: z00w00 发布时间: 2011-07-06
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28