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
| ' Forcer la déclaration des variables
Option Explicit
' Déclaration des variables
Dim objFSO, objRep
Dim objReseau
Dim objFSOListing, objFichiersListing, objListing, objDossierListing, objCheminListing
Dim objFSOListingi, objFichiersListingi, objListingi, objDossierListingi, objCheminListingi
' Création des objets
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Recherche de l'existance du dossier
If objFSO.FolderExists("G:\Patch-XP") Then
Set objRep = objFSO.GetFolder("G:\Patch-XP")
Else
Set objReseau = CreateObject("Wscript.Network")
objReseau.MapNetworkDrive "G:", "\\serv_pcfixe\Applis"
End If
' Listing des Patchs XP disponibles
objCheminListing = "G:\Patch-XP"
Set objListing = objFSOListing.CreateTextFile("G:\Patch-XP\Listing.txt", True)
Set objDossierListing = objFSOListing.getFolder(objCheminListing)
Set objFichiersListing = objDossierListing.Files
listing.WriteLine "***** Voici la liste des Patchs XP *****" & objCheminListing
listing.WriteLine ' Saut de ligne
listing.WriteLine "Nom" + vbTab + "Taille" + vbTab + "Date de création"
For Each FichierListing in objFichiersListing
listing.WriteLine FichierListing.Name
Next
listing.Close
' Listing des Patchs XP installés
objCheminListingi = "C:\WINDOWS\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}"
Set objListingi = objFSOListingi.CreateTextFile("G:\Patch-XP\Installed.txt", True)
Set objDossierListingi = objFSOListingi.getFolder(objCheminListingi)
Set objFichiersListingi = objDossierListingi.Files
listing.WriteLine "***** Voici la liste des Patchs XP *****" & objCheminListingi
listing.WriteLine ' Saut de ligne
listing.WriteLine "Nom" + vbTab + "Taille" + vbTab + "Date de création"
For Each FichierListingi in objFichiersListingi
listing.WriteLine FichierListingi.Name
Next
listing.Close
' Comparaison des fichiers textes |
Partager