更改 Windows 本地管理员密码

[ 2005/07/09 09:22 | by gOxiA ]

描述

绑定到计算机 MyComputer 上的本地管理员帐户，并且将该帐户的密码更改为 testpassword。

有关使用本地用户帐户的详细信息，请单击 此处。


支持平台

Windows XP

是

Windows Server 2003

是

Windows 2000

是

Windows NT 4.0

是，需要安装Active Directory Client Extensions

Windows 98

是，需要安装Active Directory Client Extensions


脚本代码
strComputer = "MyComputer"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "testpassword"
objUser.SetInfo
PowerShell & Scripts | 评论(0) | 引用(0) | 阅读(5133)

创建 1,000 个用户帐户

[ 2005/07/09 09:20 | by gOxiA ]

描述
演示脚本在 Active Directory 内的用户容器中创建 1,000 个用户帐户（名为 UserNo1、UserNo2、UserNo3 等等）。此脚本用于测试需要多个用户帐户的方案。


脚本代码
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))
For i = 1 To 1000
Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
Next
WScript.Echo "1000 Users created."
PowerShell & Scripts | 评论(0) | 引用(0) | 阅读(4716)

要求更改密码

[ 2005/07/09 09:16 | by gOxiA ]

描述

强制要求用户在下一次登录时更改密码。


脚本代码


Set objUser = GetObject _
("LDAP://CN=myerken,OU=management,DC=Fabrikam,DC=com")
objUser.Put "pwdLastSet", 0
objUser.SetInfo
PowerShell & Scripts | 评论(0) | 引用(0) | 阅读(4563)
分页： 444/474 第一页 上页 439 440 441 442 443 444 445 446 447 448 下页 最后页 [ 显示模式： 摘要 | 列表 ]