Registre la cantidad disponible de espacio libre en disco en un archivo a diario

Registre la cantidad disponible de espacio libre en disco en un archivo a diario

Introducción

El siguiente VBScript registrará el espacio libre en el disco duro (consolidado) información a un archivo de registro. Puede configurar este script para que se ejecute desde Windows. Inicio o mejor aún, usando Tarea Programada, para ejecutarla diariamente. El. la información se almacenará en un archivo llamado FreeSpace.txt en el escritorio. Usted puede. cambie la ruta en consecuencia si lo desea.

Aquí está el guión

'FreeSpaceInfo.vbs. - 2 de septiembre de 2005
Autor: Ramesh Srinivasan
'Sitio web: https://www.winhelponline.com/xp
'Registra la información de espacio libre en el disco duro en un archivo.
'Puede ejecutarse como una tarea programada o colocarse en la carpeta de inicio.

Opción explícita
Atenuar iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Establezca MyShell = CreateObject ("Wscript. Cáscara")
Establezca fso = Wscript. CreateObject ("Scripting. FilesystemObject ")


LogFileName = MyShell. SpecialFolders ("Escritorio") y "\ FreeSpace.txt"
establecer fsHandle = fso. OpenTextFile (LogFileName, 8, verdadero)

strComputer = "."
Establecer objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Establezca colItems = objWMIService. ExecQuery _
("Seleccione * de Win32_LogicalDisk donde DriveType = 3")

Para cada objItem en colItems
'Recuperar espacio libre y convertir desde uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Espacio libre)
próximo

iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = FormatNumber (iSpc, 1)

'Para capturar la fecha y la hora, use la función "Ahora". en lugar de "Fecha"
fsHandle. Fecha de escritura y "-" & iSpc y "GB de espacio libre"
fsHandle. Escribir líneas en blanco 1
fsHandle.close
set MyShell = Nada
set fso = Nada

Copie las líneas anteriores en el Bloc de notas y guarde el archivo como "FreeSpaceInfo.vbs" (con. citas). A continuación, puede colocar este script en la carpeta de inicio de Windows o configurarlo. la secuencia de comandos para que se ejecute con el Programador de tareas a diario.

Para capturar la información de espacio libre para cada unidad, en lugar de un. figura consolidada, utilice este script:

'FreeSpaceInfo2.vbs - 3 de septiembre de 2005
Autor: Ramesh Srinivasan
'Sitio web: https://www.winhelponline.com/xp
'Registra la información de espacio libre en el disco duro en un archivo de registro.
'Puede ejecutarse como una tarea programada o colocarse en la carpeta de inicio.

Opción explícita
Atenuar iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Establezca MyShell = CreateObject ("Wscript. Cáscara")
Establezca fso = Wscript. CreateObject ("Scripting. FilesystemObject ")
LogFileName = MyShell. SpecialFolders ("Escritorio") y "\ FreeSpace.txt"
establecer fsHandle = fso. OpenTextFile (LogFileName, 8, verdadero)

fsHandle. Fecha de escritura
fsHandle. Escribir líneas en blanco 1
strComputer = "."
Establecer objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Establezca colItems = objWMIService. ExecQuery _
("Seleccione * de Win32_LogicalDisk donde DriveType = 3")

Para cada objItem en colItems
'Recuperar espacio libre y convertir desde uint64
iSpc = cDbl (objItem. Espacio libre)
fsHandle. Writeline objItem. Identificación del dispositivo & " - " _
& FormatiSpc (iSpc) & "GB libre"
próximo

Función FormatiSpc (intSpace)
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = FormatNumber (intSpace, 1)
FormatiSpc = intSpace
función final

fsHandle. Escribir líneas en blanco 2
fsHandle.close
set MyShell = Nada
set fso = Nada