Option Explicit
9 g) w+ r5 _+ ]* I7 a7 C' Z+ x& ?: q% M' ^* q' f2 U
'On Error Resume Next
* C+ \% K9 G6 B& K$ u' s
$ ]. n$ K& N7 g: j2 x& kMsgbox "本操作将修改当前在线的客户端的本地Administrator密码", 1, "请注意"
( l. e* c/ s6 H7 ^6 Z
9 r9 n" G9 `8 {4 s5 ]" eDim objOU
) d+ Q6 \( _/ a* r7 ^" A/ p6 c( T2 | v' {7 O
Set objOU = GetObject("LDAP:// CN=computers, DC=sms2003chs, DC=net")
~: A- t: D5 `& }% BobjOU.Filter = Array("Computer"), o1 e1 v, {; e% t+ Q
4 T+ N$ f6 q- C* d! `9 I3 o- W; `2 {
Dim objItem
2 f0 f* c6 U2 N$ Z4 G# Z" kFor Each objItem in objOU! L2 Z. Q& r2 l' v. |
Dim StrComputer微软技术在线 您的潜力，我们的动力！/ K2 p; m4 A: ?( O5 s( H: U
strComputer = objItem.CNwww.msclub.org.cn- U+ [0 G) v- R8 y! w. Z
Msgbox strComputerwww.msclub.org.cn+ t# ~. _' d# C$ X8 e" f
Dim objUser微软技术在线 您的潜力，我们的动力！$ y- ]4 J' A. S
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")4 r9 e2 [8 S( N; ~5 y
1 [8 W! J2 p9 w2 U3 Z) `+ oobjUser.SetPassword("abc@123")
8 ]+ t6 [, M& C, a# p( s, `
+ h$ W) r5 g- t! e; o9 O8 UNext微软技术在线 您的潜力，我们的动力！8 I( W2 F8 c4 w5 k4 _. e
+ G7 [' n: y5 o3 pMsgbox "本次操作已经成功完成", 0, "恭喜您"www.msclub.org.cn. t3 I. B1 M$ R4 \4 S
www.msclub.org.cn6 F! Q0 |6 ?% |. w6 d1 Y
--------------------------------------------------------------* f% A$ K2 f% C( j* ~% x; S
根据你的情况更改DC和设置自己的密码 |
发表于 2006-11-28 13:41
|