'===============================================================================
شكرًا لك على استخدام برنامج الوظائف العملية التي طورتها ASP001 Studio
'http://www.asp001.net
"========================================================================================================================
QQ: 1974229
البريد الإلكتروني: [email protected]
لمزيد من البرامج ، يرجى الانتقال إلى http://www.asp001.net
'===============================================================================
مقدمة الوظيفة: إدارة حسابات NT من خلال ASP
تستخدم هذه الوظيفة ADSI وتتطلب أذونات مستخدم مجموعة المسؤولين
"تطوير البرنامج: ASP001 Studio Chuqi
'===============================================================================
املأ المستخدم
استخدام الوظيفة: AddUser (الكمبيوتر ، اسم المستخدم ، كلمة المرور ، الاسم الكامل ، المعلومات)
'المعلمات: اسم الكمبيوتر ، اسم الحساب ، كلمة مرور الحساب ، الحساب الاسم الكامل ، وصف الحساب
"مثال: Adduser" 127.0.0.1 "،" اختبار "،" اختبار "،" اختبار "،" حساب مسؤول الاختبار "،" يتم ملء هذا الحساب من خلال ASP "
تعديل المعلومات الأساسية للمستخدم المحدد
استخدام الوظيفة: Edituser (الكمبيوتر ، اسم المستخدم ، OldPassword ، كلمة المرور ، الاسم الكامل ، المعلومات)
'المعلمات: اسم الكمبيوتر ، اسم الحساب ، كلمة مرور الحساب ، الحساب الاسم الكامل ، وصف الحساب
"مثال: Edituser" 127.0.0.1 "،" Test "،" Test2 "،" تعديل حساب مسؤول الاختبار "،" تم تعديل هذا الحساب من خلال ASP "
حذف المستخدم المحدد
استخدام الوظيفة: Deluser (الكمبيوتر ، اسم المستخدم)
"المعلمات: اسم الكمبيوتر ، اسم المستخدم"
"مثال: Deluser" 127.0.0.1 "،" اختبار "
================================================================================
FunctionAdduser (الكمبيوتر ، اسم المستخدم ، كلمة المرور ، الاسم الكامل ، المعلومات)
قم بتنفيذ أمر إنشاء حساب
setComputerObj = getObject ("winnt: //" & computer)
setNewuser = computerobj.create ("المستخدم" ، اسم المستخدم)
NewUser.setInfo
قم بإعداد إعدادات الحساب
NewUser.setPassword (كلمة المرور) كلمة مرور الحساب
newUser.FullName = اسم الكامل للحساب
NewUser.Description = وصف Info'Account
newUser.userFlags = & H10000 '& H20000 (يجب على المستخدم تغيير كلمة المرور في المرة القادمة التي تقوم فيها بتسجيل الدخول) و H0040 (لا يجوز للمستخدم تغيير كلمة المرور) و H10000 (كلمة المرور صحيحة بشكل دائم) و H0002 (يتم تعطيل الحساب مؤقتًا)
NewUser.setInfo
Response.write "حساب" واسم المستخدم و "تم إنشاؤه بنجاح!"
setComputerObj = لا شيء
الوظيفية
ProssileDituser (الكمبيوتر ، اسم المستخدم ، OldPassword ، كلمة المرور ، الاسم الكامل ، المعلومات)
اقرأ معلومات المستخدم
setChangeuserObj = getObject ("winnt: //" & computer & "/" & username & "، user")
تعديل كلمة مرور الحساب
ifpassword <> "" ثم
changeuserobj.setPasswordPassword
استجابة. الكتابة "حساب كلمة مرور تعديل بنجاح! <br>"
Endif
تعديل الاسم الكامل للحساب
iffullname <> "" ثم
userfullName = changeuserObj.get ("fullname")