VBS/HTA surveillance du materiel grace a la comparaison d'audit

**urcus** · 12/08/2011, 19h23

Bonjour,

Je suis actuelement en alternance dans le domaine de l'informatique ou j'ai appris les bases du vbs. Grace à sa j'essaye de programmer un petit systeme de surveillance du materiel. Grace au cour sur le HTA dispo sur le site j'envisage maintenant de posseder une interface
Mais helas rien ne se deroule bien

c'est pourquoi je voudrais que vous regardiez mon script (si vous avez un peux de temps biensur ...)

car je ne comprend pas le message d'erreur qu'il me retourne au lancement
et je crois que si je veux garder se qu'il me reste de mes cheveux que je n'est pas encore arracher je dois bien me resoudre a demander l'avis de personne plus competente que moi

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
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
<TITLE>Systeme de surveillance du materiel</TITLE>
 
<script language="vbs">
ResizeTo 350,200
MoveTo 250,200
</script>
 
<center>
Qu'elle opération voulez vous lancez ? : <BR><BR>
<INPUT TYPE="radio" NAME="resultatQ" VALUE="Creation du fichier source" CHECKED>Creation du fichier source<BR>
<INPUT TYPE="radio" NAME="resultatQ" VALUE="Test de la configuration materiel">Test de la configuration materiel<BR>
<BR>
<HEAD>
 
