दैनिक आधार पर एक फ़ाइल में उपलब्ध खाली डिस्क स्थान की मात्रा को लॉग करें

परिचय

निम्नलिखित वीबीस्क्रिप्ट मुक्त हार्ड डिस्क स्थान (समेकित) लॉग करेगा एक लॉग फ़ाइल के लिए जानकारी। आप इस स्क्रिप्ट को विंडोज़ से चलाने के लिए कॉन्फ़िगर कर सकते हैं। स्टार्टअप या उससे भी बेहतर, शेड्यूल्ड टास्क का उपयोग करके इसे दैनिक आधार पर चलाना। द. जानकारी डेस्कटॉप में FreeSpace.txt नामक फ़ाइल में संग्रहीत की जाएगी। आप ऐसा कर सकते हैं। यदि आप चाहते हैं तो तदनुसार मार्ग बदलें।

यहाँ स्क्रिप्ट है

'फ्रीस्पेसइन्फो.वीबीएस। - 2 सितंबर, 2005
'लेखक: रमेश श्रीनिवासन'
'वेबसाइट: https://www.winhelponline.com/xp
'फ्री हार्ड डिस्क स्पेस जानकारी को एक फाइल में लॉग करता है।
'अनुसूचित कार्य के रूप में चलाया जा सकता है या स्टार्टअप फ़ोल्डर में रखा जा सकता है।

विकल्प स्पष्ट
मंद iSpc, strComputer, objWMIService
मंद fso, fsHandle, MyShell, LogFileName, colItems, objItem
MyShell सेट करें = CreateObject ("Wscript. सीप")
सेट fso = Wscript. क्रिएटऑब्जेक्ट ("स्क्रिप्टिंग. फाइलसिस्टमऑब्जेक्ट")
लॉगफाइलनाम = माईशेल. SpecialFolders("डेस्कटॉप") और "\FreeSpace.txt"
fsHandle = fso. ओपनटेक्स्टफाइल (लॉगफाइलनाम, 8, सच)

स्ट्र कंप्यूटर = "।"
objWMIService = GetObject _ सेट करें
("winmgmts:\\" और strComputer और "\root\cimv2")
colItems सेट करें = objWMIService. निष्पादन क्वेरी _
("Win32_LogicalDisk से चुनें * जहां DriveType = 3")

colItems में प्रत्येक objItem के लिए
'मुक्त स्थान प्राप्त करें और uint64 से कनवर्ट करें'
आईएसपीसी = सीडीबीएल (आईएसपीसी) + सीडीबीएल (objItem. मुक्त स्थान)
अगला

आईएसपीसी = आईएसपीसी/1024
आईएसपीसी = आईएसपीसी/1024
आईएसपीसी = आईएसपीसी/1024
iSpc = फ़ॉर्मेटनंबर (iSpc, 1)

'दिनांक और समय को कैप्चर करने के लिए, "अभी" फ़ंक्शन का उपयोग करें। "तारीख" की जगह
एफ एस हैंडल राइटलाइन तिथि और "-" और आईएसपीसी और "जीबी फ्री स्पेस"
एफ एस हैंडल रिक्त स्थान लिखें 1
fsHandle.बंद करें
माईशेल सेट करें = कुछ भी नहीं
सेट fso = कुछ नहीं

उपरोक्त पंक्तियों को नोटपैड में कॉपी करें, और फ़ाइल को "FreeSpaceInfo.vbs" (with. उल्लेख)। फिर आप इस स्क्रिप्ट को Windows स्टार्टअप फ़ोल्डर में रख सकते हैं, या कॉन्फ़िगर कर सकते हैं। दैनिक आधार पर कार्य शेड्यूलर का उपयोग करके चलाने के लिए स्क्रिप्ट।

प्रत्येक ड्राइव के लिए खाली स्थान की जानकारी प्राप्त करने के लिए, बजाय a. समेकित आंकड़ा, इस स्क्रिप्ट का प्रयोग करें:

'फ्रीस्पेसइन्फो2.वीबीएस - 3 सितंबर, 2005
'लेखक: रमेश श्रीनिवासन'
'वेबसाइट: https://www.winhelponline.com/xp
'फ्री हार्ड डिस्क स्थान की जानकारी को लॉग फ़ाइल में लॉग करता है।
'अनुसूचित कार्य के रूप में चलाया जा सकता है या स्टार्टअप फ़ोल्डर में रखा जा सकता है।

एफ एस हैंडल राइटलाइन तिथि
एफ एस हैंडल रिक्त स्थान लिखें 1
स्ट्र कंप्यूटर = "।"
objWMIService = GetObject _ सेट करें
("winmgmts:\\" और strComputer और "\root\cimv2")
colItems सेट करें = objWMIService. निष्पादन क्वेरी _
("Win32_LogicalDisk से चुनें * जहां DriveType = 3")

colItems में प्रत्येक objItem के लिए
'मुक्त स्थान प्राप्त करें और uint64 से कनवर्ट करें'
आईएसपीसी = सीडीबीएल (objItem. मुक्त स्थान)
एफ एस हैंडल राइटलाइन objItem. डिवाइस आईडी & " - " _
& फ़ॉर्मैटीएसपीसी (आईएसपीसी) और "जीबी फ्री"
अगला

फंक्शन फॉरमेटिएसपीसी (इंटस्पेस)
इंटस्पेस = इंटस्पेस/1024
इंटस्पेस = इंटस्पेस/1024
इंटस्पेस = इंटस्पेस/1024
intSpace= FormatNumber (इंटस्पेस, 1)
फॉरमेटिएसपीसी = इंटस्पेस
अंत समारोह

एफ एस हैंडल रिक्त स्थान 2. लिखें
fsHandle.बंद करें
माईशेल सेट करें = कुछ भी नहीं
सेट fso = कुछ नहीं