Catat jumlah ruang disk kosong yang tersedia ke file setiap hari
pengantar
VBScript berikut akan mencatat ruang hard disk kosong (konsolidasi) informasi ke file log. Anda dapat mengonfigurasi skrip ini untuk dijalankan dari Windows. Startup atau bahkan lebih baik, menggunakan Tugas Terjadwal, untuk menjalankannya setiap hari. Itu. informasi akan disimpan dalam file bernama FreeSpace.txt di Desktop. Kamu bisa. ubah jalur yang sesuai jika Anda mau.
Berikut Scriptnya
'FreeSpaceInfo.vbs. - 2 September 2005
'Penulis: Ramesh Srinivasan
'Situs web: https://www.winhelponline.com/xp
'Mencatat info ruang hard disk kosong ke file.
'Dapat dijalankan sebagai tugas Terjadwal atau ditempatkan di folder Startup.
Opsi Eksplisit
Redupkan iSpc, strComputer, objWMIService
Redupkan fso, fsHandle, MyShell, LogFileName, colItems, objItem
Setel MyShell = CreateObject("Wscript. Kerang")
Atur fso = Wscript. CreateObject("Skrip. FilesystemObject")
LogFileName= MyShell. Folder Khusus("Desktop") & "\FreeSpace.txt"
atur fsHandle = fso. OpenTextFile (LogFileName, 8,Benar)
strKomputer = "."
Setel objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Setel colItems = objWMIService. ExecQuery _
("Pilih * Dari Win32_LogicalDisk Dimana DriveType = 3")
Untuk Setiap objItem dalam colItems
'Ambil ruang kosong & konversi dari uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Ruang bebas)
Berikutnya
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Untuk merekam Tanggal & Waktu, gunakan fungsi "Sekarang". bukannya "Tanggal"
menangani. Writeline Tanggal & " -- " & iSpc & " GB Ruang kosong"
menangani. TulisBaris Kosong 1
fsHandle.close
atur MyShell = Tidak Ada
set fso = Tidak ada
Salin baris di atas ke Notepad, dan simpan file sebagai "FreeSpaceInfo.vbs" (dengan. kutipan). Anda kemudian dapat menempatkan skrip ini di folder Startup Windows, atau mengkonfigurasi. skrip untuk dijalankan menggunakan Penjadwal Tugas setiap hari.
Untuk menangkap informasi ruang kosong untuk setiap drive, daripada a. angka konsolidasi, gunakan skrip ini:
'FreeSpaceInfo2.vbs - 3 September 2005
'Penulis: Ramesh Srinivasan
'Situs web: https://www.winhelponline.com/xp
'Mencatat info ruang hard disk kosong ke file log.
'Dapat dijalankan sebagai tugas Terjadwal atau ditempatkan di folder Startup.
Opsi Eksplisit
Redupkan iSpc, strComputer, objWMIService
Redupkan fso, fsHandle, MyShell, LogFileName, colItems, objItem
Setel MyShell = CreateObject("Wscript. Kerang")
Atur fso = Wscript. CreateObject("Skrip. FilesystemObject")
LogFileName= MyShell. Folder Khusus("Desktop") & "\FreeSpace.txt"
atur fsHandle = fso. OpenTextFile (LogFileName, 8,Benar)
menangani. Tanggal Penulisan
menangani. TulisBaris Kosong 1
strKomputer = "."
Setel objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Setel colItems = objWMIService. ExecQuery _
("Pilih * Dari Win32_LogicalDisk Dimana DriveType = 3")
Untuk Setiap objItem dalam colItems
'Ambil ruang kosong & konversi dari uint64
iSpc = cDbl (objItem. Ruang bebas)
menangani. ObjItem baris tulis. ID Perangkat & " - " _
& FormatiSpc (iSpc) & " GB gratis"
Berikutnya
Fungsi FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatSpc = intSpace
fungsi akhir
menangani. Tulis blanklines 2
fsHandle.close
atur MyShell = Tidak Ada
set fso = Tidak ada