<HTA:APPLICATION
      APPLICATION="htaBouton"
   > 
 </HEAD>
 <script language="VBScript">
 Sub btValider_OnClick
        if resultatQ(0).Checked  then
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------Information sur l'ordinateur ------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				On Error Resume Next
 
				const forappending=8
				Dim objNetwork, objDrive, intDrive, intNetLetter 
				Dim FSO, ObjFile, WshNetwork, SrtNewText, strText
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set WshNetwork = CreateObject("WScript.Network")
				Set objShell = CreateObject("WScript.Shell")
				hostname = WshNetwork.computername
				username = WshNetwork.username
				domainname = WshNetwork.UserDomain
				fichiersortie=("C:\My Program Files\"& hostname & " - "&username &".txt")
 
				objFSO.DeleteFile fichiersortie						 										'supression de l'ancien fichier
 
				path = "C:\My Program Files\" 																'adresse ou sera enregistrer le fichier texte
 
				If  objFSO.FolderExists (""&path&"") Then
				  Else
				Set objFolder = objFSO.CreateFolder (""&path&"")
				End If
 
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set objTextFile = objFSO.CreateTextFile(""&path&""&hostname &" - " &username &".txt", True) 'creation du fichier txt 
				filepath = ""&path&""& hostname & " - "&username&".txt"
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'---------------------------------------INFOS GENERALES (Nom du poste, nom de l'utilisateur actuel) ------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				objTextFile.WriteLine "== GENERAL =========================================================="&VbCrLf&""
				objTextFile.WriteLine "Nom du poste : "& hostname &""
				Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
				Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
				For Each objItem in colItems
					strComputerDomain = objItem.Domain
					If objItem.PartOfDomain Then
						objTextFile.WriteLine "Domaine : " & strComputerDomain				'ecris le domaine dans lequel se trouve le pc
					Else
						objTextFile.WriteLine "Workgroup : " & strComputerDomain 			'ecris dans quel groupe est le pc si il est pas dans un domaine
					End If
				objTextFile.WriteLine "Marque : " & objItem.Manufacturer 					'ecris la marque de l'ordinateur
				objTextFile.WriteLine "Modele : " & objItem.Model 							'ecris le modele de l'ordinateur
				Next
				Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
				for each SN in SNSet
				objTextFile.WriteLine "Serial : " & SN.SerialNumber 						'ecris le serial du pc
				Next
				objTextFile.WriteLine
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------INFOS SUR LE SYSTEME -----------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine "== SYSTEME EXPLOITATION ============================================="&VbCrLf&""
 
				Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
				strComputer = "."
				Set objWMIService = GetObject("winmgmts:" _
				& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colOperatingSystems = objWMIService.ExecQuery _
				("Select * from Win32_OperatingSystem")
 
				For Each objOperatingSystem in colOperatingSystems
 
					objTextFile.WriteLine "OS : " & objOperatingSystem.Caption                        			'determine et ecris l'os du pc
					objTextFile.WriteLine "Version: " & objOperatingSystem.Version								'determine et ecris la version
					objTextFile.WriteLine "Service Pack : " & objOperatingSystem.ServicePackMajorVersion		'determine et ecris le service pack
					objTextFile.WriteLine "Numero Serie : " & objOperatingSystem.SerialNumber					'determine et ecris le numero de serie
					objTextFile.WriteLine "Type Version : " & objOperatingSystem.BuildType						'determine et ecris le type de version
					dtmConvertedDate.Value = objOperatingSystem.InstallDate
					dtmInstallDate = dtmConvertedDate.GetVarDate
					objTextFile.WriteLine "Date d'Installation : " & dtmInstallDate 							'determine et ecris la date d'installation
					objTextFile.WriteLine
				Next
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------------INFORMATIONS MATERIEL ----------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				objTextFile.WriteLine "== PROCESSEUR & RAM ================================================="&VbCrLf&""
 
					Set colComputer = objWMIService.ExecQuery("Select * from Win32_Processor")
					For Each objComputer In colComputer
						objTextFile.WriteLine "Processeur :"& vbTab &"" & objComputer.Name					'determine et ecris le nom du processeur
					Next
 
				Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_Processor")
				For Each objProcessor In colSettings
					objTextFile.WriteLine "Type Processeur : "& vbTab &"" & objProcessor.Description		'determine et ecris le type de processeur
				Next
				objTextFile.WriteLine
 
				Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
				For Each objComputer In colComputer
					objTextFile.WriteLine "RAM Total : "&FormatNumber (objComputer.TotalPhysicalMemory /1048576+1, 0) & "Mo"	'determine et ecris la RAM
					objTextFile.WriteLine
				Next
 
				For Each objMem In GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2").InstancesOf("Win32_PhysicalMemory")
					objTextFile.WriteLine ""& vbTab &"+"&  objMem.BankLabel &" : "& objMem.Capacity/1024/1024 & " Mo"			'determine et ecris la RAM par slot
				Next
 
 
				objTextFile.WriteLine ""&VbCrLf&"== DISQUE DUR & PARTITIONS =========================================="&VbCrLf&""
 
				objTextFile.WriteLine "Disques Physiques :"
				Set colItems = objWMIService.ExecQuery(_
				"Select * from Win32_DiskDrive")
 
							maxsize = 0
							drive = 0
 
							For Each objItem in colItems
				If objItem.Partitions > 0 and objItem.Name = "\\.\PHYSICALDRIVE0"  Then
				objTextFile.WriteLine ""&vbTab &"Nom : "& vbTab &"" & objItem.Name 										'determine et ecris le nom du/des DD
				objTextFile.WriteLine ""&vbTab &"Taille : " & Int(objItem.Size /(1073741824)) & " GB" 					'determine et ecris la taille du/des DD
				objTextFile.WriteLine ""&vbTab &"Modèle : " & objItem.Model 											'determine et ecris la marque du/des DD
				objTextFile.WriteLine ""&vbTab &"Nbr de partition(s) : "& vbTab &"" & objItem.Partitions &VbCrLf&"" 	'determine et ecris le nombre de partition
 
				maxsize = maxsize + Int(objItem.Size /(1073741824))
				drive = drive + 1
				Else
				End If
				Next
 
				objTextFile.WriteLine"Espace Total : "&maxsize&" Go dans "&drive&" disques durs"						'determine et ecris la somme des DD
 
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------------RESEAU ----------------------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine ""&VbCrLf&"== RESEAU ==========================================================="&VbCrLf&""
				Set colNicConfigs = objWMIService.ExecQuery _
				 ("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
				Set objWMIService = GetObject("winmgmts:" _
				& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colAdapters = objWMIService.ExecQuery _
					("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
				n = 1
				objTextFile.WriteLine
 
				For Each objAdapter in colAdapters
				objTextFile.WriteLine "Carte Réseau - " & objAdapter.Description									'determine et ecris le nom de la carte reseau
				objTextFile.WriteLine "  Adresse MAC : " & vbTab & objAdapter.MACAddress							'determine et ecris l'adresse mac de la carte
 
				If Not IsNull(objAdapter.IPAddress) Then
				For i = 0 To UBound(objAdapter.IPAddress)
				objTextFile.WriteLine "  Adresse IP : " &vbTab & vbTab & objAdapter.IPAddress(i)			'determine et ecris l'adresse ip
				 Next
				End If
 
				   If Not IsNull(objAdapter.IPSubnet) Then
					  For i = 0 To UBound(objAdapter.IPSubnet)
						 objTextFile.WriteLine "  Sous Réseau: " &vbTab & vbTab & objAdapter.IPSubnet(i)			'determine et ecris le masque de sous reseau
					  Next
				   End If
 
				   If Not IsNull(objAdapter.DefaultIPGateway) Then
					  For i = 0 To UBound(objAdapter.DefaultIPGateway)
						 objTextFile.WriteLine "  Passerelle : " &vbTab & vbTab & objAdapter.DefaultIPGateway(i)	'determine et ecris la passerelle reseau
					  Next
				   End If
 
					If IsNull(objAdapter.DefaultIPGateway) Then
					objTextFile.WriteLine
								objTextFile.WriteLine "  Pas de DNS Specifié"
					 Else
 
				   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
					  For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
						 objTextFile.WriteLine "  DNS :" & objAdapter.DNSServerSearchOrder(i)						'determine et ecris le dns
					  Next
				   End If
 
					   objTextFile.WriteLine "  Domaine DNS : " & objAdapter.DNSDomain									'determine et ecris le domaine du dns
 
				End If
 
				Next
				objTextFile.close
				msgbox("le fichier source: " &hostname &" - " &username &".txt" &chr(13) &"A été créer dans: " &path)
 
		if resultatQ(1).Checked  then
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------Information sur l'ordinateur ------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				On Error Resume Next
 
const forappending=8
				Dim objNetwork, objDrive, intDrive, intNetLetter 
				Dim FSO, ObjFile, WshNetwork, SrtNewText, strText
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set WshNetwork = CreateObject("WScript.Network")
				Set objShell = CreateObject("WScript.Shell")
 
				hostname = WshNetwork.computername
				username = WshNetwork.username
				domainname = WshNetwork.UserDomain
				fichiersortie=("C:\My Program Files\temp_test.txt")
 
				path = "C:\My Program Files\" 																'adresse ou sera enregistrer le fichier texte
 
				If  objFSO.FolderExists (""&path&"") Then
				  Else
				Set objFolder = objFSO.CreateFolder (""&path&"")
				End If
 
 
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set objTextFile = objFSO.CreateTextFile(""&path&"temp_test.txt", True) 'creation du fichier txt 
				filepath = ""&path&""& hostname & " - "&username&".txt"
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'---------------------------------------INFOS GENERALES (Nom du poste, nom de l'utilisateur actuel) ------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				objTextFile.WriteLine "== GENERAL =========================================================="&VbCrLf&""
				objTextFile.WriteLine "Nom du poste : "& hostname &""
				Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
				Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
				For Each objItem in colItems
					strComputerDomain = objItem.Domain
					If objItem.PartOfDomain Then
						objTextFile.WriteLine "Domaine : " & strComputerDomain				'ecris le domaine dans lequel se trouve le pc
					Else
						objTextFile.WriteLine "Workgroup : " & strComputerDomain 			'ecris dans quel groupe est le pc si il est pas dans un domaine
					End If
				objTextFile.WriteLine "Marque : " & objItem.Manufacturer 					'ecris la marque de l'ordinateur
				objTextFile.WriteLine "Modele : " & objItem.Model 							'ecris le modele de l'ordinateur
				Next
				Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
				for each SN in SNSet
				objTextFile.WriteLine "Serial : " & SN.SerialNumber 						'ecris le serial du pc
				Next
				objTextFile.WriteLine
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------INFOS SUR LE SYSTEME -----------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine "== SYSTEME EXPLOITATION ============================================="&VbCrLf&""
 
				Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
				strComputer = "."
				Set objWMIService = GetObject("winmgmts:" _
					& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colOperatingSystems = objWMIService.ExecQuery _
					("Select * from Win32_OperatingSystem")
 
				For Each objOperatingSystem in colOperatingSystems
 
					objTextFile.WriteLine "OS : " & objOperatingSystem.Caption                        			'determine et ecris l'os du pc
					objTextFile.WriteLine "Version: " & objOperatingSystem.Version								'determine et ecris la version
					objTextFile.WriteLine "Service Pack : " & objOperatingSystem.ServicePackMajorVersion		'determine et ecris le service pack
					objTextFile.WriteLine "Numero Serie : " & objOperatingSystem.SerialNumber					'determine et ecris le numero de serie
					objTextFile.WriteLine "Type Version : " & objOperatingSystem.BuildType						'determine et ecris le type de version
					dtmConvertedDate.Value = objOperatingSystem.InstallDate
					dtmInstallDate = dtmConvertedDate.GetVarDate
					objTextFile.WriteLine "Date d'Installation : " & dtmInstallDate 							'determine et ecris la date d'installation
					objTextFile.WriteLine
				Next
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------------INFORMATIONS MATERIEL ----------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
 
				objTextFile.WriteLine "== PROCESSEUR & RAM ================================================="&VbCrLf&""
 
 
					Set colComputer = objWMIService.ExecQuery("Select * from Win32_Processor")
					For Each objComputer In colComputer
						objTextFile.WriteLine "Processeur :"& vbTab &"" & objComputer.Name					'determine et ecris le nom du processeur
					Next
 
 
				Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_Processor")
				For Each objProcessor In colSettings
					objTextFile.WriteLine "Type Processeur : "& vbTab &"" & objProcessor.Description		'determine et ecris le type de processeur
				Next
				objTextFile.WriteLine
 
				Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
				For Each objComputer In colComputer
					objTextFile.WriteLine "RAM Total : "&FormatNumber (objComputer.TotalPhysicalMemory /1048576+1, 0) & "Mo"	'determine et ecris la RAM
					objTextFile.WriteLine
				Next
 
				For Each objMem In GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2").InstancesOf("Win32_PhysicalMemory")
					objTextFile.WriteLine ""& vbTab &"+"&  objMem.BankLabel &" : "& objMem.Capacity/1024/1024 & " Mo"			'determine et ecris la RAM par slot
				Next
 
 
				objTextFile.WriteLine ""&VbCrLf&"== DISQUE DUR & PARTITIONS =========================================="&VbCrLf&""
 
				objTextFile.WriteLine "Disques Physiques :"
				Set colItems = objWMIService.ExecQuery(_
				"Select * from Win32_DiskDrive")
 
							maxsize = 0
							drive = 0
 
							For Each objItem in colItems
				If objItem.Partitions > 0 and objItem.Name = "\\.\PHYSICALDRIVE0"  Then
				objTextFile.WriteLine ""&vbTab &"Nom : "& vbTab &"" & objItem.Name 										'determine et ecris le nom du/des DD
				objTextFile.WriteLine ""&vbTab &"Taille : " & Int(objItem.Size /(1073741824)) & " GB" 					'determine et ecris la taille du/des DD
				objTextFile.WriteLine ""&vbTab &"Modèle : " & objItem.Model 											'determine et ecris la marque du/des DD
				objTextFile.WriteLine ""&vbTab &"Nbr de partition(s) : "& vbTab &"" & objItem.Partitions &VbCrLf&"" 	'determine et ecris le nombre de partition
 
				maxsize = maxsize + Int(objItem.Size /(1073741824))
				drive = drive + 1
				Else
				End If
				Next
 
				objTextFile.WriteLine"Espace Total : "&maxsize&" Go dans "&drive&" disques durs"						'determine et ecris la somme des DD
 
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------------RESEAU ----------------------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine ""&VbCrLf&"== RESEAU ==========================================================="&VbCrLf&""
				Set colNicConfigs = objWMIService.ExecQuery _
				 ("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
 
				Set objWMIService = GetObject("winmgmts:" _
					& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colAdapters = objWMIService.ExecQuery _
					("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
				n = 1
				objTextFile.WriteLine
 
				For Each objAdapter in colAdapters
				   objTextFile.WriteLine "Carte Réseau - " & objAdapter.Description									'determine et ecris le nom de la carte reseau
				  objTextFile.WriteLine "  Adresse MAC : " & vbTab & objAdapter.MACAddress							'determine et ecris l'adresse mac de la carte
 
				   If Not IsNull(objAdapter.IPAddress) Then
					  For i = 0 To UBound(objAdapter.IPAddress)
						 objTextFile.WriteLine "  Adresse IP : " &vbTab & vbTab & objAdapter.IPAddress(i)			'determine et ecris l'adresse ip
					  Next
				   End If
 
				   If Not IsNull(objAdapter.IPSubnet) Then
					  For i = 0 To UBound(objAdapter.IPSubnet)
						 objTextFile.WriteLine "  Sous Réseau: " &vbTab & vbTab & objAdapter.IPSubnet(i)			'determine et ecris le masque de sous reseau
					  Next
				   End If
 
				   If Not IsNull(objAdapter.DefaultIPGateway) Then
					  For i = 0 To UBound(objAdapter.DefaultIPGateway)
						 objTextFile.WriteLine "  Passerelle : " &vbTab & vbTab & objAdapter.DefaultIPGateway(i)	'determine et ecris la passerelle reseau
					  Next
				   End If
 
					If IsNull(objAdapter.DefaultIPGateway) Then
					objTextFile.WriteLine
							objTextFile.WriteLine "  Pas de DNS Specifié"
				 Else
 
				   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
					  For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
						 objTextFile.WriteLine "  DNS :" & objAdapter.DNSServerSearchOrder(i)						'determine et ecris le dns
					  Next
				   End If
 
				   objTextFile.WriteLine "  Domaine DNS : " & objAdapter.DNSDomain									'determine et ecris le domaine du dns
 
				End If
 
				Next
				objTextFile.close
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------------- TEST ----------------------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				Set objSourceFile = objFSO.OpenTextFile(path & hostname & " - "&username &".txt", 1) 		'Fichier source
					set objSourceFile2 = objFSO.OpenTextFile("C:\temp_test.txt", 1)						 		'Fichier temp_test
 
					Do Until objSourceFile.AtEndOfStream Or objSourceFile2.AtEndOfStream
 
					   vrLigne = objSourceFile.ReadLine
					   vrLigne2 = objSourceFile2.ReadLine
					   if vrLigne = vrLigne2 then
						   else
						   erreur= vrLigne &chr(13) &"a" &chr(13) &vrLigne2 &chr(13)
					   end if
					Loop
 
					if erreur <> "" then
						msgbox("ATTENTION: votre configuration matériel à été modifier de: " &chr(13) &erreur)
					end if
 
				objFSO.DeleteFile fichiersortie						 										'supression de l'ancien fichier
	End Sub
 </SCRIPT>
 <BODY>
 <input type="button" value="Actionnez ce bouton" onClick="btValider">
 </BODY>
</center>

Le message qu'il me renvoi est "redéfinition des noms".

**SfJ5Rpw8** · 12/08/2011, 19h31

déjà te rends-tu compte que ta procédure "btValider_OnClick" fait plus de 400 lignes ... n'étais-t'il pas possible de la découper en plusieurs procédures ..?

pour ton erreur il n'y as pas un message plus précis ? un numéro de ligne ?

**urcus** · 12/08/2011, 19h51

heu dsl je ne savais pas qu'il ne fallais pas mettre autant de ligne dans un "btValider_OnClick"

pour se qui est du numero de ligne c'est la 220 et caractere 7 la encore une fois désoler je pensais pourtant l'avoir ecris

PS: j'avais d'abord essayer de faire une systeme avec deux "tstBouton"^et sa ne marchais pas non plus

**SfJ5Rpw8** · 12/08/2011, 19h56

Envoyé par urcus

heu dsl je ne savais pas qu'il ne fallais pas mettre autant de ligne dans un "btValider_OnClick"

p...:

c'est pareil pour toutes les procédures/fonctions il vaut mieux découper pour rendre plus lisible ...

cela aurait pu t'éviter en ligne 220 de re-déclarer une constante déjà définit dans ta procédure en ligne 28..:

Code :

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

const forappending=8

divise ton code (au moins en 2 ..)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub btValider_OnClick
   MaProcedure1 'Trouve un nom plus parlant
   MaProcedure2 'Trouve un nom plus parlant ..
end sub
 
Sub MaProcedure1
 (.. copie lignes 21 a 211 )
End sub
 
Sub MaProcedure2
 (.. copie lignes 212 a 429 )
End sub

**urcus** · 12/08/2011, 20h14

J'ai suivi t'est conseil et j'ai donc separer tous se petit monde

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
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
<TITLE>Systeme de surveillance du materiel</TITLE>
 
<script language="vbs">
ResizeTo 350,200
MoveTo 250,200
</script>
 
<center>
Qu'elle opération voulez vous lancez ? : <BR><BR>
<INPUT TYPE="radio" NAME="resultatQ" VALUE="Creation du fichier source" CHECKED>Creation du fichier source<BR>
<INPUT TYPE="radio" NAME="resultatQ" VALUE="Test de la configuration materiel">Test de la configuration materiel<BR>
<BR>
<HEAD>
 
<HTA:APPLICATION
      APPLICATION="htaBouton"
   > 
 </HEAD>
 <script language="VBScript">
 
Sub btValider_OnClick
	creation_source
	test_materiel
end sub
 
Sub creation_source
 
    if resultatQ(0).Checked  then
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		'----------------------------------------------------Information sur l'ordinateur ------------------------------------------------------------------
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		On Error Resume Next
 
		const forappending=8
		Dim objNetwork, objDrive, intDrive, intNetLetter 
		Dim FSO, ObjFile, WshNetwork, SrtNewText, strText
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set WshNetwork = CreateObject("WScript.Network")
		Set objShell = CreateObject("WScript.Shell")
		hostname = WshNetwork.computername
		username = WshNetwork.username
		domainname = WshNetwork.UserDomain
		fichiersortie=("C:\My Program Files\"& hostname & " - "&username &".txt")
 
		objFSO.DeleteFile fichiersortie						 										'supression de l'ancien fichier
 
		path = "C:\My Program Files\" 																'adresse ou sera enregistrer le fichier texte
 
		If  objFSO.FolderExists (""&path&"") Then
	  Else
		Set objFolder = objFSO.CreateFolder (""&path&"")
		End If
 
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objTextFile = objFSO.CreateTextFile(""&path&""&hostname &" - " &username &".txt", True) 'creation du fichier txt 
		filepath = ""&path&""& hostname & " - "&username&".txt"
 
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		'---------------------------------------INFOS GENERALES (Nom du poste, nom de l'utilisateur actuel) ------------------------------------------------
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		objTextFile.WriteLine "== GENERAL =========================================================="&VbCrLf&""
		objTextFile.WriteLine "Nom du poste : "& hostname &""
		Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
		Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
		For Each objItem in colItems
		strComputerDomain = objItem.Domain
		If objItem.PartOfDomain Then
		objTextFile.WriteLine "Domaine : " & strComputerDomain				'ecris le domaine dans lequel se trouve le pc
			Else
				objTextFile.WriteLine "Workgroup : " & strComputerDomain 			'ecris dans quel groupe est le pc si il est pas dans un domaine
			End If
		objTextFile.WriteLine "Marque : " & objItem.Manufacturer 					'ecris la marque de l'ordinateur
		objTextFile.WriteLine "Modele : " & objItem.Model 							'ecris le modele de l'ordinateur
		Next
		Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
		for each SN in SNSet
		objTextFile.WriteLine "Serial : " & SN.SerialNumber 						'ecris le serial du pc
		Next
		objTextFile.WriteLine
 
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		'-------------------------------------------------------INFOS SUR LE SYSTEME -----------------------------------------------------------------------
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		objTextFile.WriteLine "== SYSTEME EXPLOITATION ============================================="&VbCrLf&""
		Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
		strComputer = "."
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Set colOperatingSystems = objWMIService.ExecQuery _
		("Select * from Win32_OperatingSystem")
 
		For Each objOperatingSystem in colOperatingSystems
 
		objTextFile.WriteLine "OS : " & objOperatingSystem.Caption                        			'determine et ecris l'os du pc
		objTextFile.WriteLine "Version: " & objOperatingSystem.Version								'determine et ecris la version
		objTextFile.WriteLine "Service Pack : " & objOperatingSystem.ServicePackMajorVersion		'determine et ecris le service pack
		objTextFile.WriteLine "Numero Serie : " & objOperatingSystem.SerialNumber					'determine et ecris le numero de serie
		objTextFile.WriteLine "Type Version : " & objOperatingSystem.BuildType						'determine et ecris le type de version
		dtmConvertedDate.Value = objOperatingSystem.InstallDate
		dtmInstallDate = dtmConvertedDate.GetVarDate
		objTextFile.WriteLine "Date d'Installation : " & dtmInstallDate 							'determine et ecris la date d'installation
		objTextFile.WriteLine
		Next
 
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		'-------------------------------------------------------------INFORMATIONS MATERIEL ----------------------------------------------------------------
		'---------------------------------------------------------------------------------------------------------------------------------------------------
 
		objTextFile.WriteLine "== PROCESSEUR & RAM ================================================="&VbCrLf&""
 
		Set colComputer = objWMIService.ExecQuery("Select * from Win32_Processor")
		For Each objComputer In colComputer
		objTextFile.WriteLine "Processeur :"& vbTab &"" & objComputer.Name					'determine et ecris le nom du processeur
		Next
 
		Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_Processor")
		For Each objProcessor In colSettings
		objTextFile.WriteLine "Type Processeur : "& vbTab &"" & objProcessor.Description		'determine et ecris le type de processeur
		Next
		objTextFile.WriteLine
 
		Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
		For Each objComputer In colComputer
		objTextFile.WriteLine "RAM Total : "&FormatNumber (objComputer.TotalPhysicalMemory /1048576+1, 0) & "Mo"	'determine et ecris la RAM
			objTextFile.WriteLine
		Next
 
		For Each objMem In GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2").InstancesOf("Win32_PhysicalMemory")
			objTextFile.WriteLine ""& vbTab &"+"&  objMem.BankLabel &" : "& objMem.Capacity/1024/1024 & " Mo"			'determine et ecris la RAM par slot
		Next
 
		objTextFile.WriteLine ""&VbCrLf&"== DISQUE DUR & PARTITIONS =========================================="&VbCrLf&""
		objTextFile.WriteLine "Disques Physiques :"
		Set colItems = objWMIService.ExecQuery(_
		"Select * from Win32_DiskDrive")
					maxsize = 0
					drive = 0
					For Each objItem in colItems
		If objItem.Partitions > 0 and objItem.Name = "\\.\PHYSICALDRIVE0"  Then
		objTextFile.WriteLine ""&vbTab &"Nom : "& vbTab &"" & objItem.Name 										'determine et ecris le nom du/des DD
		objTextFile.WriteLine ""&vbTab &"Taille : " & Int(objItem.Size /(1073741824)) & " GB" 					'determine et ecris la taille du/des DD
		objTextFile.WriteLine ""&vbTab &"Modèle : " & objItem.Model 											'determine et ecris la marque du/des DD
		objTextFile.WriteLine ""&vbTab &"Nbr de partition(s) : "& vbTab &"" & objItem.Partitions &VbCrLf&"" 	'determine et ecris le nombre de partition
 
			maxsize = maxsize + Int(objItem.Size /(1073741824))
			drive = drive + 1
			Else
			End If
			Next
 
		objTextFile.WriteLine"Espace Total : "&maxsize&" Go dans "&drive&" disques durs"						'determine et ecris la somme des DD
 
 
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		'----------------------------------------------------------RESEAU ----------------------------------------------------------------------------------
		'---------------------------------------------------------------------------------------------------------------------------------------------------
		objTextFile.WriteLine ""&VbCrLf&"== RESEAU ==========================================================="&VbCrLf&""
		Set colNicConfigs = objWMIService.ExecQuery _
		("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Set colAdapters = objWMIService.ExecQuery _
		("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
			n = 1
			objTextFile.WriteLine
 
		For Each objAdapter in colAdapters
		objTextFile.WriteLine "Carte Réseau - " & objAdapter.Description									'determine et ecris le nom de la carte reseau
		objTextFile.WriteLine "  Adresse MAC : " & vbTab & objAdapter.MACAddress							'determine et ecris l'adresse mac de la carte
 
		If Not IsNull(objAdapter.IPAddress) Then
		For i = 0 To UBound(objAdapter.IPAddress)
		objTextFile.WriteLine "  Adresse IP : " &vbTab & vbTab & objAdapter.IPAddress(i)			'determine et ecris l'adresse ip
		 Next
		End If
 
		   If Not IsNull(objAdapter.IPSubnet) Then
		  For i = 0 To UBound(objAdapter.IPSubnet)
		 objTextFile.WriteLine "  Sous Réseau: " &vbTab & vbTab & objAdapter.IPSubnet(i)			'determine et ecris le masque de sous reseau
			  Next
		   End If
 
		   If Not IsNull(objAdapter.DefaultIPGateway) Then
		  For i = 0 To UBound(objAdapter.DefaultIPGateway)
		 objTextFile.WriteLine "  Passerelle : " &vbTab & vbTab & objAdapter.DefaultIPGateway(i)	'determine et ecris la passerelle reseau
		  Next
		   End If
 
			If IsNull(objAdapter.DefaultIPGateway) Then
			objTextFile.WriteLine
		objTextFile.WriteLine "  Pas de DNS Specifié"
			 Else
 
				   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
					  For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
						 objTextFile.WriteLine "  DNS :" & objAdapter.DNSServerSearchOrder(i)						'determine et ecris le dns
					  Next
				   End If
 
					   objTextFile.WriteLine "  Domaine DNS : " & objAdapter.DNSDomain									'determine et ecris le domaine du dns
 
				End If
 
				Next
				objTextFile.close
				msgbox("le fichier source: " &hostname &" - " &username &".txt" &chr(13) &"A été créer dans: " &path)
end sub
 
Sub test_materiel
 
		if resultatQ(1).Checked  then
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------Information sur l'ordinateur ------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				On Error Resume Next
 
				fichiersortie=("C:\My Program Files\temp_test.txt")
 
				path = "C:\My Program Files\" 																'adresse ou sera enregistrer le fichier texte
 
				If  objFSO.FolderExists (""&path&"") Then
				  Else
				Set objFolder = objFSO.CreateFolder (""&path&"")
				End If
 
 
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set objTextFile = objFSO.CreateTextFile(""&path&"temp_test.txt", True) 'creation du fichier txt 
				filepath = ""&path&""& hostname & " - "&username&".txt"
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'---------------------------------------INFOS GENERALES (Nom du poste, nom de l'utilisateur actuel) ------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				objTextFile.WriteLine "== GENERAL =========================================================="&VbCrLf&""
				objTextFile.WriteLine "Nom du poste : "& hostname &""
				Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
				Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
				For Each objItem in colItems
					strComputerDomain = objItem.Domain
					If objItem.PartOfDomain Then
						objTextFile.WriteLine "Domaine : " & strComputerDomain				'ecris le domaine dans lequel se trouve le pc
					Else
						objTextFile.WriteLine "Workgroup : " & strComputerDomain 			'ecris dans quel groupe est le pc si il est pas dans un domaine
					End If
				objTextFile.WriteLine "Marque : " & objItem.Manufacturer 					'ecris la marque de l'ordinateur
				objTextFile.WriteLine "Modele : " & objItem.Model 							'ecris le modele de l'ordinateur
				Next
				Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
				for each SN in SNSet
				objTextFile.WriteLine "Serial : " & SN.SerialNumber 						'ecris le serial du pc
				Next
				objTextFile.WriteLine
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------INFOS SUR LE SYSTEME -----------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine "== SYSTEME EXPLOITATION ============================================="&VbCrLf&""
 
				Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
				strComputer = "."
				Set objWMIService = GetObject("winmgmts:" _
					& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colOperatingSystems = objWMIService.ExecQuery _
					("Select * from Win32_OperatingSystem")
 
				For Each objOperatingSystem in colOperatingSystems
 
					objTextFile.WriteLine "OS : " & objOperatingSystem.Caption                        			'determine et ecris l'os du pc
					objTextFile.WriteLine "Version: " & objOperatingSystem.Version								'determine et ecris la version
					objTextFile.WriteLine "Service Pack : " & objOperatingSystem.ServicePackMajorVersion		'determine et ecris le service pack
					objTextFile.WriteLine "Numero Serie : " & objOperatingSystem.SerialNumber					'determine et ecris le numero de serie
					objTextFile.WriteLine "Type Version : " & objOperatingSystem.BuildType						'determine et ecris le type de version
					dtmConvertedDate.Value = objOperatingSystem.InstallDate
					dtmInstallDate = dtmConvertedDate.GetVarDate
					objTextFile.WriteLine "Date d'Installation : " & dtmInstallDate 							'determine et ecris la date d'installation
					objTextFile.WriteLine
				Next
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'-------------------------------------------------------------INFORMATIONS MATERIEL ----------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
 
				objTextFile.WriteLine "== PROCESSEUR & RAM ================================================="&VbCrLf&""
 
 
					Set colComputer = objWMIService.ExecQuery("Select * from Win32_Processor")
					For Each objComputer In colComputer
						objTextFile.WriteLine "Processeur :"& vbTab &"" & objComputer.Name					'determine et ecris le nom du processeur
					Next
 
 
				Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_Processor")
				For Each objProcessor In colSettings
					objTextFile.WriteLine "Type Processeur : "& vbTab &"" & objProcessor.Description		'determine et ecris le type de processeur
				Next
				objTextFile.WriteLine
 
				Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
				For Each objComputer In colComputer
					objTextFile.WriteLine "RAM Total : "&FormatNumber (objComputer.TotalPhysicalMemory /1048576+1, 0) & "Mo"	'determine et ecris la RAM
					objTextFile.WriteLine
				Next
 
				For Each objMem In GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2").InstancesOf("Win32_PhysicalMemory")
					objTextFile.WriteLine ""& vbTab &"+"&  objMem.BankLabel &" : "& objMem.Capacity/1024/1024 & " Mo"			'determine et ecris la RAM par slot
				Next
 
 
				objTextFile.WriteLine ""&VbCrLf&"== DISQUE DUR & PARTITIONS =========================================="&VbCrLf&""
 
				objTextFile.WriteLine "Disques Physiques :"
				Set colItems = objWMIService.ExecQuery(_
				"Select * from Win32_DiskDrive")
 
							maxsize = 0
							drive = 0
 
							For Each objItem in colItems
				If objItem.Partitions > 0 and objItem.Name = "\\.\PHYSICALDRIVE0"  Then
				objTextFile.WriteLine ""&vbTab &"Nom : "& vbTab &"" & objItem.Name 										'determine et ecris le nom du/des DD
				objTextFile.WriteLine ""&vbTab &"Taille : " & Int(objItem.Size /(1073741824)) & " GB" 					'determine et ecris la taille du/des DD
				objTextFile.WriteLine ""&vbTab &"Modèle : " & objItem.Model 											'determine et ecris la marque du/des DD
				objTextFile.WriteLine ""&vbTab &"Nbr de partition(s) : "& vbTab &"" & objItem.Partitions &VbCrLf&"" 	'determine et ecris le nombre de partition
 
				maxsize = maxsize + Int(objItem.Size /(1073741824))
				drive = drive + 1
				Else
				End If
				Next
 
				objTextFile.WriteLine"Espace Total : "&maxsize&" Go dans "&drive&" disques durs"						'determine et ecris la somme des DD
 
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------------RESEAU ----------------------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				objTextFile.WriteLine ""&VbCrLf&"== RESEAU ==========================================================="&VbCrLf&""
				Set colNicConfigs = objWMIService.ExecQuery _
				 ("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
 
				Set objWMIService = GetObject("winmgmts:" _
					& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
				Set colAdapters = objWMIService.ExecQuery _
					("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
				n = 1
				objTextFile.WriteLine
 
				For Each objAdapter in colAdapters
				   objTextFile.WriteLine "Carte Réseau - " & objAdapter.Description									'determine et ecris le nom de la carte reseau
				  objTextFile.WriteLine "  Adresse MAC : " & vbTab & objAdapter.MACAddress							'determine et ecris l'adresse mac de la carte
 
				   If Not IsNull(objAdapter.IPAddress) Then
					  For i = 0 To UBound(objAdapter.IPAddress)
						 objTextFile.WriteLine "  Adresse IP : " &vbTab & vbTab & objAdapter.IPAddress(i)			'determine et ecris l'adresse ip
					  Next
				   End If
 
				   If Not IsNull(objAdapter.IPSubnet) Then
					  For i = 0 To UBound(objAdapter.IPSubnet)
						 objTextFile.WriteLine "  Sous Réseau: " &vbTab & vbTab & objAdapter.IPSubnet(i)			'determine et ecris le masque de sous reseau
					  Next
				   End If
 
				   If Not IsNull(objAdapter.DefaultIPGateway) Then
					  For i = 0 To UBound(objAdapter.DefaultIPGateway)
						 objTextFile.WriteLine "  Passerelle : " &vbTab & vbTab & objAdapter.DefaultIPGateway(i)	'determine et ecris la passerelle reseau
					  Next
				   End If
 
					If IsNull(objAdapter.DefaultIPGateway) Then
					objTextFile.WriteLine
							objTextFile.WriteLine "  Pas de DNS Specifié"
				 Else
 
				   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
					  For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
						 objTextFile.WriteLine "  DNS :" & objAdapter.DNSServerSearchOrder(i)						'determine et ecris le dns
					  Next
				   End If
 
				   objTextFile.WriteLine "  Domaine DNS : " & objAdapter.DNSDomain									'determine et ecris le domaine du dns
 
				End If
 
				Next
				objTextFile.close
 
				'---------------------------------------------------------------------------------------------------------------------------------------------------
				'----------------------------------------------------------- TEST ----------------------------------------------------------------------------------
				'---------------------------------------------------------------------------------------------------------------------------------------------------
 
				Set objSourceFile = objFSO.OpenTextFile(path & hostname & " - "&username &".txt", 1) 		'Fichier source
					set objSourceFile2 = objFSO.OpenTextFile("C:\temp_test.txt", 1)						 		'Fichier temp_test
 
					Do Until objSourceFile.AtEndOfStream Or objSourceFile2.AtEndOfStream
 
					   vrLigne = objSourceFile.ReadLine
					   vrLigne2 = objSourceFile2.ReadLine
					   if vrLigne = vrLigne2 then
						   else
						   erreur= vrLigne &chr(13) &"a" &chr(13) &vrLigne2 &chr(13)
					   end if
					Loop
 
					if erreur <> "" then
						msgbox("ATTENTION: votre configuration matériel à été modifier de: " &chr(13) &erreur)
					end if
 
				objFSO.DeleteFile fichiersortie						 										'supression de l'ancien fichier
	End Sub
 </SCRIPT>
 <BODY>
 <input type="button" value="Actionnez ce bouton" onClick="btValider">
 </BODY>
</center>

en suivant "l'architecture" que tu ma donner, j'ai egalement supprimer quelque ligne (declarartion de constante et de variable qui etait en doublon) mais maintenant il me renvoietoujours une erreur "redefinition de nom"

mais cette fois sur la ligne 220

et plus de sa j'ai une deuxieme erreur qui apparais en plus maintenant "if attendu" a la ligne 209.
Franchement je sais plus quoi faire ...

**SfJ5Rpw8** · 12/08/2011, 20h28

tu as supprimer des lignes en trop ... si elles ne sont pas dans la même procédure tes déclarations ne sont pas en doublon ...

pour le numéro de ligne d'erreur dit moi le numéro afficher sur le forum ...
220 c'est le numéro de la précédente erreur ..

**urcus** · 12/08/2011, 20h38

Envoyé par bbil

tu as supprimer des lignes en trop ... si elles ne sont pas dans la même procédure tes déclarations ne sont pas en doublon ...

Ok sa c'est corriger ...

Envoyé par bbil

pour le numéro de ligne d'erreur dit moi le numéro afficher sur le forum ...
220 c'est le numéro de la précédente erreur ..

La par contre sa coince toujours ... Le numero de ligne est bien la 209 (pour le "if attendu"... j'ai beau lire et relire le tous je ne voie ou comprend pas oui est mon erreur.

Mais en tous cas merci de ton interet !

**SfJ5Rpw8** · 12/08/2011, 21h04

Ton code est toujours trop long et toujours si difficile à lire..

Tu as oublié des Endif ... pour tes 2 tests de case à cocher ...

Code :

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

1
2
3
4
if resultatQ(0).Checked  then (...)
 
End if
End sub

**urcus** · 12/08/2011, 21h17

Envoyé par bbil

Ton code est toujours trop long et toujours si difficile à lire..

dsl ... j'admet que j'ai pas mis beaucoup de commentaire ...

si je peux faire quelque chose pour faciliter la comprehenssion hesite pas a demander et je t'acherais de faire au mieux pour y repondre ...

**SfJ5Rpw8** · 12/08/2011, 21h20

Il y aussi une erreur sur ton bouton il manque le _onclick dans le nom de la procédure à appeler :

Code :

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

<input type="button" value="Actionnez ce bouton" onClick="btValider_onclick">

**urcus** · 12/08/2011, 21h39

sa marche !!!!

enfin presque ^^"
pendant l'execution du deuxieme script j'ai une fenetre qui apparait me disant que un script present ralentissais mon navigateur internet et que mon ordinateur allais planter.. suite a sa le script s'arrete....
est ce du a la longueur du script ? car si oui je sais pas comment je vais faire car je ne vois pas comment faire plus cour ....

**SfJ5Rpw8** · 12/08/2011, 21h43

essai de n'exécuter que le second script ..

**urcus** · 12/08/2011, 22h00

J'ai trouver la derniere erreur !!
en fait il etait ecrit

Code :

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

1
2
Set objSourceFile = objFSO.OpenTextFile(path & hostname & " - "&username &".txt", 1) 		'Fichier source
					set objSourceFile2 = objFSO.OpenTextFile("C:\temp_test.txt", 1)						 		'Fichier temp_test

au lieu de

Code :

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

1
2
Set objSourceFile = objFSO.OpenTextFile(path & hostname & " - "&username &".txt", 1) 		'Fichier source
					set objSourceFile2 = objFSO.OpenTextFile(path &"temp_test.txt", 1)						 		'Fichier temp_test

une fois l'erreur corriger tout se passe correctement

Franchement un grand merci a toi car je n'y serais jamais arriver seul !! Ma premiere journer de programmation en hta se fini plutot bien ! me reste plus que quelque details a corriger mais rien de bien important

VBS/HTA surveillance du materiel grace a la comparaison d'audit

VBScript

Discussions similaires

Partager

Partager