Svakodnevno bilježite dostupnu količinu slobodnog prostora na disku u datoteku
Uvod
Sljedeći VBScript će zabilježiti slobodni prostor na tvrdom disku (konsolidirano) informacije u datoteku dnevnika. Ovu skriptu možete konfigurirati za pokretanje iz sustava Windows. Pokretanje ili još bolje, korištenjem zakazanog zadatka, da ga pokrenete na dnevnoj bazi. The. informacije će biti pohranjene u datoteci pod nazivom FreeSpace.txt na radnoj površini. Možeš. promijenite put u skladu s tim ako želite.
Ovdje je skripta
'FreeSpaceInfo.vbs. - 2. rujna 2005
'Autor: Ramesh Srinivasan
'Web stranica: https://www.winhelponline.com/xp
'Zapisuje informacije o slobodnom prostoru na tvrdom disku u datoteku.
'Može se pokrenuti kao zakazani zadatak ili staviti u mapu pokretanja.
Opcija Eksplicitna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Postavite MyShell = CreateObject("Wscript. Ljuska")
Postavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
postavi fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Postavite objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Postavite colItems = objWMIService. ExecQuery _
("Odaberi * sa Win32_LogicalDisk gdje je DriveType = 3")
Za svaki predmet u colItems
'Dohvatite slobodan prostor i pretvorite iz uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Slobodan prostor)
Sljedeći
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Da biste snimili datum i vrijeme, koristite funkciju "Sada". umjesto "Datum"
fsHandle. Napišite datum & " -- " & iSpc & " GB Slobodni prostor"
fsHandle. Pisanje praznih redova 1
fsHandle.close
postavite MyShell = Ništa
postavi fso = Ništa
Kopirajte gornje retke u Notepad i spremite datoteku kao "FreeSpaceInfo.vbs" (sa. citati). Zatim možete smjestiti ovu skriptu u mapu pokretanja sustava Windows ili je konfigurirati. skriptu koja se izvodi pomoću Planera zadataka na dnevnoj bazi.
Za hvatanje informacija o slobodnom prostoru za svaki pogon, umjesto a. konsolidirani broj, koristite ovu skriptu:
'FreeSpaceInfo2.vbs - 3. rujna 2005
'Autor: Ramesh Srinivasan
'Web stranica: https://www.winhelponline.com/xp
'Zapisuje informacije o slobodnom prostoru na tvrdom disku u datoteku zapisnika.
'Može se pokrenuti kao zakazani zadatak ili staviti u mapu pokretanja.
Opcija Eksplicitna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Postavite MyShell = CreateObject("Wscript. Ljuska")
Postavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
postavi fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Napišite datum
fsHandle. Pisanje praznih redova 1
strComputer = "."
Postavite objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Postavite colItems = objWMIService. ExecQuery _
("Odaberi * sa Win32_LogicalDisk gdje je DriveType = 3")
Za svaki predmet u colItems
'Dohvatite slobodan prostor i pretvorite iz uint64
iSpc = cDbl (objItem. Slobodan prostor)
fsHandle. Writeline objItem. ID uređaja & " - " _
& FormatiSpc (iSpc) & " GB besplatno"
Sljedeći
Funkcija FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
krajnja funkcija
fsHandle. Pisanje praznih redova 2
fsHandle.close
postavite MyShell = Ništa
postavi fso = Ništa