21、高级脚本技术：ADSI 与 ADO 的深度应用

高级脚本技术：ADSI 与 ADO 的深度应用

1. 使用 WinNT 提供程序更改用户密码

脚本的主要部分使用 WinNT 提供程序，以下是示例代码：

Dim oUser 
On Error Resume Next 
Set oUser = QueryADSI(sName,"WinNT://" & _ 
 sName & "/" & WScript.Arguments.Named("user") & ",user", "") 
If Not IsObject(oUser) Then 
    WScript.Echo " *** Couldn't retrieve user from " & sName 
Else 
    On Error Resume Next 
    oUser.setpassword WScript.Arguments.Named("password") 
    If Err <> 0 Then 
        WScript.Echo " *** Couldn't change password on " & sname  
        WScript.Echo " " & Err.Description 
    Else 
        Verbose " Changed password on " & sName 
    End If  
End If

此脚本的功能是连接到当前计算机，检索指定的用户帐户并更改其密码。其操作步骤如下：
1. 声明变量