-
'ขอบคุณสำหรับการใช้โปรแกรมฟังก์ชั่นการปฏิบัติที่พัฒนาโดย ASP001 Studio
'http://www.asp001.net
'==============================================================================' ASP001 Studio ให้บริการโปรแกรมที่กำหนดเอง
'qq: 1974229
'อีเมล: [email protected]
'สำหรับโปรแกรมเพิ่มเติมดาวน์โหลดโปรดไปที่ http://www.asp001.net
-
'ฟังก์ชั่นบทนำ: จัดการบัญชี NT ผ่าน ASP
'ฟังก์ชั่นนี้ใช้ ADSI และต้องการการอนุญาตผู้ใช้กลุ่มผู้ดูแลระบบ
'การพัฒนาโปรแกรม: ASP001 Studio Chuqi
-
'กรอกด้วยผู้ใช้
'ฟังก์ชั่นการใช้งาน: Adduser (คอมพิวเตอร์, ชื่อผู้ใช้, รหัสผ่าน, FullName, INFO)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ชื่อบัญชีรหัสผ่านบัญชีชื่อเต็มบัญชีคำอธิบายบัญชี
'ตัวอย่าง: Adduser "127.0.0.1", "ทดสอบ", "ทดสอบ", "ทดสอบ", "บัญชีผู้ดูแลระบบทดสอบ", "บัญชีนี้กรอกผ่าน ASP"
'แก้ไขข้อมูลพื้นฐานของผู้ใช้ที่ระบุ
'ฟังก์ชั่นการใช้งาน: Edituser (คอมพิวเตอร์, ชื่อผู้ใช้, OldPassword, รหัสผ่าน, FullName, INFO)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ชื่อบัญชีรหัสผ่านบัญชีชื่อเต็มบัญชีคำอธิบายบัญชี
'ตัวอย่าง: Edituser "127.0.0.1", "ทดสอบ", "test2", "การปรับเปลี่ยนบัญชีผู้ดูแลระบบทดสอบ", "บัญชีนี้ได้รับการแก้ไขผ่าน ASP"
'ลบผู้ใช้ที่ระบุ
'ฟังก์ชั่นการใช้งาน: Deluser (คอมพิวเตอร์ชื่อผู้ใช้)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ชื่อผู้ใช้'
'ตัวอย่าง: Deluser "127.0.0.1", "ทดสอบ"
-
FunctionAdDuser (คอมพิวเตอร์, ชื่อผู้ใช้, รหัสผ่าน, FullName, INFO)
'ดำเนินการคำสั่ง CREATE Account
setComputerobj = getObject ("winnt: //" & คอมพิวเตอร์)
setNewUser = Computerobj.create ("ผู้ใช้" ชื่อผู้ใช้)
newUser.setInfo
'ทำการตั้งค่าบัญชี
newUser.setPassword (รหัสผ่าน) 'รหัสผ่านบัญชี
newUser.fullName = fullName 'ชื่อเต็มของบัญชี
newUser.description = Info'Account คำอธิบาย
newuser.userflags = & h10000 '& h20000 (ผู้ใช้จะต้องเปลี่ยนรหัสผ่านในครั้งต่อไปที่คุณเข้าสู่ระบบ) & H0040 (ผู้ใช้อาจไม่เปลี่ยนรหัสผ่าน) & H10000 (รหัสผ่านถูกต้องอย่างถาวร) & H0002 (บัญชีถูกปิดใช้งานชั่วคราว)
newUser.setInfo
Response.write "บัญชี" & ชื่อผู้ใช้ & "สร้างสำเร็จ!"
setComputerobj = ไม่มีอะไร
endfunction
FunctionEdItuser (คอมพิวเตอร์, ชื่อผู้ใช้, OldPassword, รหัสผ่าน, FullName, INFO)
'อ่านข้อมูลผู้ใช้
SetChangeUserObj = getObject ("winnt: //" & คอมพิวเตอร์ & "/" & username & ", ผู้ใช้")
'แก้ไขรหัสผ่านบัญชี
ifpassword <> "" แล้ว
ChangeUserObj.SetPasswordPassword
Response.write "รหัสผ่านบัญชีแก้ไขสำเร็จ! <br>"
endif
'แก้ไขชื่อเต็มของบัญชี
iffullname <> "" แล้ว
userfullName = ChangeUserObj.get ("fullName")