'======================================================================================================================================
'Gracias por usar el programa de funciones prácticas desarrolladas por ASP001 Studio
'Http://www.asp001.net
'=====================================================================--
'QQ: 1974229
'Correo electrónico: [email protected]
'Para obtener más programas, descargue, visite http://www.asp001.net
'======================================================================================================================================
'Introducción de la función: Administrar cuentas NT a través de ASP
'Esta función utiliza ADSI y requiere permisos de los usuarios del grupo de administradores
'Desarrollo del programa: ASP001 Studio Chuqi
'======================================================================================================================================
'Complete con el usuario
'Uso de la función: adduser (computadora, nombre de usuario, contraseña, nombre completo, información)
'Parámetros: nombre de la computadora, nombre de la cuenta, contraseña de cuenta, cuenta completa de la cuenta, descripción de la cuenta
'Ejemplo: adduser "127.0.0.1", "prueba", "prueba", "prueba", "cuenta de administrador de prueba", "Esta cuenta se completa a través de ASP"
'Modifique la información básica del usuario especificado
'Uso de la función: edituser (computadora, nombre de usuario, OldPassword, contraseña, nombre completo, información)
'Parámetros: nombre de la computadora, nombre de la cuenta, contraseña de cuenta, cuenta completa de la cuenta, descripción de la cuenta
'Ejemplo: EditUser "127.0.0.1", "Test", "Test2", "Test Administrator Cuenta Modification", "Esta cuenta se ha modificado a través de ASP"
'Eliminar al usuario especificado
'Uso de la función: Deluser (computadora, nombre de usuario)
'Parámetros: nombre de la computadora, nombre de usuario'
'Ejemplo: Deluser "127.0.0.1", "prueba"
=======================================================================================================================================
FunctionAdDuser (computadora, nombre de usuario, contraseña, nombre completo, información)
'Ejecutar el comando Crear cuenta
SetComputeroBJ = getObject ("winnt: //" y computadora)
SetNewUser = ComputerBJ.Create ("Usuario", nombre de usuario)
Newuser.setinfo
'Haga la configuración de la cuenta
Newuser.setPassword (contraseña) 'Cuenta de contraseña
Newuser.fullName = fullName 'Nombre completo de la cuenta
Newuser.description = info'Account Descripción
Newuser.userFlags = & H10000 'y H20000 (el usuario debe cambiar la contraseña la próxima vez que inicie sesión) y H0040 (el usuario no puede cambiar contraseña) y H10000 (la contraseña es permanentemente correcta) y H0002 (la cuenta está deshabilitada temporalmente)
Newuser.setinfo
Response.write "Cuenta" y nombre de usuario y "¡Creado con éxito!"
SetComputeroBJ = nada
Función final
FunctionItuser (computadora, nombre de usuario, OldPassword, contraseña, nombre completo, información)
'Lea la información del usuario
SetchangeUseroBJ = getObject ("winnt: //" & computer & "/" & username & ", usuario")
'Modificar contraseña de cuenta
ifpassword <> "" entonces
ChangeUseroBJ.setPasswordPassword
respuesta
endif
'Modifique el nombre completo de la cuenta
iffullName <> "" entonces
UserFullName = ChangeUseroBJ.get ("FullName")