Enregistrez quotidiennement la quantité d'espace disque disponible dans un fichier
introduction
Le VBScript suivant enregistrera l'espace libre sur le disque dur (consolidé) informations dans un fichier journal. Vous pouvez configurer ce script pour qu'il s'exécute à partir de Windows. Démarrage ou encore mieux, en utilisant la tâche planifiée, pour l'exécuter quotidiennement. Le. les informations seront stockées dans un fichier nommé FreeSpace.txt sur le bureau. Tu peux. modifiez le chemin en conséquence si vous le souhaitez.
Voici le scénario
'FreeSpaceInfo.vbs. - 2 septembre 2005
'Auteur: Ramesh Srinivasan
'Site Internet: https://www.winhelponline.com/xp
'Enregistre les informations d'espace libre sur le disque dur dans un fichier.
'Peut être exécuté en tant que tâche planifiée ou placé dans le dossier de démarrage.
Option Explicite
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Définissez MyShell = CreateObject("Wscript. Coquille")
Définissez fso = Wscript. CreateObject("Script. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
définir fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strOrdinateur = "."
Définir objWMIService = GetObject _
( "winmgmts:\\" & strOrdinateur & "\root\cimv2")
Définissez colItems = objWMIService. ExecQuery _
("Sélectionnez * à partir de Win32_LogicalDisk où DriveType = 3")
Pour chaque objItem dans colItems
'Récupérer de l'espace libre et convertir depuis uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Espace libre)
Suivant
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc = Numéro de format (iSpc, 1)
'Pour capturer la date et l'heure, utilisez la fonction "Maintenant". au lieu de "Date"
fsHandle. Writeline Date & " -- " & iSpc & " Go d'espace libre"
fsHandle. Écrire à blanc 1
fsHandle.close
définir MyShell = Rien
définir fso = rien
Copiez les lignes ci-dessus dans le Bloc-notes et enregistrez le fichier sous le nom "FreeSpaceInfo.vbs" (avec. devis). Vous pouvez ensuite placer ce script dans le dossier de démarrage de Windows ou le configurer. le script à exécuter à l'aide du Planificateur de tâches quotidiennement.
Pour capturer les informations d'espace libre pour chaque lecteur, plutôt que a. chiffre consolidé, utilisez ce script :
'FreeSpaceInfo2.vbs - 3 septembre 2005
'Auteur: Ramesh Srinivasan
'Site Internet: https://www.winhelponline.com/xp
'Enregistre les informations d'espace libre sur le disque dur dans un fichier journal.
'Peut être exécuté en tant que tâche planifiée ou placé dans le dossier de démarrage.
Option Explicite
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Définissez MyShell = CreateObject("Wscript. Coquille")
Définissez fso = Wscript. CreateObject("Script. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
définir fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Date de la ligne d'écriture
fsHandle. Écrire à blanc 1
strOrdinateur = "."
Définir objWMIService = GetObject _
( "winmgmts:\\" & strOrdinateur & "\root\cimv2")
Définissez colItems = objWMIService. ExecQuery _
("Sélectionnez * à partir de Win32_LogicalDisk où DriveType = 3")
Pour chaque objItem dans colItems
'Récupérer de l'espace libre et convertir depuis uint64
iSpc = cDbl (objItem. Espace libre)
fsHandle. Writeline objItem. Reference de l'appareil & " - " _
& FormatiSpc (iSpc) & " Go gratuits"
Suivant
Fonction FormatiSpc (intSpace)
intEspace = intEspace/1024
intEspace = intEspace/1024
intEspace = intEspace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
fonction de fin
fsHandle. Writeblanklines 2
fsHandle.close
définir MyShell = Rien
définir fso = rien