vb 下dc帐号验证

添加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

转载于:https://www.cnblogs.com/whfabc/archive/2009/04/24/1442703.html