Mon code doit détecter la présence d'un répertoire commençant par v2.. dans le cas ou il n'existe pas il l'énonce dans un log qui doit donner son chemin commençant par v... Voila mon bout de code pour le moment. Merci de bien vouloir m'aider.

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
Set objWshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
 
strUtilisateur = objWshNetwork.username
strDomaine = objWshNetwork.userdomain
strOrdinateur = objWshNetwork.ComputerName
strDateTime = Now()
 
sICALog1 = "\\...\FrameworkDetect_" & strOrdinateur & ".log"
sICALog2 = "C:\FrameworkDetect.log"
 
strFonts = WshShell.SpecialFolders("Fonts")
strWindows = Left(strFonts, Len(strFonts) - 5)
strVersion = "v2*"
 
Const ForAppending = 8
 
strFramework = strWindows + "Microsoft.NET\Framework\" + strVersion
If not fso.FolderExists(strFramework) Then
	strLine = strOrdinateur & "  " & strDomaine
	On Error Resume Next
	If fso.FileExists(sICALog1) Then
		On Error Resume Next
		Set Log1 = fso.OpenTextFile(sICALog1, ForAppending, TristateFalse)
		Log1.WriteLine strLine
		Log1.Close
	Else
		Set Log1 = fso.CreateTextFile(sICALog1, modeECRITURE, TristateTrue)
		Log1.WriteLine strLine
		Log1.Close
	End If
 
	If fso.FileExists(sICALog2) Then
		On Error Resume Next
		Set Log2 = fso.OpenTextFile(sICALog2, ForAppending, TristateFalse)
		Log2.WriteLine strLine
		Log2.Close
	Else
		Set Log2 = fso.CreateTextFile(sICALog2, modeECRITURE, TristateTrue)
		Log2.WriteLine strLine
		Log2.Close
	End If
ELse
	wscript.quit
End if
Pour le moment le * du strversion n'est pas géré.