רשום את הכמות הפנוי של שטח הדיסק הפנוי לקובץ על בסיס יומי

'FreeSpaceInfo.vbs. - 2 בספטמבר 2005
מחבר: ראמש סריניוואסן
'אתר אינטרנט: https://www.winhelponline.com/xp
'מתעד את המידע הפנוי על שטח הדיסק הקשיח לקובץ.
'ניתן להפעיל כמשימה מתוזמנת או למקם בתיקייה אתחול.

אפשרות מפורשת
Dim iSpc, strComputer, objWMIService
עמום fso, fsHandle, MyShell, LogFileName, colItems, objItem
הגדר את MyShell = CreateObject("Wscript. צדף")
הגדר fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8,True)

strComputer = "."
הגדר objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
הגדר colItems = objWMIService. ExecQuery _
("בחר * מתוך Win32_LogicalDisk שבו DriveType = 3")

עבור כל פריט ב- colItems
'אחזר שטח פנוי והמר מ-uint64
iSpc = cDbl (iSpc) + cDbl (objItem. מקום פנוי)
הַבָּא

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

כדי ללכוד את התאריך והשעה, השתמש בפונקציה "עכשיו". במקום "תאריך"
fsHandle. Writeline Date & " -- " & iSpc & " GB שטח פנוי"
fsHandle. כתוב קווים ריקים 1
fsHandle.close
הגדר את MyShell = שום דבר
set fso = כלום

'FreeSpaceInfo2.vbs - 3 בספטמבר, 2005
מחבר: ראמש סריניוואסן
'אתר אינטרנט: https://www.winhelponline.com/xp
'מתעד את פרטי השטח הפנוי בדיסק הקשיח לקובץ יומן.
'ניתן להפעיל כמשימה מתוזמנת או למקם בתיקייה אתחול.

אפשרות מפורשת
Dim iSpc, strComputer, objWMIService
עמום fso, fsHandle, MyShell, LogFileName, colItems, objItem
הגדר את MyShell = CreateObject("Wscript. צדף")
הגדר fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8,True)

fsHandle. תאריך קו כתיבה
fsHandle. כתוב קווים ריקים 1
strComputer = "."
הגדר objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
הגדר colItems = objWMIService. ExecQuery _
("בחר * מתוך Win32_LogicalDisk שבו DriveType = 3")

עבור כל פריט ב- colItems
'אחזר שטח פנוי והמר מ-uint64
iSpc = cDbl (objItem. מקום פנוי)
fsHandle. פריט קו כתיבה. מזהה מכשיר & " - " _
& FormatiSpc (iSpc) & "GB חינם"
הַבָּא

פונקציה FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
פונקציית סוף

fsHandle. כתוב קווים ריקים 2
fsHandle.close
הגדר את MyShell = שום דבר
set fso = כלום