Registra giornalmente la quantità di spazio disponibile su disco in un file
introduzione
Il seguente VBScript registrerà lo spazio libero su disco rigido (consolidato) informazioni in un file di registro. Puoi configurare questo script per l'esecuzione da Windows. Avvio o ancora meglio, utilizzando Attività pianificata, per eseguirlo su base giornaliera. Il. le informazioni verranno memorizzate in un file denominato FreeSpace.txt nel desktop. Puoi. cambia il percorso di conseguenza se lo desideri.
Ecco lo script
'FreeSpaceInfo.vbs. - 2 settembre 2005
'Autore: Ramesh Srinivasan
'Sito web: https://www.winhelponline.com/xp
'Registra le informazioni sullo spazio libero su disco in un file.
'Può essere eseguito come un'attività pianificata o posizionato nella cartella di avvio.
Opzione esplicita
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Imposta MyShell = CreateObject("Wscript. Conchiglia")
Imposta fso = Wscript. CreateObject("Script. Oggetto Filesystem")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Imposta objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Imposta colItems = objWMIService. ExecQuery _
("Seleziona * da Win32_LogicalDisk dove DriveType = 3")
Per ogni oggetto in colItems
'Recupera spazio libero e converti da uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Spazio libero)
Prossimo
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Per catturare la data e l'ora, usa la funzione "Ora". invece di "Data"
fsHandle. Data di scrittura & " -- " & iSpc & " GB di spazio libero"
fsHandle. Scrivi righe vuote 1
fsHandle.close
set MyShell = Niente
set fso = Niente
Copia le righe sopra nel Blocco note e salva il file come "FreeSpaceInfo.vbs" (con. citazioni). È quindi possibile inserire questo script nella cartella di avvio di Windows o configurare. lo script da eseguire utilizzando l'Utilità di pianificazione su base giornaliera.
Per acquisire le informazioni sullo spazio libero per ogni unità, anziché a. figura consolidata, utilizzare questo script:
"FreeSpaceInfo2.vbs - 3 settembre 2005"
'Autore: Ramesh Srinivasan
'Sito web: https://www.winhelponline.com/xp
'Registra le informazioni sullo spazio libero su disco in un file di registro.
'Può essere eseguito come un'attività pianificata o posizionato nella cartella di avvio.
Opzione esplicita
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Imposta MyShell = CreateObject("Wscript. Conchiglia")
Imposta fso = Wscript. CreateObject("Script. Oggetto Filesystem")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Data di scrittura
fsHandle. Scrivi righe vuote 1
strComputer = "."
Imposta objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Imposta colItems = objWMIService. ExecQuery _
("Seleziona * da Win32_LogicalDisk dove DriveType = 3")
Per ogni oggetto in colItems
'Recupera spazio libero e converti da uint64
iSpc = cDbl (objItem. Spazio libero)
fsHandle. Writeline objItem. ID del dispositivo & " - " _
& FormatiSpc (iSpc) & "GB liberi"
Prossimo
Funzione FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
funzione di fine
fsHandle. Scrivi righe vuote 2
fsHandle.close
set MyShell = Niente
set fso = Niente