Automatisation utilisateurs AD sous 2003

[eaque49]

Bonjour voila je suis à la recherche d'un script me permettant de créer des comptes utilisateurs dans l'active directory d'un windows serveur 2003.

je m'explique: en lançant le script, l'administrateur à la choix entre taper tous les paramètres de l'utilsateur 1à1, ou la lecture d'un fichier excel contenant les informations déja existantes avec plusieurs utilisateurs.

Deux problèmes:
- lorsque je cré un utilisateur seul je ne peu pas cliquer sur cancel sinon j'ai une erreur.
- Je voudrais mettre en place une lecture d'un fichier Excel pour créer les utilisateurs à partir de se fichier. Comment faire ?

Pour l'instant j'ai ceci:
DEBUT
L'utilisateur sélectionne Oui pour entrer les informations manuellements. NON pour aller lire un fichier excel contenant les informations.

x=MsgBox ("ajout de comptes manuels? Non pour utiliser un fichier excel",vbQuestion+vbYesNoCancel, "support")
WScript.Echo x

Demande d'informations apres avoir répondu OUI

If x=6 Then

Do
nom=InputBox("Taper le nom de compte", "Creation")
pass=InputBox ("taper le mot de passe", "password")

'Creation de compte et activation du compte'

Set objOU = GetObject("LDAP://CN=Users, dc=jeff, dc=local")
Set objUser = objOU.Create("User","cn=" & nom)
objUser.samAccountName = nom
objUser.SetInfo
objUser.SetPassword Pass
objUser.AccountDisabled = False
objUser.SetInfo

Demande d'un autre utilisateur

y=MsgBox ("Un autre utilisateur?", vbQuestion+vbYesNoCancel, "continuer")
WScript.echo y
If y<>6 Then
Exit do
End If
Loop

End If

Si au départ si la réponse est NON:
Lire un fichier Excel contenant les informations.




J'espère avoir été assez clair c'est pas très simple à expliquer.
Merci pour ceux qui risquent de consacrer du temps à mon problème.