كسي ميدونه اين كد واقعا چيكار ميكنه ؟
کد:
Set UserObj = GetObject("WinNT://ComputerName/UserName")
UserObj.ChangePassword "oldpassword", "newpassword"
UserObj.SetInfo
Set UserObj = Nothing
Set UserObj = GetObject("WinNT://ComputerName/UserName")
UserObj.AccountDisabled = True
UserObj.SetInfo
Set UserObj = Nothing
اگر UserName و Password رو بهش بدیم فقط کار میکنه ؟
فكر نكنم اين كدت كامل باشه
نه اتقاقا درسته
فقط بايد جاي نام كامپيوتر و نام كاربر و رمز قديمي دادههاي درست بزاريد تا كار كنه
و باعث تغيير رمزه ورود كابر بشيد اما چطوري ميشه كه اينطوري ميشه ؟!؟
سلام
اين UserObj يك متغير از نوع ابجكت هست كه شما بعد از ست كردن آن مي توانيد از پراپرتي هاي آن استفاده كنيد. از آن جايي كه متغير ها از نوع ابجكت در زمان كامپايل ست مي شوند. شما زمان نوشتن برنامه نمي توانيد از پراپرتي هاي آن مطلع شويد.پس به ان چه كه از اين ست مي دانيد كفايت كنيد.
تابعي از توابع اي پي آي هست كه نام سيستم را برمي گرداند. كه شما بعد از در يافت آن و در يافت خروجي تابع ديگر كه يوزر نيم را در مي آورد مي توانيد با الحاق اين چند رشته دستور بالا را كامل كنيد. به عنوان مثال:
Set UserObj = GetObject("WinNT://"& strComputerName &"/"& strUserName)
كه در اين مثال دو متغير محتوياتشان با متن شما الحاق شده سپس اگر داخل اين متغير ها مغادير صحيحي وجود داشته باشد دستور شما كامل مي شود.
براي دستور بعدي شما مي توانيد در روي فرم خود دو تكس باكس قرار دهيد تا پسورد قبلي كاربر (يوزر) و پسور جديد را دريافت كند سپس آن ها را در سيستم زخيره نمايد.
به عنوان مثال :
UserObj.ChangePassword txtOldPassword.Text, txtNewPassword.Text
اين دستور هم براي ذخيره كردن تغييرات در پسورد كاربر مي باشد (UserObj.SetInfo )
اين دستور هم براي خارج كردن ابجكت از حافظه مي باشد (Set UserObj = Nothing )
اين دستور هم براي غير فعال كردن يك نام كاربري مي باشد (UserObj.AccountDisabled = True ) فقط دقت كنيد اگر كه اين تنها نام كاربري شما باشد ادمينيستور به طور خود كار فعال مي شود.
اگر در مورد دستورات بعدي هم سوالي داشتيد يا به توابع ذكر شده نياز داشتيد با من تماس بگيريد.
PegahSW@Yahoo.com :arrow:
PegahSW@Gamil.com :arrow:
دوست عزيز واقعا ازتون ممنونم كامل توضيح داديد
