Includes&Samples |
Profile - property in ROOT\Microsoft\Windows\RemoteAccess\Client namespaceProfile in other namespacesList of classes with Profile local property in ROOT\Microsoft\Windows\RemoteAccess\Client namespace
Code samples for Profile propertyGet instance of WMI class using GetObject, Profile property of MSFT_VpnConnectionShort VBS code - get a single specified instance of MSFT_VpnConnection 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\Microsoft\Windows\RemoteAccess\Client:" + _ "MSFT_VpnConnection.AllUserConnection=Value,Name=""Value""") Wscript.Echo wmiObject.Profile 'or other property name, see properties WMI query - sample windows WQL with C#, Profile property of MSFT_VpnConnectionGet a specified instance of MSFT_VpnConnection 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 object ManagementScope scope = new ManagementScope("\\\\.\\ROOT\\Microsoft\\Windows\\RemoteAccess\\Client"); //create object query ObjectQuery query = new ObjectQuery("SELECT * FROM MSFT_VpnConnection"); //create object searcher ManagementObjectSearcher searcher = new ManagementObjectSearcher(scope, query); //get a collection of WMI objects ManagementObjectCollection queryCollection = searcher.Get(); //enumerate the collection. foreach (ManagementObject m in queryCollection) { // access properties of the WMI object Console.WriteLine("Profile : {0}", m["Profile"]); } WMI query - sample windows WQL with VB.Net, Profile property of MSFT_VpnConnectionGet a specified instance of MSFT_VpnConnection 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 New ManagementScope("\\.\ROOT\Microsoft\Windows\RemoteAccess\Client") 'Get a result of WML query Dim Query As New ObjectQuery("SELECT * FROM MSFT_VpnConnection") 'Create object searcher Dim Searcher As New ManagementObjectSearcher(Scope, Query) 'Get a collection of WMI objects Dim queryCollection As ManagementObjectCollection = Searcher.Get 'Enumerate wmi object For Each mObject As ManagementObject In queryCollection 'write out some property value Console.WriteLine("Profile : {0}", mObject("Profile")) Next |