标题:
在域控上修改所有在线客户端本地管理员密码
[打印本页]
作者:
newemailbox
时间:
2006-11-28 13:41
标题:
在域控上修改所有在线客户端本地管理员密码
Option Explicit
9 a3 s6 i2 j' q. r0 g2 T
www.msclub.org.cn* d5 s# N; v" b0 q' D6 H2 G
'On Error Resume Next
; u$ [# c% s8 [! L+ }( ~
$ y/ F v8 { k" g7 q- V" |- Z
Msgbox "本操作将修改当前在线的客户端的本地Administrator密码", 1, "请注意"
" I# W$ U3 l1 y" g: m# F
/ A: W) z% k. I3 O1 [( {0 P7 j/ ]
Dim objOU
6 ^8 d/ n7 }# n, n
& ?7 c: ?0 L# |) |) n, ~- C
Set objOU = GetObject("LDAP:// CN=computers, DC=sms2003chs, DC=net")
) J5 x8 q. i- U+ K+ ^% g
objOU.Filter = Array("Computer")
. c X6 Z* |# E, O6 @& x% Q1 Z2 @
" J2 s$ t _: v+ f* } G
Dim objItem
3 S* K, S2 Q1 r0 c0 J) Y
For Each objItem in objOU
$ d8 j/ U9 F: ]. V: Y) O# G0 i! D
Dim StrComputer
' _( W2 i `% L2 a. ~; }3 ]% I' hwww.msclub.org.cn
strComputer = objItem.CN
6 b, a; r& {( C. z5 |" z8 U+ `
Msgbox strComputer
' d% b p: i; h, z. y
Dim objUser
; B( A" i: x5 C, s, h/ |
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")
! O+ p5 k6 @3 d: S5 ^! e
www.msclub.org.cn# u& v6 i: J/ c
objUser.SetPassword("abc@123")
/ @( w1 v0 x2 I; u: x8 P* rwww.msclub.org.cn
7 D, Y1 V! G" w) ?微软技术在线 您的潜力，我们的动力！
Next
8 j; Y2 `0 y$ j( V: u: \% |
5 ]( O% O+ Q& V2 _& N. ]/ [- O
Msgbox "本次操作已经成功完成", 0, "恭喜您"
$ H, U0 r- {; X) a; F- f微软技术在线 您的潜力，我们的动力！
Y. L( g& p; I微软技术在线 您的潜力，我们的动力！
--------------------------------------------------------------
4 h' c3 i4 e4 ]+ |, Y* J
根据你的情况更改DC和设置自己的密码
欢迎光临 微软技术在线 您的潜力，我们的动力！ (http://www.msclub.org.cn/)
Powered by Discuz! 7.0.0
