บันทึกจำนวนเนื้อที่ว่างบนดิสก์ที่มีอยู่ไปยังไฟล์ในแต่ละวัน

'FreeSpaceInfo.vbs.' - 2 กันยายน 2548
'Author: ราเมศ ศรีนิวาสัน
'เว็บไซต์: https://www.winhelponline.com/xp
'บันทึกข้อมูลพื้นที่ว่างบนฮาร์ดดิสก์ลงในไฟล์
'สามารถเรียกใช้เป็นงานตามกำหนดเวลาหรือวางไว้ที่โฟลเดอร์เริ่มต้น

ตัวเลือกที่ชัดเจน
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
ตั้งค่า MyShell = CreateObject ("Wscript. เปลือก")
ตั้งค่า fso = Wscript CreateObject("การเขียนสคริปต์. FilesystemObject")
LogFileName= MyShell โฟลเดอร์พิเศษ("เดสก์ท็อป") & "\FreeSpace.txt"
ตั้งค่า fsHandle = fso OpenTextFile (LogFileName, 8,True)

strComputer = "."
ตั้งค่า objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")

ตั้งค่า colItems = objWMIService แบบสอบถาม _
("เลือก * จาก Win32_LogicalDisk โดยที่ DriveType = 3")

สำหรับแต่ละ objItem ใน colItems
'ดึงพื้นที่ว่าง & แปลงจาก uint64
iSpc = cDbl (iSpc) + cDbl (objItem.js) ที่ว่าง)
ถัดไป

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

'ในการจับภาพวันที่ & เวลา ให้ใช้ฟังก์ชัน "ตอนนี้" แทนที่จะเป็น "วันที่"
fsHandle. วันที่เขียน & " --" & iSpc & " GB พื้นที่ว่าง"
fsHandle. Writeblanklines 1
fsHandle.close
ตั้งค่า MyShell = Nothing
set fso = Nothing

'FreeSpaceInfo2.vbs - 3 กันยายน 2548
'Author: ราเมศ ศรีนิวาสัน
'เว็บไซต์: https://www.winhelponline.com/xp
'บันทึกข้อมูลพื้นที่ว่างบนฮาร์ดดิสก์ลงในไฟล์บันทึก
'สามารถเรียกใช้เป็นงานตามกำหนดเวลาหรือวางไว้ที่โฟลเดอร์เริ่มต้น

ตัวเลือกที่ชัดเจน
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
ตั้งค่า MyShell = CreateObject ("Wscript. เปลือก")
ตั้งค่า fso = Wscript CreateObject("การเขียนสคริปต์. FilesystemObject")
LogFileName= MyShell โฟลเดอร์พิเศษ("เดสก์ท็อป") & "\FreeSpace.txt"
ตั้งค่า fsHandle = fso OpenTextFile (LogFileName, 8,True)

fsHandle. วันที่เขียน
fsHandle. Writeblanklines 1
strComputer = "."
ตั้งค่า objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
ตั้งค่า colItems = objWMIService แบบสอบถาม _
("เลือก * จาก Win32_LogicalDisk โดยที่ DriveType = 3")

สำหรับแต่ละ objItem ใน colItems
'ดึงพื้นที่ว่าง & แปลงจาก uint64
iSpc = cDbl (objItem.js) ที่ว่าง)
fsHandle. เขียนบรรทัด objItem รหัสอุปกรณ์ & " - " _
& FormatiSpc (iSpc) & "GB ฟรี"
ถัดไป

ฟังก์ชัน FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
ฟังก์ชั่นสิ้นสุด

fsHandle. Writeblanklines2
fsHandle.close
ตั้งค่า MyShell = Nothing
set fso = Nothing