Logga den tillgängliga mängden ledigt diskutrymme till en fil dagligen
Introduktion
Följande VBScript loggar det lediga hårddiskutrymmet (konsoliderat) information till en loggfil. Du kan konfigurera det här skriptet att köras från Windows. Starta eller ännu bättre, med Scheduled Task, för att köra det dagligen. De. information kommer att lagras i en fil med namnet FreeSpace.txt på skrivbordet. Du kan. ändra sökvägen därefter om du vill.
Här är manuset
'FreeSpaceInfo.vbs. - 2 september 2005
'Författare: Ramesh Srinivasan
'Hemsida: https://www.winhelponline.com/xp
'Loggar information om ledigt hårddiskutrymme till en fil.
'Kan köras som en schemalagd uppgift eller placeras i startmappen.
Alternativ Explicit
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ställ in MyShell = CreateObject("Wscript. Skal")
Ställ in fso = Wscript. CreateObject("Skript. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Skrivbord") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8,True)
strComputer = "."
Ställ in objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Ställ in colItems = objWMIService. ExecQuery _
("Välj * Från Win32_LogicalDisk där DriveType = 3")
För varje objekt i kolli
'Hämta ledigt utrymme och konvertera från uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Ledigt utrymme)
Nästa
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'För att fånga datum och tid, använd "Nu"-funktionen. istället för "Datum"
fsHandle. Writeline Date & " -- " & iSpc & " GB Ledigt utrymme"
fsHandle. Skriv tomma rader 1
fsHandle.close
ställ in MyShell = Ingenting
set fso = Ingenting
Kopiera ovanstående rader till Anteckningar och spara filen som "FreeSpaceInfo.vbs" (med. citat). Du kan sedan placera det här skriptet i Windows Startup-mapp eller konfigurera. skriptet som ska köras med Task Scheduler dagligen.
För att fånga information om ledigt utrymme för varje enhet, snarare än en. konsoliderad figur, använd det här skriptet:
'FreeSpaceInfo2.vbs - 3 september 2005
'Författare: Ramesh Srinivasan
'Hemsida: https://www.winhelponline.com/xp
'Loggar information om ledigt hårddiskutrymme till en loggfil.
'Kan köras som en schemalagd uppgift eller placeras i startmappen.
Alternativ Explicit
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ställ in MyShell = CreateObject("Wscript. Skal")
Ställ in fso = Wscript. CreateObject("Skript. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Skrivbord") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8,True)
fsHandle. Skrivlinjedatum
fsHandle. Skriv tomma rader 1
strComputer = "."
Ställ in objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Ställ in colItems = objWMIService. ExecQuery _
("Välj * Från Win32_LogicalDisk där DriveType = 3")
För varje objekt i kolli
'Hämta ledigt utrymme och konvertera från uint64
iSpc = cDbl (objItem. Ledigt utrymme)
fsHandle. Skrivlinjeobjekt. Enhets-ID & " - " _
& FormatiSpc (iSpc) & "GB gratis"
Nästa
Funktion FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
slutfunktion
fsHandle. Skriv tomma rader 2
fsHandle.close
ställ in MyShell = Ingenting
set fso = Ingenting