zunia.vn

Tuyển sinh 2024 dành cho Gen-Z

zunia.vn

» Công Nghệ Thông Tin

» An ninh - Bảo mật

Đổi passAdmin bằng VB

Chia sẻ: Nguyen Van Nam | Ngày: | Loại File: DOC | Số trang:2

Báo xấu

130
lượt xem 36
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tài liệu tham khảo dành cho giáo viên, sinh viên chuyên ngành công nghệ thông tin - Kỹ thuật hack từ căn bản đến nâng cao.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Đổi passAdmin bằng VB

.Đổi passAdmin bằng VB : trang này đã được đọc lần Các bạn thử nghiên cứu và hoàn thiện Function này nhé ! Public Function ChangePassword(UserName As String, NewPassword As String) As Boolean 'EXAMPLE: ChangePassword "Administrator", "adminpassword" Dim conn As New ADODB.Connection Dim rs As ADODB.Recordset Dim oRoot As IADs Dim oDomain As IADs Dim sBase As String Dim sFilter As String Dim sDomain As String Dim sAttribs As String Dim sDepth As String Dim sQuery As String Dim user As IADsUser On Error GoTo errhandler: Set oRoot = GetObject("LDAP://rootDSE") 'work in the default domain sDomain = oRoot.Get("defaultNamingContext") Set oDomain = GetObject("LDAP://" & sDomain) sBase = "" 'Only get user name requested sFilter = "(&(objectCategory=person)(objectClass=user)(name=" _ & UserName & "))" sAttribs = "adsPath" sDepth = "subTree" sQuery = sBase & ";" & sFilter & ";" & sAttribs & ";" & sDepth conn.Open _ "Data Source=Active Directory Provider;Provider=ADsDSOObject" Set rs = conn.Execute(sQuery)
With rs If Not .EOF Then Set user = GetObject(rs("adsPath")) user.SetPassword NewPassword ChangePassword = True End If End With errhandler: On Error Resume Next If Not rs Is Nothing Then If rs.State 0 Then rs.Close Set rs = Nothing End If If Not conn Is Nothing Then If conn.State 0 Then conn.Close Set conn = Nothing End If Set oRoot = Nothing Set oDomain = Nothing End Function Error! Unknown switch argument.

CÓ THỂ BẠN MUỐN DOWNLOAD

THÔNG TIN

TRỢ GIÚP

HỖ TRỢ KHÁCH HÀNG

Theo dõi chúng tôi

Chịu trách nhiệm nội dung:

Nguyễn Công Hà - Giám đốc Công ty TNHH TÀI LIỆU TRỰC TUYẾN VI NA

LIÊN HỆ

Địa chỉ: P402, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Hotline: 093 303 0098

Email: support@tailieu.vn

Giấy phép Mạng Xã Hội số: 670/GP-BTTTT cấp ngày 30/11/2015 Copyright © 2022-2032 TaiLieu.VN. All rights reserved.