Kasdien įrašykite faile turimą laisvos vietos diske kiekį
Įvadas
Šis VBScript užregistruos laisvą vietą standžiajame diske (konsoliduota) informaciją į žurnalo failą. Galite sukonfigūruoti šį scenarijų, kad jis būtų paleistas iš Windows. Paleiskite arba dar geriau, naudodami suplanuotą užduotį, kad ją paleistumėte kasdien. The. informacija bus saugoma faile pavadinimu FreeSpace.txt darbalaukyje. Tu gali. jei norite, atitinkamai pakeiskite kelią.
Čia yra Scenarijus
„FreeSpaceInfo.vbs. – 2005 metų rugsėjo 2 d
Autorius: Rameshas Srinivasanas
'Interneto svetainė: https://www.winhelponline.com/xp
„Įrašo laisvos vietos standžiajame diske informaciją į failą.
„Gali būti vykdoma kaip suplanuota užduotis arba įdėta į paleisties aplanką.
Parinktis Aiški
Dim iSpc, strComputer, objWMIService
Pritemdyti fso, fsHandle, MyShell, LogFileName, colItems, objItem
Nustatyti MyShell = CreateObject ("Wscript. Lukštas“)
Nustatyti fso = Wscript. CreateObject ("Scenarijų. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Desktop") ir "\FreeSpace.txt"
nustatyti fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Nustatyti objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Nustatyti colItems = objWMIService. ExecQuery_
("Pasirinkite * iš Win32_LogicalDisk, kur disko tipas = 3")
Kiekvienam objektui colItems
„Gaukite laisvos vietos ir konvertuokite iš uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Laisva vieta)
Kitas
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc = FormatNumber (iSpc, 1)
Norėdami užfiksuoti datą ir laiką, naudokite funkciją „Dabar“. vietoj "data"
fsHandle. Rašymo data & " -- " & iSpc & " GB laisvos vietos"
fsHandle. Rašyti tuščias eilutes 1
fsHandle.close
set MyShell = Nieko
set fso = Nieko
Nukopijuokite aukščiau pateiktas eilutes į Notepad ir išsaugokite failą kaip "FreeSpaceInfo.vbs" (su. citatos). Tada galite įdėti šį scenarijų į Windows Startup aplanką arba konfigūruoti. scenarijus, kurį reikia vykdyti kasdien naudojant užduočių planuoklį.
Norėdami užfiksuoti kiekvieno disko laisvos vietos informaciją, o ne a. konsoliduotą paveikslą, naudokite šį scenarijų:
„FreeSpaceInfo2.vbs“ – 2005 m. rugsėjo 3 d
Autorius: Rameshas Srinivasanas
'Interneto svetainė: https://www.winhelponline.com/xp
„Įregistruoja laisvos vietos standžiajame diske informaciją žurnalo faile.
„Gali būti vykdoma kaip suplanuota užduotis arba įdėta į paleisties aplanką.
Parinktis Aiški
Dim iSpc, strComputer, objWMIService
Pritemdyti fso, fsHandle, MyShell, LogFileName, colItems, objItem
Nustatyti MyShell = CreateObject ("Wscript. Lukštas“)
Nustatyti fso = Wscript. CreateObject ("Scenarijų. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Desktop") ir "\FreeSpace.txt"
nustatyti fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Rašykite datą
fsHandle. Rašyti tuščias eilutes 1
strComputer = "."
Nustatyti objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Nustatyti colItems = objWMIService. ExecQuery_
("Pasirinkite * iš Win32_LogicalDisk, kur disko tipas = 3")
Kiekvienam objektui colItems
„Gaukite laisvos vietos ir konvertuokite iš uint64
iSpc = cDbl (objItem. Laisva vieta)
fsHandle. Parašykite objektą. Įrenginio ID & " - " _
& FormatiSpc (iSpc) & " GB nemokama"
Kitas
Funkcija FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
pabaigos funkcija
fsHandle. Rašykite tuščias eilutes 2
fsHandle.close
set MyShell = Nieko
set fso = Nieko