Discussion :

[salento9]

Bonjour,

J'ai un début de script qui me permet de décompresser tous les fichiers d'un répertoire et sous-répertoire mais il ne fonctionne pas pouvez vous m'aider a compléter le script avec l’exclusion de la décompression des répertoires suivant? donc décompresser tous dans le c:\ d:\ e:\ mais pas le répertoires suivants:

C:\WINDOWS \$Nt*
C:\WINDOWS\$hf_mig$
C:\WINDOWS\ie7updates
C:\WINDOWS\ie8updates?

voici le script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
wql="SELECT * FROM Win32_Directory" _
  & " WHERE (Drive='c:' OR Drive='d:' OR Drive='e:')" _
  & " AND NOT Name like 'C:\\WINDOWS\\$Nt%'" _
  & " AND NOT Name='C:\\WINDOWS\\$hf_mig$'" _
  & " AND NOT Name='C:\\WINDOWS\\ie7'" _
  & " AND NOT Name='C:\\WINDOWS\\ie8'"
Set colFolders = objWMIService.ExecQuery( wql )
For Each objFolder in colFolders
    errResults = objFolder.Uncompress()
    'Wscript.Echo objFolder.Caption
Next

[salento9]

Voila le travail et ça fonctionne

il faut juste adapter le ligne 12 et 13 (') le descendre.

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
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
ExecQuery("c")
ExecQuery("d")
ExecQuery("e")
 
Sub ExecQuery(sDrive)
wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') AND NOT Name like 'C:\\WINDOWS\\$Nt%' AND NOT Name='C:\\WINDOWS\\$hf_mig$' AND NOT Name='C:\\WINDOWS\\ie7' AND NOT Name='C:\\WINDOWS\\ie8'"
 
Set colFolders = objWMIService.ExecQuery( wql )
For Each objFolder in colFolders
'    errResults = objFolder.Uncompress()
    Wscript.Echo objFolder.Caption
Next  
End Sub

[salento9]

il faut que trouve comment écrire dans un fichier log tout ce que le script fait

pouvez vous svp m'aider?

[l_autodidacte]

il faut que je trouve comment écrire dans un fichier log tout ce que le script fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Fich,fso, Ret
     Ret = ""
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Fich = fso.OpenTextFile("C:\Monfichier.log",2,True)
   'Ensuite dans la boucle For ....Each mets à la place de Wscript.Echo .... 
    Ret = Ret + objFolder.Caption + VbNewLine
  ' et juste après Next(de la boucle) mets ceci :
     Fich.Write Ret
     Fich.Close
     Set fso = Nothing 
     Set Fich = Nothing

[salento9]

Merci beaucoup

c'est comme ça:

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
Dim Fich,fso, Ret
     Ret = ""
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Fich = fso.OpenTextFile("C:\temp\decompress.log",2,True)
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
ExecQuery("c")
ExecQuery("d")
ExecQuery("e")
 
Sub ExecQuery(sDrive)
wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') AND NOT Name like 'C:\\WINDOWS\\$Nt%' AND NOT Name='C:\\WINDOWS\\$hf_mig$' AND NOT Name='C:\\WINDOWS\\ie7' AND NOT Name='C:\\WINDOWS\\ie8'"
 
Set colFolders = objWMIService.ExecQuery( wql )
For Each objFolder in colFolders
	  errResults = objFolder.Uncompress()
    'Wscript.Echo objFolder.Caption
Ret = Ret + objFolder.Caption + VbNewLine
 
Next  
 
Fich.Write Ret
     Fich.Close
     Set fso = Nothing 
     Set Fich = Nothing
End Sub

en effet il crée un log avec tous les fichiers/répertoire qui as parcourus,

il y t'il la possibilité d’écrire un log pour les fichier/répertoire qui ont étés parcouru + un log avec le fichier qui ont été décompresses?

j'ai ceci mais comment l'utiliser?

Code :

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

1
2
3
4
5
if objFolder.Compressed Then
    ret=objFolder.Uncompress
    Wscript.Echo ret
    Wscirpt.Echo objFolder.Caption
End If

[salento9]

Je viens a vous pour votre précieux aide,

pouvez m'aider a compléter ce script en ajoutant la création d"un fichier log avec les fichiers qui ont étais compressés + arrêter la décompression si le disque c:\ fait moins de 1Giga

le script plus haut ne fonctionne pas le suivant il fonctionne mais pas de log et pas de check pour le disque si moins de 1Giga stop décompression.

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
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
ExecQuery("c")
ExecQuery("d")
ExecQuery("e")
 
Sub ExecQuery(sDrive)
wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') AND NOT Name like 'C:\\WINDOWS\\$Nt%' AND NOT Name='C:\\WINDOWS\\$hf_mig$' AND NOT Name='C:\\WINDOWS\\ie7' AND NOT Name='C:\\WINDOWS\\ie8'"
 
Set colFolders = objWMIService.ExecQuery( wql )
For Each objFolder in colFolders
 
    if objFolder.Compressed Then
    ret=objFolder.Uncompress
    Wscript.Echo ret
    Wscript.Echo objFolder.Caption
 
End If
 
Next  
End Sub