使用可能な空きディスク容量を毎日ファイルに記録します
序章
次のVBScriptは、ハードディスクの空き容量を記録します（統合） ログファイルへの情報。 このスクリプトをWindowsから実行するように構成できます。 スタートアップまたはさらに良い方法として、スケジュールされたタスクを使用して、毎日実行します。 。 情報は、デスクトップのFreeSpace.txtという名前のファイルに保存されます。 あなたはできる。 必要に応じて、それに応じてパスを変更します。
これがスクリプトです
'FreeSpaceInfo.vbs。 -2005年9月2日
'著者：ラメシュ・スリニヴァサン
'Webサイト： https://www.winhelponline.com/xp
'ハードディスクの空き容量情報をファイルに記録します。
'スケジュールされたタスクとして実行することも、スタートアップフォルダに配置することもできます。
オプション明示
Dim iSpc、strComputer、objWMIService
Dim fso、fsHandle、MyShell、LogFileName、colItems、objItem
MyShell = CreateObject（ "Wscriptを設定します。 シェル"）
fso = Wscriptを設定します。 CreateObject（ "スクリプト。 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の各objItemについて
'空き領域を取得してuint64から変換する
iSpc = cDbl（iSpc）+ cDbl（objItem。 フリースペース）
次
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = FormatNumber（iSpc、1）
'日付と時刻をキャプチャするには、「Now」機能を使用します。 「日付」の代わりに
fsHandle。 Writeline Date＆ "-"＆iSpc＆ "GB空き容量"
fsHandle。 Writeblanklines 1
fsHandle.close
MyShell = Nothingを設定します
set fso = Nothing
上記の行をメモ帳にコピーし、ファイルを「FreeSpaceInfo.vbs」（で）として保存します。 引用符）。 次に、このスクリプトをWindowsスタートアップフォルダーに配置するか、構成します。 タスクスケジューラを使用して毎日実行するスクリプト。
ではなく、各ドライブの空き領域情報を取得します。 統合された図、次のスクリプトを使用します。
'FreeSpaceInfo2.vbs- 2005年9月3日
'著者：ラメシュ・スリニヴァサン
'Webサイト： https://www.winhelponline.com/xp
'ハードディスクの空き容量情報をログファイルに記録します。
'スケジュールされたタスクとして実行することも、スタートアップフォルダに配置することもできます。
オプション明示
Dim iSpc、strComputer、objWMIService
Dim fso、fsHandle、MyShell、LogFileName、colItems、objItem
MyShell = CreateObject（ "Wscriptを設定します。 シェル"）
fso = Wscriptを設定します。 CreateObject（ "スクリプト。 FilesystemObject "）
LogFileName = MyShell。 SpecialFolders（ "Desktop"）＆ "\ FreeSpace.txt"
fsHandle = fsoに設定します。 OpenTextFile（LogFileName、8、True）
fsHandle。 書き込み日
fsHandle。 Writeblanklines 1
strComputer = "。"
objWMIService = GetObject_を設定します
（ "winmgmts：\\"＆strComputer＆ "\ root \ cimv2"）
colItems = objWMIServiceを設定します。 ExecQuery _
（ "Select * From Win32_LogicalDisk Where DriveType = 3"）
colItemsの各objItemについて
'空き領域を取得してuint64から変換する
iSpc = cDbl（objItem。 フリースペース）
fsHandle。 WritelineobjItem。 デバイスID ＆ " - " _
＆FormatiSpc（iSpc）＆「GBフリー」
次
関数FormatiSpc（intSpace）
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = FormatNumber（intSpace、1）
FormatiSpc = intSpace
終了機能
fsHandle。 Writeblanklines 2
fsHandle.close
MyShell = Nothingを設定します
set fso = Nothing