Înregistrați zilnic cantitatea disponibilă de spațiu liber pe disc într-un fișier
Introducere
Următorul VBScript va înregistra spațiul liber pe hard disk (consolidat) informații într-un fișier jurnal. Puteți configura acest script să ruleze din Windows. Pornire sau chiar mai bine, folosind Scheduled Task, pentru a o rula zilnic. The. informațiile vor fi stocate într-un fișier numit FreeSpace.txt pe Desktop. Puteți. schimbați calea în consecință, dacă doriți.
Aici este Scriptul
„FreeSpaceInfo.vbs. - 2 septembrie 2005
„Autor: Ramesh Srinivasan
„Site web: https://www.winhelponline.com/xp
„Înregistrează informațiile despre spațiul liber pe hard disk într-un fișier.
„Poate fi rulat ca sarcină programată sau plasat în folderul Startup.
Opțiunea explicită
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Setează MyShell = CreateObject ("Wscript. Coajă")
Setați fso = Wscript. CreateObject(„Scriptare. FilesystemObject")
LogFileName= MyShell. SpecialFolders(„Desktop”) și „\FreeSpace.txt”
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Setați colItems = objWMIService. ExecQuery _
("Selectați * Din Win32_LogicalDisk unde DriveType = 3")
Pentru fiecare objItem din colItems
„Preluați spațiu liber și convertiți din uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Spatiu liber)
Următorul
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
„Pentru a captura data și ora, utilizați funcția „Acum”. în loc de „Date”
fsManer. Writeline Data & " -- " & iSpc & " GB spațiu liber"
fsManer. Scrie linii goale 1
fsHandle.close
set MyShell = Nimic
set fso = Nimic
Copiați liniile de mai sus în Notepad și salvați fișierul ca „FreeSpaceInfo.vbs” (cu. citate). Apoi puteți plasa acest script în folderul de pornire Windows sau configurați. scriptul să ruleze utilizând Task Scheduler zilnic.
Pentru a captura informațiile despre spațiul liber pentru fiecare unitate, mai degrabă decât a. cifră consolidată, utilizați acest script:
„FreeSpaceInfo2.vbs - 3 septembrie 2005
„Autor: Ramesh Srinivasan
„Site web: https://www.winhelponline.com/xp
„Înregistrează informațiile despre spațiul liber pe hard disk într-un fișier jurnal.
„Poate fi rulat ca sarcină programată sau plasat în folderul Startup.
Opțiunea explicită
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Setează MyShell = CreateObject ("Wscript. Coajă")
Setați fso = Wscript. CreateObject(„Scriptare. FilesystemObject")
LogFileName= MyShell. SpecialFolders(„Desktop”) și „\FreeSpace.txt”
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsManer. Scrie data
fsManer. Scrie linii goale 1
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Setați colItems = objWMIService. ExecQuery _
("Selectați * Din Win32_LogicalDisk unde DriveType = 3")
Pentru fiecare objItem din colItems
„Preluați spațiu liber și convertiți din uint64
iSpc = cDbl (objItem. Spatiu liber)
fsManer. Scrie linie objItem. Identificatorul dispozitivului & " - " _
& FormatiSpc (iSpc) & „GB free”
Următorul
Funcția FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
funcția finală
fsManer. Scrie linii goale 2
fsHandle.close
set MyShell = Nimic
set fso = Nimic