قم بتسجيل المقدار المتاح من مساحة القرص الخالية في ملف على أساس يومي

"FreeSpaceInfo.vbs. - 2 سبتمبر 2005
المؤلف: راميش سرينيفاسان
'موقع إلكتروني: https://www.winhelponline.com/xp
يسجل معلومات مساحة القرص الثابت المجانية في ملف.
يمكن تشغيلها كمهمة مجدولة أو وضعها في مجلد بدء التشغيل.

خيار صريح
خافت iSpc ، strComputer ، objWMIService
Dim fso، fsHandle، MyShell، LogFileName، colItems، objItem
تعيين MyShell = CreateObject ("Wscript. الصدف")
تعيين fso = Wscript. CreateObject ("برمجة. كائن نظام الملفات ")
LogFileName = MyShell. SpecialFolders ("سطح المكتب") & "\ FreeSpace.txt"
تعيين fsHandle = fso. OpenTextFile (LogFileName، 8، True)

strComputer = "."

تعيين objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
تعيين colItems = objWMIService. ExecQuery _
("حدد * من Win32_LogicalDisk حيث DriveType = 3")

لكل عنصر في المجموعة
استرجع المساحة الحرة وقم بالتحويل من uint64
iSpc = cDbl (iSpc) + cDbl (objItem. مساحة فارغة)
التالي

iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = FormatNumber (iSpc، 1)

"لالتقاط التاريخ والوقت ، استخدم وظيفة" الآن ". بدلا من "التاريخ"
fsHandle. تاريخ خط الكتابة & "-" & iSpc & "مساحة خالية بالجيجابايت"
fsHandle. كتابة الخطوط 1
fsHandle.close
اضبط MyShell = لا شيء
تعيين fso = لا شيء

FreeSpaceInfo2.vbs - 3 سبتمبر 2005
المؤلف: راميش سرينيفاسان
'موقع إلكتروني: https://www.winhelponline.com/xp
يسجل معلومات المساحة الفارغة على القرص الثابت في ملف السجل.
يمكن تشغيلها كمهمة مجدولة أو وضعها في مجلد بدء التشغيل.

خيار صريح
خافت iSpc ، strComputer ، objWMIService
Dim fso، fsHandle، MyShell، LogFileName، colItems، objItem
تعيين MyShell = CreateObject ("Wscript. الصدف")
تعيين fso = Wscript. CreateObject ("برمجة. كائن نظام الملفات ")
LogFileName = MyShell. SpecialFolders ("سطح المكتب") & "\ FreeSpace.txt"
تعيين fsHandle = fso. OpenTextFile (LogFileName، 8، True)

fsHandle. تاريخ الكتابة
fsHandle. كتابة الخطوط 1
strComputer = "."
تعيين objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
تعيين colItems = objWMIService. ExecQuery _
("حدد * من Win32_LogicalDisk حيث DriveType = 3")

لكل عنصر في المجموعة
استرجع المساحة الحرة وقم بالتحويل من uint64
iSpc = cDbl (objItem. مساحة فارغة)
fsHandle. هدف الكتابة. معرف الجهاز & "-" _
& FormatiSpc (iSpc) و "GB free"
التالي

الدالة FormatiSpc (intSpace)
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = FormatNumber (intSpace، 1)
FormatiSpc = intSpace
وظيفة النهاية

fsHandle. خطوط الكتابة 2
fsHandle.close
اضبط MyShell = لا شيء
تعيين fso = لا شيء