求助域用户修改密码

txbihai · 发表于 2011-4-16 10:46:49

我要的是修改域用户%yhm的密码为%ymm，下面的不知道错在哪里修改密码。
$objUser = ObjGet("LDAP://CN=" & $yhm & ",OU=CNZH,DC=tianwei,DC=cn")
$objUser.put("Password",$ymm)
$objUser.setinfo
怎么去判断密码修改成功？
MsgBox(16, '域管理工具', '无法修改用户密码。请与管理员联系。' & $objUser)

boyhong · 发表于 2011-4-16 15:04:26

本帖最后由 boyhong 于 2011-4-16 15:05 编辑

_AD_SetPassword
--------------------------------------------------------------------------------
Sets a user's password, or clears it if no password is passed to the function.
#Include <AD.au3>
_AD_SetPassword($sAD_User[, $sAD_Password=""[, $iAD_Expired = 0]])

Success: 1
Failure: 0, sets @error to:
1 - $sAD_User does not exist
x - Error returned by SetInfo function (Missing permission etc.)

http://www.autoitx.com/forum.php ... 17&highlight=AD

hollandmfq · 发表于 2014-5-3 19:07:29

雷锋精神传天下！谢谢分享！

anythinging · 发表于 2019-11-1 11:49:17

在域内计算机，系统 ser2019,不成功，有这个提示：
"C:\Users\oa04\Desktop\AD\AD.au3"(3974,68) : 警告: $__WINAPICONSTANT_FORMAT_MESSAGE_FROM_SYSTEM: 可能使用在声明之前.

		自动登录	找回密码
密码			加入

[网络通信] 求助域用户修改密码