Kullanılabilir boş disk alanı miktarını günlük olarak bir dosyaya kaydedin

Tanıtım

Aşağıdaki VBScript, boş sabit disk alanını günlüğe kaydeder (birleştirilmiş) bilgileri bir günlük dosyasına Bu betiği Windows'tan çalışacak şekilde yapılandırabilirsiniz. Başlangıç veya daha iyisi, günlük olarak çalıştırmak için Zamanlanmış Görev'i kullanarak.. bilgiler Masaüstünde FreeSpace.txt adlı bir dosyada saklanacaktır. Yapabilirsiniz. İsterseniz yolu buna göre değiştirin.

İşte Senaryo

'FreeSpaceInfo.vbs. - 2 Eylül 2005
Yazar: Ramesh Srinivasan
'İnternet sitesi: https://www.winhelponline.com/xp
'Boş sabit disk alanı bilgilerini bir dosyaya kaydeder.
'Zamanlanmış bir görev olarak çalıştırılabilir veya Başlangıç klasörüne yerleştirilebilir.

Seçenek Açık
iSpc, strComputer, objWMIService'i karartın
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Kabuk")
fso = Wscript olarak ayarlayın. CreateObject("Komut Dosyası. Dosya Sistemi Nesnesi")
LogFileName=MyShell. SpecialFolders("Masaüstü") & "\FreeSpace.txt"

fsHandle = fso olarak ayarlayın. OpenTextFile (LogFileName, 8, True)

strBilgisayar = "."
objWMIService'i ayarla = GetObject _
("winmgmts:\\" & strBilgisayar & "\root\cimv2")
colItems = objWMIService olarak ayarlayın. Yürütme Sorgusu _
("DriveType = 3 olan Win32_LogicalDisk'ten * Seçin")

colItems içindeki her nesne için
'Boş alan alın ve uint64'ten dönüştürün
iSpc = cDbl (iSpc) + cDbl (objItem. Boş alan)
Sonraki

iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumarası (iSpc, 1)

'Tarih ve Saati yakalamak için "Şimdi" işlevini kullanın. "Tarih" yerine
fsHandle. Writeline Date & " -- " & iSpc & " GB Boş alan"
fsHandle. Boş satırları yaz 1
fsHandle.close
MyShell'i ayarla = Hiçbir şey
fso = Hiçbir şey ayarla

Yukarıdaki satırları Not Defteri'ne kopyalayın ve dosyayı "FreeSpaceInfo.vbs" (ile. alıntılar). Daha sonra bu komut dosyasını Windows Başlangıç klasörüne yerleştirebilir veya yapılandırabilirsiniz. günlük olarak Görev Zamanlayıcı kullanılarak çalıştırılacak komut dosyası.

yerine her sürücü için boş alan bilgilerini yakalamak için. birleştirilmiş şekil, bu komut dosyasını kullanın:

'FreeSpaceInfo2.vbs - 3 Eylül 2005
Yazar: Ramesh Srinivasan
'İnternet sitesi: https://www.winhelponline.com/xp
'Boş sabit disk alanı bilgilerini bir günlük dosyasına kaydeder.
'Zamanlanmış bir görev olarak çalıştırılabilir veya Başlangıç klasörüne yerleştirilebilir.

fsHandle. Yazma Tarihi
fsHandle. Boş satırları yaz 1
strBilgisayar = "."
objWMIService'i ayarla = GetObject _
("winmgmts:\\" & strBilgisayar & "\root\cimv2")
colItems = objWMIService olarak ayarlayın. Yürütme Sorgusu _
("DriveType = 3 olan Win32_LogicalDisk'ten * Seçin")

colItems içindeki her nesne için
'Boş alan alın ve uint64'ten dönüştürün
iSpc = cDbl (objItem. Boş alan)
fsHandle. Writeline nesnesi. Cihaz Kimliği ve " - " _
& FormatiSpc (iSpc) & " GB ücretsiz"
Sonraki

İşlev BiçimiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
bitiş işlevi

fsHandle. Boş satırlar 2 yaz
fsHandle.close
MyShell'i ayarla = Hiçbir şey
fso = Hiçbir şey ayarla