答案:Set oUser = GetObject("WinNT://machinename/username")
oUser.ChangePassword "oldpassword", "newpassword"
oUser.SetInfo
Set oUser = Nothing
If (err.number <> 0) Then
It Failed!
Else
It was successful!
End if
上一个:WSH Script to remove un-needed IIS Script-Mappings using ADSI
下一个:最新贡献:使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录(旧帖整理)