ყოველდღიურად დაარეგისტრირეთ ფაილზე თავისუფალი ადგილი დისკზე

შესავალი

შემდეგი VBScript აღრიცხავს თავისუფალ ადგილს მყარ დისკზე (კონსოლიდირებული) ინფორმაცია ჟურნალის ფაილში. თქვენ შეგიძლიათ დააკონფიგურიროთ ეს სკრიპტი Windows-იდან გასაშვებად. გაშვება ან კიდევ უკეთესი, Scheduled Task-ის გამოყენებით, ყოველდღიურად გასაშვებად. The. ინფორმაცია შეინახება ფაილში სახელად FreeSpace.txt დესკტოპში. Შენ შეგიძლია. თუ გინდა, შესაბამისად შეცვალე გზა.

აქ არის სკრიპტი

'FreeSpaceInfo.vbs. - 2005 წლის 2 სექტემბერი
ავტორი: რამეშ სრინივასანი
'საიტი: https://www.winhelponline.com/xp
'ჩაწერს მყარ დისკზე თავისუფალი სივრცის ინფორმაციას ფაილში.
"შეიძლება განხორციელდეს როგორც დაგეგმილი დავალება ან განთავსდეს Startup საქაღალდეში.

ვარიანტი აშკარა
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
დააყენეთ MyShell = CreateObject ("Wscript. ჭურვი")
დააყენეთ fso = Wscript. CreateObject ("სკრიპტირება. ფაილური სისტემის ობიექტი")
LogFileName= MyShell. SpecialFolders ("Desktop") & "\FreeSpace.txt"
დააყენეთ 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. ჩაწერეთ თარიღი & " -- " & iSpc & " გბაიტი თავისუფალი ადგილი"
fsHandle. ჩაწერეთ ბლანკი 1
fsHandle.დახურვა
დააყენეთ MyShell = არაფერი
კომპლექტი fso = არაფერი

დააკოპირეთ ზემოთ მოცემული სტრიქონები Notepad-ში და შეინახეთ ფაილი, როგორც "FreeSpaceInfo.vbs" (ერთად. ციტატები). შემდეგ შეგიძლიათ განათავსოთ ეს სკრიპტი Windows Startup საქაღალდეში ან დააკონფიგურიროთ. სკრიპტი, რომელიც უნდა გაუშვათ ყოველდღიურად Task Scheduler-ის გამოყენებით.

თავისუფალი სივრცის ინფორმაციის აღება თითოეული დისკისთვის, ვიდრე ა. კონსოლიდირებული ფიგურა, გამოიყენეთ ეს სკრიპტი:

'FreeSpaceInfo2.vbs - 2005 წლის 3 სექტემბერი
ავტორი: რამეშ სრინივასანი
'საიტი: https://www.winhelponline.com/xp
"ჩაწერს მყარ დისკზე თავისუფალი სივრცის ინფორმაციას ჟურნალის ფაილში.
"შეიძლება განხორციელდეს როგორც დაგეგმილი დავალება ან განთავსდეს Startup საქაღალდეში.

fsHandle. ჩაწერეთ თარიღი
fsHandle. ჩაწერეთ ბლანკი 1
strComputer = "."
დააყენეთ objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
დააყენეთ colItems = objWMIService. ExecQuery _
("აირჩიეთ * Win32_LogicalDisk-დან, სადაც DriveType = 3")

თითოეული ობიექტისთვის colItems-ში
'აიღეთ თავისუფალი ადგილი და გადააკეთეთ uint64-დან
iSpc = cDbl (objItem. Თავისუფალი სივრცე)
fsHandle. ჩაწერეთ ობიექტი. მოწყობილობის ID & " - " _
& FormatiSpc (iSpc) & "GB უფასო"
შემდეგი

ფუნქცია FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
დასრულების ფუნქცია

fsHandle. ჩაწერეთ ბლანკი 2
fsHandle.დახურვა
დააყენეთ MyShell = არაფერი
კომპლექტი fso = არაფერი