Καταγράψτε τη διαθέσιμη ποσότητα ελεύθερου χώρου στο δίσκο σε ένα αρχείο σε καθημερινή βάση
Εισαγωγή
Η ακόλουθη VBScript θα καταγράψει τον ελεύθερο χώρο στον σκληρό δίσκο (ενοποιημένο) πληροφορίες σε ένα αρχείο καταγραφής. Μπορείτε να διαμορφώσετε αυτό το σενάριο ώστε να εκτελείται από τα Windows. Εκκίνηση ή ακόμα καλύτερα, χρησιμοποιώντας το Scheduled Task, για να το εκτελείτε σε καθημερινή βάση. Ο. Οι πληροφορίες θα αποθηκευτούν σε ένα αρχείο με το όνομα FreeSpace.txt στην επιφάνεια εργασίας. Μπορείς. αλλάξτε τη διαδρομή ανάλογα αν θέλετε.
Εδώ είναι το Σενάριο
«FreeSpaceInfo.vbs. - 2 Σεπτεμβρίου 2005
Συγγραφέας: Ramesh Srinivasan
'Δικτυακός τόπος: https://www.winhelponline.com/xp
«Καταγράφει τις πληροφορίες ελεύθερου χώρου στον σκληρό δίσκο σε ένα αρχείο.
«Μπορεί να εκτελεστεί ως προγραμματισμένη εργασία ή να τοποθετηθεί στον φάκελο εκκίνησης.
Επιλογή ρητή
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ορίστε MyShell = CreateObject("Wscript. Κέλυφος")
Σετ fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Desktop") & "\FreeSpace.txt"
ορίστε fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Ορισμός objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Ορίστε colItems = objWMIService. ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 3")
Για κάθε αντικείμενο σε colItems
'Ανακτήστε ελεύθερο χώρο και μετατρέψτε από το uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Ελεύθερος χώρος)
Επόμενο
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Για να καταγράψετε την Ημερομηνία & Ώρα, χρησιμοποιήστε τη λειτουργία "Τώρα". αντί για "Ημερομηνία"
fsHandle. Writeline Ημερομηνία & " -- " & iSpc & " GB Ελεύθερος χώρος"
fsHandle. Γράψτε κενές γραμμές 1
fsHandle.close
ορίστε MyShell = Τίποτα
set fso = Τίποτα
Αντιγράψτε τις παραπάνω γραμμές στο Σημειωματάριο και αποθηκεύστε το αρχείο ως "FreeSpaceInfo.vbs" (με. εισαγωγικά). Στη συνέχεια, μπορείτε να τοποθετήσετε αυτήν τη δέσμη ενεργειών στον φάκελο εκκίνησης των Windows ή να ρυθμίσετε τις παραμέτρους. το σενάριο που θα εκτελείται χρησιμοποιώντας το Task Scheduler σε καθημερινή βάση.
Για να καταγράψετε τις πληροφορίες ελεύθερου χώρου για κάθε μονάδα δίσκου, αντί για α. ενοποιημένο σχήμα, χρησιμοποιήστε αυτό το σενάριο:
«FreeSpaceInfo2.vbs - 3 Σεπτεμβρίου 2005
Συγγραφέας: Ramesh Srinivasan
'Δικτυακός τόπος: https://www.winhelponline.com/xp
«Καταγράφει τις πληροφορίες ελεύθερου χώρου στον σκληρό δίσκο σε ένα αρχείο καταγραφής.
«Μπορεί να εκτελεστεί ως προγραμματισμένη εργασία ή να τοποθετηθεί στον φάκελο εκκίνησης.
Επιλογή ρητή
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ορίστε MyShell = CreateObject("Wscript. Κέλυφος")
Σετ fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders ("Desktop") & "\FreeSpace.txt"
ορίστε fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Ημερομηνία εγγραφής
fsHandle. Γράψτε κενές γραμμές 1
strComputer = "."
Ορισμός objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Ορίστε colItems = objWMIService. ExecQuery _
("Select * From Win32_LogicalDisk Where 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.close
ορίστε MyShell = Τίποτα
set fso = Τίποτα