SWbemObjectSet オブジェクト

SWbemObjectSet オブジェクトは、SWbemObject オブジェクトのコレクションです。 詳細については、コレクションへのアクセスに関する記事を参照してください。 このオブジェクトは、VBScript の CreateObject 呼び出しでは作成できません。

SWbemObjectSet オブジェクトを取得するには、次のメソッドのいずれか、またはその非同期と同等のメソッドで呼び出します。

• SWbemObject.Associators_
• SWbemObject.Instances_
• SWbemObject.References_
• SWbemObject.Subclasses_
• SWbemServices.AssociatorsOf
• SWbemServices.ExecQuery
• SWbemServices.InstancesOf
• SWbemServices.ReferencesTo
• SWbemServices.SubclassesOf

メンバー

SWbemObjectSet オブジェクトには、次の種類のメンバーがあります。

• メソッド
• プロパティ

メソッド

SWbemObjectSet オブジェクトには、次のメソッドがあります。

プロパティ

SWbemObjectSet オブジェクトには、次のプロパティがあります。

解説

SWbemObjectSet は、0 個以上の SWbemObject オブジェクトのコレクションです。 SWbemObjectSet 内の SWbemObject はそれぞれ、次の 2 つのいずれかを表すことができます。

• WMI マネージド リソースのインスタンス。
• クラス定義のインスタンス。

WMI では、次のコード サンプルで説明するように、このクラスは、ExecQuery 呼び出しまたは InstancesOf 呼び出しの戻り値として使用されることが最も一般的です。

strComputer = "."
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objSWbemServices.ExecQuery("SELECT State FROM Win32_Service")
For Each objService In colServices
    Wscript.Echo objService.Name, objService.State
Next

ほとんどの場合、SWbemObjectSet を使用して行うのは、コレクション自体に含まれているすべてのオブジェクトを列挙することくらいしかありません。 ただし、SWbemObjectSet には、システム管理スクリプトで役立つ Count プロパティが含まれています。 名前が示すとおり、Count を使用すると、コレクション内の項目数を確認できます。 たとえば、このスクリプトを使用すると、コンピューターにインストールされているすべてのサービスのコレクションを取得して、検出されたサービスの合計数をエコーできます。

このクラスの使用方法の詳細については、「WMI の列挙」を参照してください。

例

次の VBScript コード サンプルは、SWbemObjectSet コレクションの操作方法を示しています。

On Error Resume Next

Set Disks = GetObject("winmgmts:").InstancesOf ("CIM_LogicalDisk")

WScript.Echo "There are", Disks.Count, " Disks"

Set Disk = Disks("Win32_LogicalDisk.DeviceID=""C:""")
WScript.Echo Disk.Path_.Path

if Err <> 0 Then
 WScript.Echo Err.Description
 Err.Clear
End if

次の Perl コード サンプルは、SWbemObjectSet コレクションの操作方法を示しています。

use strict;
use Win32::OLE;

my ($disks,$disk);

eval { $disks = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2")->
   InstancesOf("CIM_LogicalDisk"); };
unless($@)
{
 print "\nThere are ", $disks->{Count}, " Disks \n";

 eval { $disk = $disks->Item("Win32_LogicalDisk.DeviceID=\"C:\""); };
 unless($@)
 {
  print $disk->{Path_}->{Path}, "\n";
 }
 else
 {
  print STDERR Win32::OLE->LastError, "\n";
 }
}
else
{
 print STDERR Win32::OLE->LastError, "\n";
}

要件

関連項目

スクリプト API オブジェクト