Get instance of WMI class using GetObject, Path property of VirtualDirectory
Short VBS code - get a single specified instance of VirtualDirectory 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\WebAdministration:" + _
"VirtualDirectory.ApplicationPath=""/"",Path=""/"",SiteName=""Default Web Site""")
Wscript.Echo wmiObject.Path 'or other property name, see properties
WMI query - sample windows WQL with C#, Path property of VirtualDirectory
Get a specified instance of VirtualDirectory 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\\WebAdministration");
//create object queryObjectQuery query = newObjectQuery("SELECT * FROM VirtualDirectory Where ApplicationPath=\"/\"Path=\"/\"SiteName=\"Default Web Site\"");
//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("Path : {0}", m["Path"]);
}
WMI query - sample windows WQL with VB.Net, Path property of VirtualDirectory
Get a specified instance of VirtualDirectory 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\WebAdministration")
'Get a result of WML query
Dim Query As NewObjectQuery("SELECT * FROM VirtualDirectory Where ApplicationPath="/"Path="/"SiteName="Default Web Site"")
'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("Path : {0}", mObject("Path"))
Next