Get instance of WMI class using GetObject, Name property of RSOP_GPO
Short VBS code - get a single specified instance of RSOP_GPO class or get
a default unnamed instance (singleton) of the class, using one single command GetObject
with exact path of the wmi object.
'https://wutils.com/wmi/Dim wmiObject
Set wmiObject = GetObject( _
"WINMGMTS:\\.\ROOT\RSOP\User\S_1_5_21_4251975986_251742880_3643873951_1002:" + _
"RSOP_GPO.id=""LocalGPO""")
Wscript.Echo wmiObject.Name 'or other property name, see properties
WMI query - sample windows WQL with C#, Name property of RSOP_GPO
Get a specified instance of RSOP_GPO by a key, get a default unnamed instance (singleton) of the class or list instances of the class by wmi query using this c# sample code.
//https://wutils.com/wmi///Project -> Add reference -> System.Management//using System.Management;//create a management scope objectManagementScope scope = newManagementScope("\\\\.\\ROOT\\RSOP\\User\\S_1_5_21_4251975986_251742880_3643873951_1002");
//create object queryObjectQuery query = newObjectQuery("SELECT * FROM RSOP_GPO Where id=\"LocalGPO\"");
//create object searcherManagementObjectSearcher searcher =
newManagementObjectSearcher(scope, query);
//get a collection of WMI objectsManagementObjectCollection queryCollection = searcher.Get();
//enumerate the collection.foreach (ManagementObject m in queryCollection)
{
// access properties of the WMI objectConsole.WriteLine("Name : {0}", m["Name"]);
}
WMI query - sample windows WQL with VB.Net, Name property of RSOP_GPO
Get a specified instance of RSOP_GPO by a key, get a default unnamed instance (singleton) of the class or list instances of the class by wmi query using this VB.Net sample code.
'Project -> Add reference -> System.Management
'Imports System.Management
'Get the namespace management scope
Dim Scope As NewManagementScope("\\.\ROOT\RSOP\User\S_1_5_21_4251975986_251742880_3643873951_1002")
'Get a result of WML query
Dim Query As NewObjectQuery("SELECT * FROM RSOP_GPO Where id="LocalGPO"")
'Create object searcher
Dim Searcher As NewManagementObjectSearcher(Scope, Query)
'Get a collection of WMI objects
Dim queryCollection AsManagementObjectCollection = Searcher.Get
'Enumerate wmi object
For Each mObject AsManagementObjectIn queryCollection
'write out some property value
Console.WriteLine("Name : {0}", mObject("Name"))
Next