WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜 |
|
|
WMI Fun !! > WMI Step > Excel VBA から WMI を使ってみよう |
IT 関連情報を気軽に知りたい方へ、
私も使っていますお勧め SIM フリースマホ ASUS Zenfone Excel VBA から WMI を使ってみよう - WMI StepTopics
WMI は VBA を使用することができる各 Office アプリケーションから使用することも出来ます。
Sample Code
Sub GetWMItoExcel()
Dim oDiskSet As SWbemObjectSet Dim oDisk As SWbemObject Dim oLocator As SWbemLocator Dim oService As SWbemServices Dim i As Long Set oLocator = New WbemScripting.SWbemLocator Set oService = oLocator.ConnectServer Set oDiskSet = oService.ExecQuery _ ("Select * From Win32_LogicalDisk Where DriveType=3") Worksheets("Sheet1").Cells(1, 1).Value = "空き容量が10%以下のドライブは、" i = 1 For Each oDisk In oDiskSet If (oDisk.FreeSpace / oDisk.Size) < 0.5 Then Worksheets("Sheet1").Cells(i + 1, 1).Value = oDisk.Name I = I + 1 End If Next Set oDiskSet = Nothing Set oDisk = Nothing Set oLocator = Nothing Set oService = Nothing End Sub
![]() Comment
それでは実行してみましょう。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |