'=========================================================================================================.
'Merci d'utiliser le programme de fonctions pratiques développé par ASP001 Studio
'Http://www.asp001.net
'===========================================================================================.
'QQ: 1974229
'E-mail: [email protected]
«Pour plus de programmes, téléchargez, veuillez vous rendre sur http://www.asp001.net
'=========================================================================================================.
«Fonction Introduction: gérer les comptes NT via ASP
'Cette fonction utilise ADSI et nécessite des autorisations utilisateur de groupe des administrateurs
«Développement du programme: ASP001 Studio Chuqi
'=========================================================================================================.
'Remplissez avec l'utilisateur
'Utilisation de la fonction: additionner (ordinateur, nom d'utilisateur, mot de passe, nom complet, info)
«Paramètres: nom de l'ordinateur, nom de compte, mot de passe du compte, nom complet du compte, description du compte
'Exemple: AddUser "127.0.0.1", "test", "test", "test", "Test Administrator Account", "Ce compte est rempli via ASP"
«Modifier les informations de base de l'utilisateur spécifié
'Utilisation de la fonction: éditeur (ordinateur, nom d'utilisateur, OldPassword, mot de passe, nom complet, info)
«Paramètres: nom de l'ordinateur, nom de compte, mot de passe du compte, nom complet du compte, description du compte
'Exemple: éditeur "127.0.0.1", "test", "test2", "Test Administrator Modification du compte", "Ce compte a été modifié via ASP"
'Supprimer l'utilisateur spécifié
'Utilisation de la fonction: Duturage (ordinateur, nom d'utilisateur)
«Paramètres: nom de l'ordinateur, nom d'utilisateur»
'Exemple: Duturage "127.0.0.1", "test"
========================================================================================.
FunctionAdDuser (ordinateur, nom d'utilisateur, mot de passe, nom complet, info)
'Exécuter la commande Créer un compte
SetComputerObj = getObject ("winnt: //" & ordinateur)
SetNewuser = ComputerObj.Create ("User", nom d'utilisateur)
Newuser.setinfo
'Faire des paramètres de compte
Newuser.SetPassword (mot de passe) 'Mot de passe du compte
NewUser.FullName = FullName 'Nom complet du compte
NewUser.Description = Info'Account Description
NewUser.UserFlags = & H10000 '& H20000 (l'utilisateur doit modifier le mot de passe la prochaine fois que vous vous connectez) & H0040 (l'utilisateur peut ne pas modifier le mot de passe) & H10000 (le mot de passe est définitivement correct) & H0002 (le compte est temporairement désactivé)
Newuser.setinfo
Response.Write "Compte" & Username & "Créé avec succès!"
SetComputerObj = rien
Finition de fin
FunctionDITEUR (ordinateur, nom d'utilisateur, OldPassword, mot de passe, FullName, Info)
'Lisez les informations utilisateur
SetChangeUserObj = getObject ("winnt: //" & ordinateur & "/" & username & ", user")
«Modifier le mot de passe du compte
ifpassword <> "" puis
ChangeUserObj.setpasswordpassword
Response.Write "Le mot de passe du compte modifié avec succès! <br>"
endire
«Modifiez le nom complet du compte
iffullname <> "" alors
UserfullName = changeUserObj.get ("fullName")