WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > ディスクの空き容量を取得する |
WMI スクリプトの実行結果を VBS を利用してメールで送信する方法を公開しています
パソコンに負荷のかからないウィルス対策なら ESET パーソナル セキュリティ 話題のプリウス、ディーラーオプションもネットで気軽に購入 ディスクの空き容量を取得する: Win32_LogicalDisk - WMI Sample (VB)Topics
マシンに搭載されているディスクの空き容量を取得するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim DiskSet As SWbemObjectSet Dim Disk As SWbemObject Dim Locator As New SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set DiskSet = Service.ExecQuery _ ("Select * From Win32_LogicalDisk Where DriveType=3") For Each Disk In DiskSet If (Disk.FreeSpace / Disk.Size) < 0.1 Then MesStr = MesStr & Disk.Name End If Next MsgBox "空き容量が 10% 以下のドライブは、" & vbCrLf & MesStr & "ですよ。" Set DiskSet = Nothing Set Disk = Nothing Set Locator = Nothing Set Service = Nothing End Sub
![]() Comment
実行するとコンピュータについている物理ディスクドライブを検索して空き領域が 10% 切っているドライブを取得しています。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |