添加active ds type libarary为引用项目
'login check
Private Sub Login_Click()
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain
On Error GoTo failed
Set dso = GetObject("WinNT:")
Set domain = dso.OpenDSObject("WinNT://module.com.cn", "1030157", "123", ADS_SECURE_AUTHENTICATION)
MsgBox ("login successful")
Exit Sub
failed:
MsgBox (Err.Description)
End Sub
'change password
Private Sub Command2_Click()
Dim o As IADsOpenDSObject
Dim usr As IADsUser
'On Error GoTo ErrMsg
' If (txtNewPassword <> txtConfirmPassword) Then
' MsgBox "New and Confirm passwords must be the same"
' txtConfirmPassword.SetFocus
' Exit Sub
' End If
txtDomain = "module.com.cn"
txtUserName = "1030157"
txtOldPassword = "123"
txtNewPassword = "123"
Set o = GetObject("WinNT:")
'Set usr = o.OpenDSObject("WinNT://MyDomain/MyUser,user", "MyDomain\MyUser", "passwd", 1)
'Set usr = o.OpenDSObject("WinNT://" & txtDomain & "/" & txtUserName, txtUserName)
Set usr = o.OpenDSObject("WinNT://" & txtDomain & "/" & txtUserName, txtUserName, txtOldPassword, 1)
usr.SetPassword (txtNewPassword)
' usr.ChangePassword txtOldPassword, txtNewPassword
MsgBox ("Your password has been changed")
Exit Sub
End Sub
'set password
Private Sub Command3_Click()
Dim usr As IADsUser
Dim domain As IADs
Dim o As IADsOpenDSObject
Set o = GetObject("WinNT:")
txtDomain = "module.com.cn"
Dim usersearch As IDirectorySearch
Dim icont As IADsContainer
Set usr = o.OpenDSObject("WinNT://" & txtDomain & "/" & "1030157", "1030157", "123", 1)
Set usr = icont.GetObject("1050051", "1030157")
End Sub