Codziennie rejestruj dostępną ilość wolnego miejsca na dysku do pliku
Wstęp
Poniższy VBScript rejestruje wolne miejsce na dysku twardym (skonsolidowane) informacje do pliku dziennika. Możesz skonfigurować ten skrypt do uruchamiania z systemu Windows. Uruchamianie, a nawet lepiej, za pomocą Zaplanowanego zadania, aby uruchamiać je codziennie. Ten. informacje będą przechowywane w pliku o nazwie FreeSpace.txt na pulpicie. Możesz. zmień odpowiednio ścieżkę, jeśli chcesz.
Oto Skrypt
'FreeSpaceInfo.vbs. - 2 września 2005 r.
„Autor: Ramesh Srinivasan
'Stronie internetowej: https://www.winhelponline.com/xp
'Zapisuje informacje o wolnym miejscu na dysku twardym do pliku.
'Może być uruchomiony jako zaplanowane zadanie lub umieszczony w folderze Autostart.
Opcja Wyraźna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ustaw MyShell = CreateObject("Wscript. Muszla")
Ustaw fso = Wscript. CreateObject("Skrypty. Obiekt systemu plików")
LogFileName= Moja powłoka. SpecialFolders("Pulpit") i "\FreeSpace.txt"
ustaw fsUchwyt = fso. OpenTextFile (LogFileName, 8,True)
strKomputer = "."
Ustaw obiektWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Ustaw colItems = objWMIService. Zapytanie wykonawcze _
(„Wybierz * z Win32_LogicalDisk, gdzie typ dysku = 3”)
Dla każdego obiektu w colItems
„Odzyskaj wolne miejsce i przekonwertuj z uint64”
iSpc = cDbl (iSpc) + cDbl (objItem. Wolna przestrzeń)
Następny
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= Numer Formatu (iSpc, 1)
'Aby przechwycić datę i godzinę, użyj funkcji „Teraz”. zamiast „Data”
fsObsługa. Data zapisu & " -- " & iSpc & " GB wolnego miejsca"
fsObsługa. Napisz puste linie 1
fsHandle.zamknij
ustaw MyShell = Nic
ustaw fso = Nic
Skopiuj powyższe wiersze do Notatnika i zapisz plik jako „FreeSpaceInfo.vbs” (z. cytaty). Skrypt ten można następnie umieścić w folderze startowym systemu Windows lub skonfigurować. skrypt do codziennego uruchamiania przy użyciu Harmonogramu zadań.
Aby przechwycić informacje o wolnym miejscu dla każdego dysku, a nie. rysunek skonsolidowany, użyj tego skryptu:
„FreeSpaceInfo2.vbs — 3 września 2005 r.”
„Autor: Ramesh Srinivasan
'Stronie internetowej: https://www.winhelponline.com/xp
'Zapisuje informacje o wolnym miejscu na dysku twardym w pliku dziennika.
'Może być uruchomiony jako zaplanowane zadanie lub umieszczony w folderze Autostart.
Opcja Wyraźna
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Ustaw MyShell = CreateObject("Wscript. Muszla")
Ustaw fso = Wscript. CreateObject("Skrypty. Obiekt systemu plików")
LogFileName= Moja powłoka. SpecialFolders("Pulpit") i "\FreeSpace.txt"
ustaw fsUchwyt = fso. OpenTextFile (LogFileName, 8,True)
fsObsługa. Data napisania
fsObsługa. Napisz puste linie 1
strKomputer = "."
Ustaw obiektWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Ustaw colItems = objWMIService. Zapytanie wykonawcze _
(„Wybierz * z Win32_LogicalDisk, gdzie typ dysku = 3”)
Dla każdego obiektu w colItems
„Odzyskaj wolne miejsce i przekonwertuj z uint64”
iSpc = cDbl (objItem. Wolna przestrzeń)
fsObsługa. ObjItem napisz. Identyfikator urzadzenia & " - " _
& FormatiSpc (iSpc) & " GB za darmo"
Następny
Funkcja FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= NumerFormatu (intSpace, 1)
FormatiSpc = intSpace
funkcja zakończenia
fsObsługa. Napisz puste linie 2
fsHandle.zamknij
ustaw MyShell = Nic
ustaw fso = Nic