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

la réponse :
 
 
Dim objDomaine, objUser, objGroupe
     
    Set objDomaine = GetObject("WinNT://NOM DU DOMAINE" )
    Set objUser = objDomaine.Create("user", "test32100" )
    objUser.SetInfo
     
    Set objGroupe = GetObject("WinNT://NOM DU DOMAINE/admins du domaine" )
    objGroupe.Add "WinNT://NOM DU DOMAINE/test32100"
 
 
 
 
ce script créé un utilisateur dans le domaine précisé, et le rajout en tant que membre des admins du domaine
 
j'espère que ces droits sont suffisants pour éxécuter un script sur un poste client qui a besoin de la bibliothèque WMI
    objGroupe.SetInfo