Kirjaa käytettävissä oleva määrä vapaata levytilaa tiedostoon päivittäin
Johdanto
Seuraava VBScript kirjaa vapaan kiintolevytilan (konsolidoitu) tiedot lokitiedostoon. Voit määrittää tämän skriptin toimimaan Windowsista. Käynnistys tai jopa parempi, käyttämällä Scheduled Task -toimintoa, jotta voit suorittaa sen päivittäin. The. tiedot tallennetaan työpöydälle FreeSpace.txt-nimiseen tiedostoon. Sinä pystyt. muuta polkua vastaavasti, jos haluat.
Tässä on käsikirjoitus
"FreeSpaceInfo.vbs. - 2. syyskuuta 2005
Kirjoittaja: Ramesh Srinivasan
'Verkkosivusto: https://www.winhelponline.com/xp
'Kirjaa vapaan kiintolevytilan tiedot tiedostoon.
Voidaan suorittaa ajoitettuna tehtävänä tai sijoittaa käynnistyskansioon.
Vaihtoehto Explicit
Himmeä iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Kuori")
Aseta fso = Wscript. CreateObject("Komentosarja. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
aseta fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Aseta objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Aseta colItems = objWMIService. ExecQuery_
("Valitse * Win32_LogicalDiskistä, jossa asematyyppi = 3")
Jokaiselle colItems-objektille
'Hae vapaata tilaa ja muunna uint64:stä
iSpc = cDbl (iSpc) + cDbl (objItem. Vapaa tila)
Seuraava
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Kaappaa päivämäärä ja aika käyttämällä "Nyt"-toimintoa. "päivämäärä" sijaan
fsHandle. Kirjoita päivämäärä & " -- " & iSpc & " Gt vapaata tilaa"
fsHandle. Kirjoita tyhjiä rivejä 1
fsHandle.close
set MyShell = Ei mitään
set fso = Ei mitään
Kopioi yllä olevat rivit Muistioon ja tallenna tiedosto nimellä "FreeSpaceInfo.vbs" (ja. lainausmerkit). Voit sitten sijoittaa tämän komentosarjan Windowsin käynnistyskansioon tai määrittää sen. komentosarja, joka suoritetaan Task Schedulerin avulla päivittäin.
Tallentaaksesi kunkin aseman vapaan tilan tiedot a. konsolidoitu luku, käytä tätä komentosarjaa:
"FreeSpaceInfo2.vbs - 3. syyskuuta 2005
Kirjoittaja: Ramesh Srinivasan
'Verkkosivusto: https://www.winhelponline.com/xp
'Kirjaa vapaan kiintolevytilan tiedot lokitiedostoon.
Voidaan suorittaa ajoitettuna tehtävänä tai sijoittaa käynnistyskansioon.
Vaihtoehto Explicit
Himmeä iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Kuori")
Aseta fso = Wscript. CreateObject("Komentosarja. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
aseta fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Kirjoita päivämäärä
fsHandle. Kirjoita tyhjiä rivejä 1
strComputer = "."
Aseta objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Aseta colItems = objWMIService. ExecQuery_
("Valitse * Win32_LogicalDiskistä, jossa asematyyppi = 3")
Jokaiselle colItems-objektille
'Hae vapaata tilaa ja muunna uint64:stä
iSpc = cDbl (objItem. Vapaa tila)
fsHandle. Kirjoita objItem. Laitetunnus & " - " _
& FormatiSpc (iSpc) & "GB vapaa"
Seuraava
Funktio FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
lopputoiminto
fsHandle. Kirjoita tyhjiä rivejä 2
fsHandle.close
set MyShell = Ei mitään
set fso = Ei mitään