Discussion :

[tomo0013]

Bonjour à tous,
j'ai besoin d'automatiser la manip suivante: création de 300 contacts dans une UO de l'AD, à partir d'un fichier excel contenant toutes les propriétés de ces contacts.
La particularité de ces contacts, c'est qu'ils possedent tous une adresse de messagerie de type SMTP

un extrait de mon fichier excel:
Prénom | Nom | Desc | Num tel | adresse Messagerie
Toto | tata | ... | 0442..... | toto.tata@domaine.com

Quelqu'un pourrait'il m'aider ?? en VBS ou en .NET, je ne manipule vraiment ni l'un ni l'autre, mais je touche un peu au VB et VBA. (ca sera l'occasion de m'y mettre!)

Merci d'avance.

Voila la base de mon script en VBS:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
 
Set objUser = objOU.Create("contact", "cn=MyerKen")
objUser.SetInfo

Ce code sert a creer un contact nommé MyerKen dans l'OU management du domaine fabrikam.com

1iere question : comment creer ce contact dans l'UO fournisseurs qui se trouve dans l'UO management ??

[Louis-Guillaume Morand]

1iere question : comment creer ce contact dans l'UO fournisseurs qui se trouve dans l'UO management ??

1- t'as essayé en mettant directement fournisseurs?

Set objOU = GetObject("LDAP://OU=fournisseurs,dc=fabrikam,dc=com")

2- puisque c'est inversement hiérachique, as tu testé??

Set objOU = GetObject("LDAP://OU=fournisseurs,OU=management,dc=fabrikam,dc=com")

[tomo0013]

OK parfait c'était la 3ieme solution:
Set objOU = GetObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("LDAP://OU=fournisseurs,OU=management,dc=fabrikam,dc=com")

Merci de ton aide, sinon 2ime question:
comment remplacer les valeurs "MyerKen", "fabrikan", "com", "management", "fournisseurs" par les valeurs contenu dans des cellules excel (ou une base SQL, ou une base de donnée a plat (un fichier texte par ex)) ? sachant qu'il y a 300 lignes pour les 300 contacts que je souhaite créer ...
J'imagine que l'on va passer par une boucle for aussi, d'ailleurs, quel en est la syntaxe en vbs ?

merci de ton aide!

[tomo0013]

Ok pour la boucle for, j'ai fait un test ca marche, voici mon code qui prend forme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set objOU = GetObject("LDAP://OU=fournisseurs,OU=management,dc=domaine,dc=com")
 
For i = 1 To 10
	Set objUser = objOU.Create("contact", "cn=UserNo" & i)
	objUser.SetInfo
Next
 
WScript.Echo "10 Users created."

Le plus dur reste a faire : creer des variables qui vont chercher la valeur de chaque occurence dans une fichier excel, une base SQL server, ....
Louis-Guillaume t'as pas une petite idée ???? :s

[Louis-Guillaume Morand]

perso, je n'utilise jamais de script, je fais tout en language objet, je trouve ca plus simple.
Ici, en premier lieu, j'ouvrirai mon fichier excel et je l'exporterais au format CSV et je parserait ce fichier csv depuis mon script vbs (je pense que ca sera plus simple ainsi) et il y a plein d'exemples sur le net
http://www.google.fr/search?q=vbs+cs...ient=firefox-a

pour le reste, je pense qu'il vaut mieux continuer cette discussion dans le forum vbscript

[SfJ5Rpw8]

voir pour piloter excel :

Comment piloter Excel pour créer un classeur.xls ?


j'ai pas excel sous la main... donc faudra tester mais tu peu faire un truc du genre ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim xlapp, classeur, maPlage,r
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True 'Autant voir ce que l'on fait..
Set classeur = xlapp.Workbooks.open("c:\tmp\test.xls") ' Mettre le bon nom de fichier
set maPlage = Classeur.sheets(1).range("A1").currentRegion 
 
'Parcours les lignes du fichier :
For Each r in maPlage.rows
 'Affiche .. les données lues dans le fichier excel...
 Wscript.echo r.cells(1,1) & " | " & r.cells(1,2) & " | " r.cells(1,1)
next
 
classeur.close false 'Ferme sans sauver
xlapp.quit ' quitte excel

voilà pour le principe...