voila, je voudrais pouvoir creer un admin de domaine selon le modele suivant (qui ne cree qu'un simple utilisateur) :
à savoir que je bloque au niveau de la création de l'admin (ou plutot pour l'ajouter a l'admin du domaine) et pour le faire avec une date d'expiration
merci pour vos propals ! ^_^
Function CREADMIN
Dim objUSER, objOU
Dim Login
Login = InputBox("Entrez le nom du compte d'administrateur à créer.","Demande de renseignement","test" )
Nom = InputBox("Entrez le nom de l'admin.","Demande de renseignement","nom" )
Prenom = InputBox("Entrez le prénom de l'admin.","Demande de renseignement","prenom" )
Domaine = InputBox("Entrez le nom du domaine.","Demande de renseignement","@truc.com" )
Expiration = InputBox("Entrez la date d'expiration du compte." )
'ici je separe par le point le domaine pour pouvoir utiliser le chemin ldap correspondant
var = Split(Domaine, "." )
part1 = var(0)
part2 = var(1)
OUracine = "LDAP://OU=users,DC=" & part1 & ", DC=" & part2 & ""
Set objOU = GetObject(OUracine)
'je crée un objet utilisateur dans l'UO conteneur
Set objUSER = objOU.create("User","CN=" & Login)
'cette instrcution ne peut pas poser problème en principe car elle ne met pas à jour directement l'AD
'pour un utilisateur, d'autres propriétés sont à renseigner
' - certaines sont obligatoires :
objUSER.Put "SamAccountName",Login
' - d'autres implicites :
objUSER.Put "userPrincipalName",Login & Domaine
objUSER.put "sn",Nom
objUSER.put "givenName",Prenom
objUSER.put "expiration", accountExpires
'pour confirmer la mise à jour dans l'active directory, il faut utiliser la méthode SetInfo
objUSER.SetInfo
End Function
Message édité par anthony0000 le 17-02-2006 à 15:45:28