'=======================================================================================================
'Terima kasih telah menggunakan program fungsi praktis yang dikembangkan oleh Asp001 Studio
'Http://www.asp001.net
'========================================.
'QQ: 1974229
'E-mail: [email protected]
'Untuk lebih banyak program unduh, silakan kunjungi http://www.asp001.net
'=======================================================================================================
'Fungsi Pendahuluan: Kelola akun NT melalui ASP
'Fungsi ini menggunakan ADSI dan membutuhkan izin pengguna grup administrator
'Pengembangan Program: Asp001 Studio Chuqi
'=======================================================================================================
'Isi dengan pengguna
'Penggunaan Fungsi: AddUser (komputer, nama pengguna, kata sandi, nama lengkap, info)
'Parameter: Nama komputer, nama akun, kata sandi akun, nama lengkap akun, deskripsi akun
'Contoh: AddUser "127.0.0.1", "Test", "Test", "Test", "Test Administrator Account", "Akun ini diisi melalui ASP"
'Ubah informasi dasar dari pengguna yang ditentukan
'Penggunaan Fungsi: EdituSer (komputer, nama pengguna, kata oldpassword, kata sandi, nama lengkap, info)
'Parameter: Nama komputer, nama akun, kata sandi akun, nama lengkap akun, deskripsi akun
'Contoh: EdituSer "127.0.0.1", "test", "test2", "Test Administrator Account Modification", "Akun ini telah dimodifikasi melalui ASP"
'Hapus pengguna yang ditentukan
'Penggunaan Fungsi: Deluser (komputer, nama pengguna)
'Parameter: Nama komputer, nama pengguna'
'Contoh: Deluser "127.0.0.1", "Test"
=================================================================================================================
FunctionAdduser (komputer, nama pengguna, kata sandi, nama lengkap, info)
'Jalankan perintah Buat Akun
SetComputerobj = getObject ("winnt: //" & komputer)
SetNewUser = computeroBj.create ("pengguna", nama pengguna)
NewUser.setInfo
'Membuat pengaturan akun
NEWUSER.SETPASSWORD (Kata Sandi) 'Kata sandi akun
NewUser.fullname = nama lengkap fullname
NewUser.description = Deskripsi Info'Account
NewUser.userflags = & H10000 '& H20000 (pengguna harus mengubah kata sandi lain kali Anda masuk) & H0040 (pengguna tidak boleh mengubah kata sandi) & H10000 (kata sandi benar secara permanen) & H0002 (akun untuk sementara dinonaktifkan)
NewUser.setInfo
response.write "akun" & nama pengguna & "dibuat dengan sukses!"
SetComputerobj = tidak ada
Fungsi endfungsi
FunctionEdituser (komputer, nama pengguna, oldpassword, kata sandi, nama lengkap, info)
'Baca informasi pengguna
SetChangeUserobj = getObject ("winnt: //" & computer & "/" & username & ", user")
'Ubah Kata Sandi Akun
ifpassword <> "" lalu
ChangeUserobj.setPasswordPassword
response.write "Kata sandi akun berhasil dimodifikasi! <br>"
endif
'Ubah nama lengkap akun
iffullname <> "" Lalu
Userfullname = changeUserobj.get ("fullname")