PB définition variable objet

**PAB/31/SAB** · 26/12/2013, 16h29

Bonjour à tous,

j'ai réalisé un script qui effectue une migration de dossiers et fichiers.
Il initialise les logs
Il arrête des services
Sauvegarde les dossiers en place
Met en place les nouveaux dossiers
Redémarre les services
et envoi un mail (la log d'installation)

Mon soucis 1 : Des lacunes en VBS

Mon soucis 2: C'est que tout passe :

Il initialise les logs OK
Il arrête des services OK
Sauvegarde les dossiers en place OK
Met en place les nouveaux dossiers OK
Redémarre les services OK

Mais au moment d’envoyer le mail il me sort :
Migration_Appli.vbs(39, 2) Erreur d'exécution Microsoft VBScript: Variable objet non définie

Je tourne un peu en rond.
Merci pour vos lumières.

Mon script :

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
Option Explicit
 
Dim MyDate
Dim ObjFile, FD, objtextfile
Dim objShell, WshShell, objmail
Dim Commande, CurrentDir, computername
Dim Tempo,
Dim Arbo, s
Dim objFSO, fso, oShell, oFSO,oFld
Dim Log
Dim FileLog
Dim Plaque1
Dim Plaque2
Dim Livraison_OS_Plaque1
Dim Livraison_OS1_Plaque2
Dim DESTINATAIRES
 
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
Log="H:\Livraison\Mig_Appli\Migration_Appli_" & MyDate & ".log"
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
 
Plaque1 ="E:\Appli\projets\Plaque1"
Plaque2 ="E:\Appli\projets\Plaque2"
Livraison_OS_Plaque1 ="H:\Livraison\Mig_Appli\Plaque1"
Livraison_OS1_Plaque2 ="H:\Livraison\Mig_Appli\Plaque2"
DESTINATAIRES="pierre.dupont@société.fr"
Arbo="H:\Livraison\Mig_Appli"	
 
 
'----------------------------------------------------
'Initialisation des log 
'----------------------------------------------------
Sub Msglog(severite,code,label)
	Wscript.echo Mydate & "-" & time & " " & severite & " " & code & " " & label
	FileLog.WriteLine Mydate & "-" & time & " " & severite & " " & code & " " & label
End sub
 
'-----------------------------------------
'Arrêt des services Appli
'-----------------------------------------
Sub Arrete_Service(Nom_Service)
	msglog "0","0000","---Debut: 	Arret service " & Nom_Service
		set objShell = Wscript.CreateObject("Wscript.Shell") 
		Tempo=" """& Nom_Service &""" "
			Commande="net stop" & Tempo
		WscSipt.echo Commande
		objShell.run(Commande)
		Wscript.sleep 30000
	msglog "0","0000","---Fin: Arret service " & Nom_Service
end sub
'-----------------------------------------------------------
'Sauvegarde du dossier Plaque1 en .old
'-----------------------------------------------------------
Sub Sauv_Plaque1
	msglog "0","0000","---Debut: Sauvegarde du dossier " & Plaque1 & ".old"
		Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
		Set FD = fso.GetFolder (Plaque1)
	FD.Name = "Plaque1.old" 
		Set fso = Nothing
		Set FD = Nothing
	msglog "0","0000","---Fin: Sauvegarde du dossier " & Plaque1 & ".old"
End sub
 
'------------------------------------------------------------
'Sauvegarde du dossier Plaque2 en .old
'------------------------------------------------------------
Sub Sauv_Plaque2
	msglog "0","0000","---Debut: Sauvegarde du dossier " & Plaque2 & ".old"
	Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
		Set FD = fso.GetFolder (Plaque2)
	FD.Name = "Plaque2.old" 
		Set fso = Nothing
		Set FD = Nothing
	msglog "0","0000","---Fin: Sauvegarde du dossier " & Plaque2 & ".old"
End sub
 
'-----------------------------------------------
'Création des dossiers Plaque1
'------------------------------------------------
Sub CreatFolderOS
	msglog "0","0000","---Debut: Création des dossiers " & Plaque1 & ""
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFld=oFSO.OSeateFolder (Plaque1)
	msglog "0","0000","---fin: Création des dossiers " & Plaque1 & ""
End sub
 
'-----------------------------------------------
'Création des dossiers Plaque2
'------------------------------------------------
Sub CreatFolderOS1
	msglog "0","0000","---Debut: Création des dossiers " & Plaque2 & ""
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFld=oFSO.OSeateFolder (Plaque2)
	msglog "0","0000","---fin: Création des dossiers " & Plaque2 & ""
End sub
 
'------------------------------------------------------------------------------------------------
'Copy des dossiers Livrés dans H:\Livraison >>>> Dossier Plaque1
'------------------------------------------------------------------------------------------------
 
Sub MigrPlaque_OS
	msglog "0","0000","---Debut: Migration des dossiers et fichiers "
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		oFSO.CopyFolder (Livraison_OS_Plaque1) , (Plaque1), True
	msglog "0","0000","---Fin: Migration des dossiers et fichiers "
 
End sub
 
'------------------------------------------------------------------------------------------------
'Copy des dossiers Livrés dans H:\Livraison >>>> Dossier eCliDE90_secours
'------------------------------------------------------------------------------------------------
 
Sub MigrPlaque_OS1
	msglog "0","0000","---Debut: Migration des dossiers et fichiers "
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		oFSO.CopyFolder (Livraison_OS1_Plaque2) , (Plaque2), True
	msglog "0","0000","---Fin: Migration des dossiers et fichiers "
 
End sub
 
'-----------------------------------------
' Demarrage des services Appli
'-----------------------------------------
Sub Demarre_Service(Nom_Service)
	msglog "0","0000","---Debut: Demarrage service " & Nom_Service
		set objShell = Wscript.CreateObject("Wscript.Shell") 
		Tempo=" """& Nom_Service &""" "
			Commande="net start" & Tempo
		Wscript.echo Commande
		objShell.run(Commande)
		Wscript.sleep 30000
	msglog "0","0000","---Fin:   Demarrage service " & Nom_Service
end sub
 
 
'-------------------------------------------------------------------------
'---- Envoi du log d'install par mail
'-----------------------------------------------------------------------------
 
Sub Envoi	
	msglog "0","0000","---Debut: Envoi de la log de Migration "
	Set objMail = CreateObject("CDO.Message") 
	Set oFSO = CreateObject("Scripting.FileSystemObject")
 
	With objMail
	.Subject  = "[Migration Appli] : Rapport de migration "
	.From     = "Migration Appli" & computername
	.To       = DESTINATAIRES
	.TextBody = "Bonjour," & VbNewLine & VbNewLine & _
		"Veuillez trouver ci-joint, le rapport de la migration Appli  sur le serveur " & computername & VbNewLine & VbNewLine & _
		"Cordialement," & VbNewLine & _
		"Migration Appli." & VbNewLine & VbNewLine
	.AddAttachment("H:\Livraison\Mig_Appli\Migration_Appli_" & MyDate & ".log")
End With
 
With objMail.Configuration.Fields
	.Item("http://schemas.miOSosoft.com/cdo/configuration/smtpserver")       = "mailhost.der.edf.fr"
	.Item("http://schemas.miOSosoft.com/cdo/configuration/smtpserverport")   = 25
	.Item("http://schemas.miOSosoft.com/cdo/configuration/sendusing")        = 2 'CDO.cdoSendUsingPort
	.Update
End With
 
On Error Resume Next
 
	objMail.Send
	If Err.Number <>0 Then 
    msglog "1","0001","----Error Sending Mail"
    Err.DesOSiption,16,"Error Sending Mail"
    Else 
    msglog "0","0000","---Le Mail a été envoyé avec succès !"
 
	End If
 
 
End Sub
 
 
set s = CreateObject("Wscript.Shell")
s.currentdirectory = Arbo
set s = nothing 
 
'---------------------------
' Corps su script
'---------------------------
msglog "0","0000","---Debut: 	Migration_Appli.vbs "
Arrete_Service "Appli zip_OS"
Arrete_Service "Appli PostProd_OS"
Arrete_Service "Appli MailBDT_OS"
Arrete_Service "Appli HTTP"
Arrete_Service "Appli BATCH"
Arrete_Service "Appli Calcul_OS"
Arrete_Service "Appli Repository Server"
Sauv_Plaque1
Sauv_Plaque2
CreatFolderOS
CreatFolderOS1
MigrPlaque_OS
MigrPlaque_OS1
Demarre_Service "Appli Repository Server"
Demarre_Service "Appli Calcul_OS"
Demarre_Service "Appli batch_ZC"
Demarre_Service "Appli HTTP_"
Demarre_Service "Appli MailBDT_OS"
Demarre_Service "Appli PostProd_OS"
Demarre_Service "Appli zip_OS"
msglog "0","0000","---Fin: 		Migration_Appli"
msglog "0","0000","---Fin: 		Migration_Appli.vbs "
FileLog.Close
Envoi

**omen999** · 26/12/2013, 19h10

salut,
vite fait, je dirais que ça (lignes 160 à 162) :

Code :

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

http://schemas.miOSosoft.com/cdo/configuration/...

devrait être remplacé par :

Code :

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

http://schemas.microsoft.com/cdo/configuration/...

**PAB/31/SAB** · 27/12/2013, 10h46

Bonjour omen999,

merci pour la réponse, mais j'ai toujours le même pb même après avoir modifié
le script

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
Option Explicit
 
Dim MyDate
Dim ObjFile, FD, objtextfile
Dim objShell, WshShell, objmail
Dim Commande, CurrentDir, computername
Dim Tempo,
Dim Arbo, s
Dim objFSO, fso, oShell, oFSO,oFld
Dim Log
Dim FileLog
Dim Plaque1
Dim Plaque2
Dim Livraison_OS_Plaque1
Dim Livraison_OS1_Plaque2
Dim DESTINATAIRES
 
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
Log="H:\Livraison\Mig_Appli\Migration_Appli_" & MyDate & ".log"
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
 
Plaque1 ="E:\Appli\projets\Plaque1"
Plaque2 ="E:\Appli\projets\Plaque2"
Livraison_OS_Plaque1 ="H:\Livraison\Mig_Appli\Plaque1"
Livraison_OS1_Plaque2 ="H:\Livraison\Mig_Appli\Plaque2"
DESTINATAIRES="pierre.dupont@société.fr"
Arbo="H:\Livraison\Mig_Appli"	
 
 
'----------------------------------------------------
'Initialisation des log 
'----------------------------------------------------
Sub Msglog(severite,code,label)
	Wscript.echo Mydate & "-" & time & " " & severite & " " & code & " " & label
	FileLog.WriteLine Mydate & "-" & time & " " & severite & " " & code & " " & label
End sub
 
'-----------------------------------------
'Arrêt des services Appli
'-----------------------------------------
Sub Arrete_Service(Nom_Service)
	msglog "0","0000","---Debut: 	Arret service " & Nom_Service
		set objShell = Wscript.CreateObject("Wscript.Shell") 
		Tempo=" """& Nom_Service &""" "
			Commande="net stop" & Tempo
		WscSipt.echo Commande
		objShell.run(Commande)
		Wscript.sleep 30000
	msglog "0","0000","---Fin: Arret service " & Nom_Service
end sub
'-----------------------------------------------------------
'Sauvegarde du dossier Plaque1 en .old
'-----------------------------------------------------------
Sub Sauv_Plaque1
	msglog "0","0000","---Debut: Sauvegarde du dossier " & Plaque1 & ".old"
		Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
		Set FD = fso.GetFolder (Plaque1)
	FD.Name = "Plaque1.old" 
		Set fso = Nothing
		Set FD = Nothing
	msglog "0","0000","---Fin: Sauvegarde du dossier " & Plaque1 & ".old"
End sub
 
'------------------------------------------------------------
'Sauvegarde du dossier Plaque2 en .old
'------------------------------------------------------------
Sub Sauv_Plaque2
	msglog "0","0000","---Debut: Sauvegarde du dossier " & Plaque2 & ".old"
	Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
		Set FD = fso.GetFolder (Plaque2)
	FD.Name = "Plaque2.old" 
		Set fso = Nothing
		Set FD = Nothing
	msglog "0","0000","---Fin: Sauvegarde du dossier " & Plaque2 & ".old"
End sub
 
'-----------------------------------------------
'Création des dossiers Plaque1
'------------------------------------------------
Sub CreatFolderOS
	msglog "0","0000","---Debut: Création des dossiers " & Plaque1 & ""
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFld=oFSO.OSeateFolder (Plaque1)
	msglog "0","0000","---fin: Création des dossiers " & Plaque1 & ""
End sub
 
'-----------------------------------------------
'Création des dossiers Plaque2
'------------------------------------------------
Sub CreatFolderOS1
	msglog "0","0000","---Debut: Création des dossiers " & Plaque2 & ""
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFld=oFSO.OSeateFolder (Plaque2)
	msglog "0","0000","---fin: Création des dossiers " & Plaque2 & ""
End sub
 
'------------------------------------------------------------------------------------------------
'Copy des dossiers Livrés dans H:\Livraison >>>> Dossier Plaque1
'------------------------------------------------------------------------------------------------
 
Sub MigrPlaque_OS
	msglog "0","0000","---Debut: Migration des dossiers et fichiers "
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		oFSO.CopyFolder (Livraison_OS_Plaque1) , (Plaque1), True
	msglog "0","0000","---Fin: Migration des dossiers et fichiers "
 
End sub
 
'------------------------------------------------------------------------------------------------
'Copy des dossiers Livrés dans H:\Livraison >>>> Dossier eCliDE90_secours
'------------------------------------------------------------------------------------------------
 
Sub MigrPlaque_OS1
	msglog "0","0000","---Debut: Migration des dossiers et fichiers "
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		oFSO.CopyFolder (Livraison_OS1_Plaque2) , (Plaque2), True
	msglog "0","0000","---Fin: Migration des dossiers et fichiers "
 
End sub
 
'-----------------------------------------
' Demarrage des services Appli
'-----------------------------------------
Sub Demarre_Service(Nom_Service)
	msglog "0","0000","---Debut: Demarrage service " & Nom_Service
		set objShell = Wscript.CreateObject("Wscript.Shell") 
		Tempo=" """& Nom_Service &""" "
			Commande="net start" & Tempo
		Wscript.echo Commande
		objShell.run(Commande)
		Wscript.sleep 30000
	msglog "0","0000","---Fin:   Demarrage service " & Nom_Service
end sub
 
 
'-------------------------------------------------------------------------
'---- Envoi du log d'install par mail
'-----------------------------------------------------------------------------
 
Sub Envoi	
	msglog "0","0000","---Debut: Envoi de la log de Migration "
	Set objMail = CreateObject("CDO.Message") 
	Set oFSO = CreateObject("Scripting.FileSystemObject")
 
	With objMail
	.Subject  = "[Migration Appli] : Rapport de migration "
	.From     = "Migration Appli" & computername
	.To       = DESTINATAIRES
	.TextBody = "Bonjour," & VbNewLine & VbNewLine & _
		"Veuillez trouver ci-joint, le rapport de la migration Appli  sur le serveur " & computername & VbNewLine & VbNewLine & _
		"Cordialement," & VbNewLine & _
		"Migration Appli." & VbNewLine & VbNewLine
	.AddAttachment("H:\Livraison\Mig_Appli\Migration_Appli_" & MyDate & ".log")
End With
 
With objMail.Configuration.Fields
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = "mailhost.der.edf.fr"
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = 25
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2 'CDO.cdoSendUsingPort
	.Update
End With
 
On Error Resume Next
 
	objMail.Send
	If Err.Number <>0 Then 
    msglog "1","0001","----Error Sending Mail"
    Err.DesOSiption,16,"Error Sending Mail"
    Else 
    msglog "0","0000","---Le Mail a été envoyé avec succès !"
 
	End If
 
 
End Sub
 
 
set s = CreateObject("Wscript.Shell")
s.currentdirectory = Arbo
set s = nothing 
 
'---------------------------
' Corps su script
'---------------------------
msglog "0","0000","---Debut: 	Migration_Appli.vbs "
Arrete_Service "Appli zip_OS"
Arrete_Service "Appli PostProd_OS"
Arrete_Service "Appli MailBDT_OS"
Arrete_Service "Appli HTTP"
Arrete_Service "Appli BATCH"
Arrete_Service "Appli Calcul_OS"
Arrete_Service "Appli Repository Server"
Sauv_Plaque1
Sauv_Plaque2
CreatFolderOS
CreatFolderOS1
MigrPlaque_OS
MigrPlaque_OS1
Demarre_Service "Appli Repository Server"
Demarre_Service "Appli Calcul_OS"
Demarre_Service "Appli batch_ZC"
Demarre_Service "Appli HTTP_"
Demarre_Service "Appli MailBDT_OS"
Demarre_Service "Appli PostProd_OS"
Demarre_Service "Appli zip_OS"
msglog "0","0000","---Fin: 		Migration_Appli"
msglog "0","0000","---Fin: 		Migration_Appli.vbs "
FileLog.Close
Envoi

**omen999** · 27/12/2013, 11h54

je réactiverais la gestion des erreurs en supprimant la ligne 166 histoire d'y voir plus clair

PB définition variable objet

VBScript

Discussions similaires

Partager

Partager