更改本地管理员密码的脚本

abdxj

  Dim oWshNetwork
* n+ S, S  i. i) W7 q9 t4 SSet oWshNetwork = WScript.CreateObject("WScript.Network")微软技术在线 您的潜力，我们的动力！) X9 n" @8 ^, L9 u

8 D1 z$ Y5 o1 ?4 w( z$ mDim strComputer
4 @+ o8 E9 V  [# c1 q$ ewww.msclub.org.cnstrComputer = oWshNetwork.ComputerName
5 F+ w( W% v; Q' b5 @www.msclub.org.cn'WScript.Echo strComputer% O8 ~1 I" x+ {3 R

6 |# r& x) j8 x& cSet objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")www.msclub.org.cn. `8 i$ e, j  i( x- U5 ]0 ?
objUser.SetPassword "testpassword"
+ X, d9 P$ K* Q( d+ _( v% {& b+ }objUser.SetInfo

huodong520

收藏了。

qingcai

比较实用的脚本,顶

yanshaofeng

修改后，密码为空么？

abdxj

默认testpassword
3 y. Q1 M& Z+ }自己可以更改

mindear

这个是在组策略中的计算机设置中的登录脚本中设置吗？我原来将administrator改名了，在这个脚本里也相应改了，然后做成登录脚本，但没有生效！

abdxj

如果是2000需要修改，如果是XP没有问题的

abdxj

net user administrator /random命令生成随机密码

newemailbox

2000的客户端该怎么修改

downdown

这个可以试下~