Scripts VBS PETAGE DE PLOMB

**Hacksign** · 26/11/2007, 21h40

Bonsoir a toutes et a tous ! Bon je vient la ! je pete un cable avec ce script !
Je suis en 2eme année de Bts IG et je doit faire quelques PTI jai mis en Place une Active Directory sous 2003 DNS, DHCP OK
je souhaiterais mettre en place un scripts avec un fichier exel jai deja trouver mon scripts sur dautre site que j'ai modifer a ma sauce voila ce kil donne
-----------------------------------------------------------------------

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
      Dim oexapp, oexwk, oexws, owshshell, ocellule, i
 
	dim nom, prenom, loggin, mdp, bureau, messagerie, ville, liste
 
	liste = ""
 
        set oexapp = wscript.createobject("Excel.Application")
 
	set owshshell = wscript.createobject("wscript.shell")
 
	oexapp.visible = false
 
	set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\ComptesUtilisateurs.xls")
 
	set oexws = oexwk.activesheet
        i = 2
	Do until oexapp.cells(i,1).value = ""
 
        nom = oexapp.cells(i,2).value
 
	prenom = oexapp.cells(i,3).value
 
	loggin = oexapp.cells(i,4).value
 
	mdp = oexapp.cells(i,5).value
 
	bureau = oexapp.cells(i,6).value
 
	messagerie = oexapp.cells(i,7).value
 
	ville = oexapp.cells(i,8).value
 
        Set objDomain = GetObject("LDAP://dc=cs-HOME,dc=local")
	Set objCN = GetObject("LDAP://CN=Users,dc=CS-HOME,dc=local")
 
        Set objUser = objCN.Create("Users", "cn= " & nom & "")
 
	objUser.Put "sAMAccountName", loggin
 
	objUser.Put "cn", nom
 
	objUser.Put "givenName", prenom
 
        objUser.Put "physicalDeliveryOfficeName", bureau
 
	objUser.Put "mail", messagerie
 
	objUser.Put "l", ville
 
        #Set objUser = GetObject("LDAP://cn="& nom &",CN=Users,dc=CS-HOME,dc=local")#
 
        objUser.SetPassword "P@ssw0rd"
 
	Set objCN = GetObject("LDAP://CN=Users, dc=CS-HOME, dc=local")
 
	Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users, dc=CS-HOME, dc=local")
 
	objGroup.Put "sAMAccountName", "Utilisa. du domaine"
	Set objUser = GetObject("LDAP://cn=" & nom & ", CN=Users, DC=CS-             HOME, DC=local")
 
	objUser.AccountDisabled = FALSE
 
	objUser.SetInfo
 
 
	liste = liste + nom & ", "
 
	i = i+1
 
	Loop
        MsgBox "Les utilisateurs " & liste & " ont été créés et activés."

------------------------------------------------------------------------

La ligne marquer de # est la ou ce siture mon erreur ! jai beau essayer de comprendre mais je comprends pas ou est lerreur , je l'ai editer avec VBS factory et il me ressort une erreur

Windows Scripts Host
Script:c:\Documents and Settings\administrateur\bureau\Nouveau dossier\~$ad2.vbs
Ligne : 50
Caract :9
Erreur : Cet objet ne se trouve pas sur le serveur
Code : 80072030
Source : (null)

Si quelqun peut maider ? je vous en remercie