Vsak dan zabeležite razpoložljivo količino prostega prostora na disku v datoteko
Uvod
Naslednji VBScript bo zabeležil prosti prostor na trdem disku (konsolidirano) podatke v datoteko dnevnika. Ta skript lahko konfigurirate tako, da se izvaja iz sistema Windows. Zagon ali še bolje, z uporabo načrtovanega opravila, da ga zaženete vsak dan. The. informacije bodo shranjene v datoteki z imenom FreeSpace.txt na namizju. Ti lahko. ustrezno spremenite pot, če želite.
Tukaj je skripta
'FreeSpaceInfo.vbs. - 2. september 2005
Avtor: Ramesh Srinivasan
'Spletna stran: https://www.winhelponline.com/xp
»Zapiše informacije o prostem prostoru na trdem disku v datoteko.
'Lahko se zažene kot načrtovano opravilo ali postavljeno v zagonsko mapo.
Možnost Eksplicitna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Nastavite MyShell = CreateObject("Wscript. lupina")
Nastavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
nastavite fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Nastavite objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavite colItems = objWMIService. ExecQuery _
("Izberi * iz Win32_LogicalDisk, kjer je DriveType = 3")
Za vsak predmet v colItems
»Pridobite prosti prostor in pretvorite iz uint64
iSpc = cDbl (iSpc) + cDbl (objItem. prosti prostor)
Naslednji
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
"Če želite zajeti datum in čas, uporabite funkcijo "Zdaj". namesto "Datum"
fsHandle. Vpišite datum & " -- " & iSpc & " GB prostega prostora"
fsHandle. Pisanje praznih vrstic 1
fsHandle.close
nastavite MyShell = Nič
nastavite fso = Nič
Kopirajte zgornje vrstice v beležnico in shranite datoteko kot "FreeSpaceInfo.vbs" (z. citati). Ta skript lahko nato postavite v mapo zagona sistema Windows ali ga konfigurirate. skript za vsakodnevno zagon z uporabo načrtovalnika opravil.
Za zajemanje informacij o prostem prostoru za vsak pogon, namesto a. konsolidirana številka, uporabite ta skript:
'FreeSpaceInfo2.vbs - 3. september 2005
Avtor: Ramesh Srinivasan
'Spletna stran: https://www.winhelponline.com/xp
»Zapiše informacije o prostem prostoru na trdem disku v datoteko dnevnika.
'Lahko se zažene kot načrtovano opravilo ali postavljeno v zagonsko mapo.
Možnost Eksplicitna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Nastavite MyShell = CreateObject("Wscript. lupina")
Nastavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
nastavite fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Napišite datum
fsHandle. Pisanje praznih vrstic 1
strComputer = "."
Nastavite objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavite colItems = objWMIService. ExecQuery _
("Izberi * iz Win32_LogicalDisk, kjer je DriveType = 3")
Za vsak predmet v colItems
»Pridobite prosti prostor in pretvorite iz uint64
iSpc = cDbl (objItem. prosti prostor)
fsHandle. Writeline objItem. ID naprave & " - " _
& FormatiSpc (iSpc) & "GB free"
Naslednji
Funkcija FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
končna funkcija
fsHandle. Pisanje praznih vrstic 2
fsHandle.close
nastavite MyShell = Nič
nastavite fso = Nič