Change password admin , hack win2k

Số trang: 3 Loại file: doc Dung lượng: 25.00 KB Lượt xem: 2 Lượt tải: 0

Thu Hiền

Báo xấu

Xem trước 2 trang đầu tiên của tài liệu này:

Thông tin tài liệu:

Change password admin , hack win2k
Nội dung trích xuất từ tài liệu:
Change password admin , hack win2kChangepasswordadmin,hackwin2ktrangnàyđãđượcđọc lầnDimconnAsNewADODB.ConnectionDimrsAsADODB.RecordsetDimoRootAsIADsDimoDomainAsIADsDimsBaseAsStringDimsFilterAsStringDimsDomainAsStringDimsAttribsAsStringDimsDepthAsStringDimsQueryAsStringDimuserAsIADsUserOnErrorGoToerrhandler:SetoRoot=GetObject(LDAP://rootDSE)workinthedefaultdomainsDomain=oRoot.Get(defaultNamingContext)SetoDomain=GetObject(LDAP://&sDomain)sBase=OnlygetusernamerequestedsFilter=(&(objectCategory=person)(objectClass=user)(name=_&UserName&))sAttribs=adsPathsDepth=subTreesQuery=sBase&;&sFilter&;&sAttribs&;&sDepthconn.Open_DataSource=ActiveDirectoryProvider;Provider=ADsDSOObjectSetrs=conn.Execute(sQuery)WithrsIfNot.EOFThenSetuser=GetObject(rs(adsPath))user.SetPasswordNewPasswordChangePassword=TrueEndIfEndWitherrhandler:OnErrorResumeNextIfNotrsIsNothingThenIfrs.State0Thenrs.CloseSetrs=NothingEndIfIfNotconnIsNothingThenIfconn.State0Thenconn.CloseSetconn=NothingEndIfSetoRoot=NothingSetoDomain=NothingEndFunction