Katru dienu reģistrējiet failā pieejamo brīvās vietas daudzumu diskā
Ievads
Šis VBScript reģistrēs brīvo vietu cietajā diskā (konsolidēts) informāciju žurnālfailā. Varat konfigurēt šo skriptu, lai tas darbotos no Windows. Startēšana vai vēl labāk, izmantojot ieplānoto uzdevumu, lai to palaistu katru dienu. The. informācija tiks saglabāta darbvirsmas failā ar nosaukumu FreeSpace.txt. Jūs varat. ja vēlaties, attiecīgi mainiet ceļu.
Šeit ir Skripts
'FreeSpaceInfo.vbs. - 2005. gada 2. septembris
Autors: Ramesh Srinivasan
'Tīmekļa vietne: https://www.winhelponline.com/xp
'Reģistrē informāciju par brīvo vietu cietajā diskā failā.
Var palaist kā ieplānotu uzdevumu vai ievietot startēšanas mapē.
Izteikta opcija
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject ("Wscript. Apvalks")
Iestatiet fso = Wscript. CreateObject ("Skriptēšana. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Darbvirsma") un "\FreeSpace.txt"
iestatīt fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Iestatīt objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Iestatiet colItems = objWMIService. ExecQuery_
("Atlasīt * No Win32_LogicalDisk, kur diska tips = 3")
Katram objektam colItems
'Izgūt brīvo vietu un konvertēt no uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Brīva vieta)
Nākamais
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc = FormatNumber (iSpc, 1)
Lai tvertu datumu un laiku, izmantojiet funkciju "Tagad". "Datuma" vietā
fsHandle. Rakstīšanas datums & " -- " & iSpc & " GB brīva vieta"
fsHandle. Rakstiet tukšas rindiņas 1
fsHandle.close
set MyShell = nekas
set fso = nekas
Kopējiet iepriekš minētās rindiņas Notepad un saglabājiet failu kā "FreeSpaceInfo.vbs" (ar. citāti). Pēc tam varat ievietot šo skriptu Windows startēšanas mapē vai konfigurēt. skripts, kas jādarbojas katru dienu, izmantojot uzdevumu plānotāju.
Lai tvertu brīvās vietas informāciju katram diskam, nevis a. konsolidētajā attēlā, izmantojiet šo skriptu:
'FreeSpaceInfo2.vbs — 2005. gada 3. septembris
Autors: Ramesh Srinivasan
'Tīmekļa vietne: https://www.winhelponline.com/xp
'Reģistrē informāciju par brīvo vietu cietajā diskā žurnāla failā.
Var palaist kā ieplānotu uzdevumu vai ievietot startēšanas mapē.
Izteikta opcija
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject ("Wscript. Apvalks")
Iestatiet fso = Wscript. CreateObject ("Skriptēšana. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Darbvirsma") un "\FreeSpace.txt"
iestatīt fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Rakstiet datumu
fsHandle. Rakstiet tukšas rindiņas 1
strComputer = "."
Iestatīt objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Iestatiet colItems = objWMIService. ExecQuery_
("Atlasīt * No Win32_LogicalDisk, kur diska tips = 3")
Katram objektam colItems
'Izgūt brīvo vietu un konvertēt no uint64
iSpc = cDbl (objItem. Brīva vieta)
fsHandle. Uzrakstiet objItem. Ierīces ID & " - " _
& FormatiSpc (iSpc) & " GB bezmaksas"
Nākamais
Funkcija FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
beigu funkcija
fsHandle. Rakstiet tukšas rindiņas 2
fsHandle.close
set MyShell = nekas
set fso = nekas