Naponta naplózza a rendelkezésre álló szabad lemezterület mennyiségét egy fájlba
Bevezetés
A következő VBScript naplózza a szabad merevlemez-területet (konszolidált) információkat egy naplófájlba. Ezt a szkriptet beállíthatja úgy, hogy a Windows rendszerből fusson. Indítás, vagy még jobb, az Ütemezett feladat használatával, hogy napi rendszerességgel futtassa. A. Az információk egy FreeSpace.txt nevű fájlban lesznek tárolva az Asztalon. Tudsz. módosítsa az útvonalat ennek megfelelően, ha akarja.
Itt van a Script
„FreeSpaceInfo.vbs. - 2005. szeptember 2
'Szerző: Ramesh Srinivasan
'Weboldal: https://www.winhelponline.com/xp
A szabad merevlemez-területtel kapcsolatos információkat naplózza egy fájlba.
'Futtatható ütemezett feladatként, vagy elhelyezhető az Indító mappában.
Explicit opció
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Héj")
Állítsa be: fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Asztali") és "\FreeSpace.txt"
állítsa be az fsHandle = fso. OpenTextFile (naplófájlnév, 8, igaz)
strComputer = "."
Set objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Állítsa be a colItems = objWMIService értéket. ExecQuery_
("Select * from Win32_LogicalDisk, ahol meghajtótípus = 3")
Minden egyes objektumhoz a colItemsben
'Szabad terület lekérése és konvertálása az uint64-ből
iSpc = cDbl (iSpc) + cDbl (objItem. Szabad hely)
Következő
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
„A dátum és idő rögzítéséhez használja a „Most” funkciót. "Dátum" helyett
fsHandle. Írási dátum & " -- " & iSpc & " GB szabad hely"
fsHandle. Írjon üres sorokat 1
fsHandle.close
set MyShell = Semmi
set fso = Semmi
Másolja a fenti sorokat a Jegyzettömbbe, és mentse a fájlt „FreeSpaceInfo.vbs” néven (a. idézetek). Ezután elhelyezheti ezt a szkriptet a Windows Indító mappájában, vagy konfigurálhatja. a szkriptet a Feladatütemező használatával naponta futtatni.
Az egyes meghajtók szabad területére vonatkozó információk rögzítéséhez ahelyett, hogy a. konszolidált ábra, használja ezt a szkriptet:
„FreeSpaceInfo2.vbs – 2005. szeptember 3
'Szerző: Ramesh Srinivasan
'Weboldal: https://www.winhelponline.com/xp
Naplófájlba naplózza a szabad merevlemez-területtel kapcsolatos információkat.
'Futtatható ütemezett feladatként, vagy elhelyezhető az Indító mappában.
Explicit opció
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Héj")
Állítsa be: fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Asztali") és "\FreeSpace.txt"
állítsa be az fsHandle = fso. OpenTextFile (naplófájlnév, 8, igaz)
fsHandle. Dátum írása
fsHandle. Írjon üres sorokat 1
strComputer = "."
Set objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Állítsa be a colItems = objWMIService értéket. ExecQuery_
("Select * from Win32_LogicalDisk, ahol meghajtótípus = 3")
Minden egyes objektumhoz a colItemsben
'Szabad terület lekérése és konvertálása az uint64-ből
iSpc = cDbl (objItem. Szabad hely)
fsHandle. ObjItem írása. Eszköz azonosító & " - " _
& FormatiSpc (iSpc) & "GB szabad"
Következő
FormatiSpc függvény (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
végfunkció
fsHandle. Írjon üres sorokat 2
fsHandle.close
set MyShell = Semmi
set fso = Semmi