WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜 |
|
|
WMI Fun !! > WMI Step > VBS(WSH) から WMI を使ってみよう |
VBS(WSH) から WMI を使ってみよう - WMI StepTopics
今までは VB での使用方法を説明してきましたが、もちろん問題なく WSH(Windows Script Host) からでもWMIは普通に使うことが出来ます。 (システム管理者が WMI を使うことを考えれば WSH で使用するケースが多いかも…。)
Sample Code
Option Explicit
Dim DiskSet Dim Disk Dim Locator Dim Service Dim MesStr Set Locator = WScript.CreateObject("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
![]() Comment
では実行してみましょう。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |