Объект SWbemObjectPath

Используйте методы и свойства объекта SWbemObjectPath для создания и проверки пути к объекту. Этот объект можно создать с помощью вызова CreateObject VBScript .

Элементы

Объект SWbemObjectPath имеет следующие типы элементов:

Методы

Объект SWbemObjectPath имеет эти методы.

Метод Описание
SetAsClass Принудительно задает путь для обращения к классу WMI.
SetAsSingleton Принудительно задает путь для обращения к одноэлементным экземпляру WMI.

Свойства

Объект SWbemObjectPath имеет эти свойства.

Свойство Тип доступа Описание:
Authority
Чтение/запись
Строка, определяющая компонент центра пути объекта.
Класс
Чтение/запись
Имя класса, который является частью пути объекта.
Displayname
Чтение/запись
Строка, содержащая путь в форме, которую можно использовать в качестве отображаемого имени моникера. См. раздел "Создание приложения или скрипта WMI".
IsClass
Только для чтения
Логическое значение, указывающее, представляет ли этот путь класс. Это аналогично свойству __Genus в COM API.
IsSingleton
Только для чтения
Логическое значение, указывающее, представляет ли этот путь одноэлементный экземпляр.
Ключи
Только для чтения
Объект SWbemNamedValueSet , содержащий привязки значения ключа.
Языковой стандарт
Чтение/запись
Строка, содержащая языковой стандарт для этого пути объекта.
Пространство имен
Чтение/запись
Имя пространства имен, которое является частью пути объекта. Это то же, что и свойство __Namespace в COM API.
ParentNamespace
Только для чтения
Имя родительского элемента пространства имен, которое является частью пути объекта.
Путь
Чтение/запись
Содержит абсолютный путь. Это то же, что и системное свойство __Path в COM API. Это свойство по умолчанию этого объекта.
Relpath
Чтение/запись
Содержит относительный путь. Это то же, что и системное свойство __Relpath в COM API.
Security_
Только для чтения
Используется для чтения или изменения параметров безопасности.
Server
Чтение/запись
Имя сервера. Это то же, что и системное свойство __Server в COM API.

Примеры

В следующем примере кода VBScript показано, как создавать пути к объектам.

on error resume next 
Set ObjectPath = CreateObject("WbemScripting.SWbemObjectPath")
ObjectPath.Server = "dingle"
ObjectPath.Namespace = "root/default/something"
ObjectPath.Class = "ho"
ObjectPath.Keys.Add "fred1", 10
ObjectPath.Keys.Add "fred2", -34
ObjectPath.Keys.Add "fred3", 65234654
ObjectPath.Keys.Add "fred4", "Wahaay"
ObjectPath.Keys.Add "fred5", -786186777

if err <> 0 then 
 WScript.Echo err.number
end if 

WScript.Echo "Pass 1:"
WScript.Echo ObjectPath.Path
WScript.Echo ObjectPath.DisplayName
WScript.Echo ""

ObjectPath.Security_.ImpersonationLevel = 3

WScript.Echo "Pass 2:"
WScript.Echo ObjectPath.Path
WScript.Echo ObjectPath.DisplayName
WScript.Echo ""

ObjectPath.Security_.AuthenticationLevel = 5

WScript.Echo "Pass 3:"
WScript.Echo ObjectPath.Path
WScript.Echo ObjectPath.DisplayName
WScript.Echo ""

Set Privileges = ObjectPath.Security_.Privileges
if err <> 0 then
 WScript.Echo Hex(Err.Number), Err.Description
end if
Privileges.Add 8
Privileges.Add 20, false

WScript.Echo "Pass 4:"
WScript.Echo ObjectPath.Path
WScript.Echo ObjectPath.DisplayName
WScript.Echo ""

ObjectPath.DisplayName = "winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktprivacy,(Debug,!IncreaseQuota, CreatePagefile ) }!//fred/root/blah"

WScript.Echo "Pass 5:"
WScript.Echo ObjectPath.Path
WScript.Echo ObjectPath.DisplayName
WScript.Echo ""

В следующем примере кода Perl показано, как создавать пути к объектам.

use strict;
use Win32::OLE;
use constant FALSE=>"false";

my ( $ObjectPath, $Privileges );

eval { $ObjectPath = new Win32::OLE 'WbemScripting.SWbemObjectPath'; };
unless($@)
{
 eval
 {
  $ObjectPath->{Server} = "dingle";
  $ObjectPath->{Namespace} = "root/default/something";
  $ObjectPath->{Class} = "ho";
  $ObjectPath->{Keys}->Add("fred1", 10);
  $ObjectPath->{Keys}->Add("fred2", -34);
  $ObjectPath->{Keys}->Add("fred3", 65234654);
  $ObjectPath->{Keys}->Add("fred4", "Wahaay");
  $ObjectPath->{Keys}->Add("fred5", -786186777);
 };
 unless($@)
 {
  print "\n";
  print "Pass 1:\n";
  print $ObjectPath->{Path}, "\n";
  print $ObjectPath->{DisplayName} , "\n\n";

  $ObjectPath->{Security_}->{ImpersonationLevel} = 3 ;

  print "Pass 2:\n";
  print $ObjectPath->{Path}, "\n";
  print $ObjectPath->{DisplayName} , "\n\n";

  $ObjectPath->{Security_}->{AuthenticationLevel} = 5 ;

  print "Pass 3:\n";
  print $ObjectPath->{Path}, "\n";
  print $ObjectPath->{DisplayName} , "\n\n";

  eval { $Privileges = $ObjectPath->{Security_}->{Privileges}; };
  unless($@)
  {
   $Privileges->Add(8);
   $Privileges->Add(20,FALSE);

   print "Pass 4:\n";
   print $ObjectPath->{Path}, "\n";
   print $ObjectPath->{DisplayName} , "\n\n";

   $ObjectPath->{DisplayName} = "winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktprivacy,(Debug,!IncreaseQuota, CreatePagefile ) }!//fred/root/blah";

   print "Pass 5:\n";
   print $ObjectPath->{Path}, "\n";
   print $ObjectPath->{DisplayName} , "\n";
  }
  else
  {
   print STDERR Win32::OLE->LastError, "\n";
  }
 }
 else
 {
  print STDERR Win32::OLE->LastError, "\n";
 }
}
else
{
 print STDERR Win32::OLE->LastError, "\n";
}

Требования

Требование Значение
Минимальная версия клиента
Windows Vista
Минимальная версия сервера
Windows Server 2008
Заголовок
Wbemdisp.h
Библиотека типов
Wbemdisp.tlb
DLL
Wbemdisp.dll
CLSID
CLSID_SWbemObjectPath
IID
IID_ISWbemObjectPath

См. также раздел

Скрипты объектов API