Registre a quantidade disponível de espaço livre em disco em um arquivo diariamente
Introdução
O seguinte VBScript registrará o espaço livre no disco rígido (consolidado) informações para um arquivo de log. Você pode configurar este script para ser executado no Windows. Inicialize ou ainda melhor, usando Scheduled Task, para executá-lo diariamente. O. as informações serão armazenadas em um arquivo denominado FreeSpace.txt na área de trabalho. Você pode. mude o caminho de acordo, se desejar.
Aqui está o roteiro
'FreeSpaceInfo.vbs. - 2 de setembro de 2005
'Autor: Ramesh Srinivasan
'Local na rede Internet: https://www.winhelponline.com/xp
'Registra as informações de espaço livre no disco rígido em um arquivo.
'Pode ser executado como uma tarefa agendada ou colocado na pasta de inicialização.
Opção Explícita
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Defina MyShell = CreateObject ("Wscript. Concha")
Defina fso = Wscript. CreateObject ("Scripting. FilesystemObject ")
LogFileName = MyShell. SpecialFolders ("Desktop") & "\ FreeSpace.txt"
definir fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Definir objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Defina colItems = objWMIService. ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 3")
Para cada objeto em colItems
'Recupere o espaço livre e converta de uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Espaço livre)
Próximo
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = FormatNumber (iSpc, 1)
'Para capturar a data e hora, use a função "Agora". em vez de "Data"
fsHandle. Data do Writeline & "-" & iSpc & "GB de espaço livre"
fsHandle. Writeblanklines 1
fsHandle.close
definir MyShell = Nada
definir fso = Nada
Copie as linhas acima para o Bloco de notas e salve o arquivo como "FreeSpaceInfo.vbs" (com. citações). Você pode então colocar esse script na pasta de inicialização do Windows ou configurá-lo. o script a ser executado usando o Agendador de Tarefas diariamente.
Para capturar as informações de espaço livre para cada unidade, em vez de a. figura consolidada, use este script:
'FreeSpaceInfo2.vbs - 3 de setembro de 2005
'Autor: Ramesh Srinivasan
'Local na rede Internet: https://www.winhelponline.com/xp
'Registra as informações de espaço livre no disco rígido em um arquivo de log.
'Pode ser executado como uma tarefa agendada ou colocado na pasta de inicialização.
Opção Explícita
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Defina MyShell = CreateObject ("Wscript. Concha")
Defina fso = Wscript. CreateObject ("Scripting. FilesystemObject ")
LogFileName = MyShell. SpecialFolders ("Desktop") & "\ FreeSpace.txt"
definir fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Data da Escrita
fsHandle. Writeblanklines 1
strComputer = "."
Definir objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Defina colItems = objWMIService. ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 3")
Para cada objeto em colItems
'Recupere o espaço livre e converta de uint64
iSpc = cDbl (objItem. Espaço livre)
fsHandle. ObjItem do Writeline. ID de dispositivo & " - " _
& FormatiSpc (iSpc) e "GB grátis"
Próximo
Função FormatiSpc (intSpace)
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = FormatNumber (intSpace, 1)
FormatiSpc = intSpace
função final
fsHandle. Writeblanklines 2
fsHandle.close
definir MyShell = Nada
definir fso = Nada