Includes&Samples |
Msvm_SystemDevice, ROOT\virtualization\v2, VBScript samplesClass | Methods | Properties (2) | Qualifiers (6) | Instances (6) | Namespaces (2)Samples: VB Script | C# | VB.Net | Search on:Microsoft Msvm_SystemDevice - VB Script code samplesGet instance of WMI class using GetObject, GroupComponent property of Msvm_SystemDeviceShort VBS code - get a single specified instance of Msvm_SystemDevice 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\virtualization\v2:" + _ "Msvm_SystemDevice.GroupComponent=""\\\\.\\root\\virtualization\\v2:Msvm_ComputerSystem.CreationClassName=\""Msvm_ComputerSystem\"",Name=\"".\"""",PartComponent=""\\\\.\\root\\virtualization\\v2:Msvm_Memory.CreationClassName=\""Msvm_Memory\"",DeviceID=\""Microsoft:4764334E-E001-4176-82EE-5594EC9B530E\\\\0\"",SystemCreationClassName=\""Msvm_ComputerSystem\"",SystemName=\"".\""""") Wscript.Echo wmiObject.GroupComponent 'or other property name, see properties Alternative codesSWbemServices.GetQuickest and most efficient VB Script code to get a single instance by a key - SWbemServices.Get
'https://wutils.com/wmi/ Dim oWMI, Instance 'Get base WMI object, "." means computer name (local) Set oWMI = GetObject("WINMGMTS:\\.\ROOT\virtualization\v2") Do 'Get the instance of Msvm_SystemDevice Set Instance = oWMI.Get("Msvm_SystemDevice.GroupComponent=""\\\\.\\root\\virtualization\\v2:Msvm_ComputerSystem.CreationClassName=\""Msvm_ComputerSystem\"",Name=\"".\"""",PartComponent=""\\\\.\\root\\virtualization\\v2:Msvm_Memory.CreationClassName=\""Msvm_Memory\"",DeviceID=\""Microsoft:4764334E-E001-4176-82EE-5594EC9B530E\\\\0\"",SystemCreationClassName=\""Msvm_ComputerSystem\"",SystemName=\"".\""""") 'Do something with the instance Wscript.Echo Instance.GroupComponent 'or other property name, see properties 'Wait for some time to get next value Wscript.Sleep 1000 Loop While True WMI query - sample windows WQLGet a specified instance of Msvm_SystemDevice by a key, get a default unnamed instance (singleton) of the class or list instances of the class by wmi query using this VB Script.
'https://wutils.com/wmi/ Dim oWMI, WQL, Instances, Instance 'Get base WMI object, "." means computer name (local) Set oWMI = GetObject("WINMGMTS:\\.\ROOT\virtualization\v2") 'Create a WMI query text WQL = "Select * from Msvm_SystemDevice Where GroupComponent=""\\\\W2012SDC\\root\\virtualization\\v2:Msvm_ComputerSystem.CreationClassName=\""Msvm_ComputerSystem\"",Name=\""W2012SDC\""""PartComponent=""\\\\W2012SDC\\root\\virtualization\\v2:Msvm_Memory.CreationClassName=\""Msvm_Memory\"",DeviceID=\""Microsoft:4764334E-E001-4176-82EE-5594EC9B530E\\\\0\"",SystemCreationClassName=\""Msvm_ComputerSystem\"",SystemName=\""W2012SDC\""""" 'Get instances of Msvm_SystemDevice Set Instances = oWMI.ExecQuery(WQL) 'Enumerate instances For Each Instance In Instances 'Do something with the instance Wscript.Echo Instance.GroupComponent 'or other property name Next 'Instance InstancesOfList of all instances, wmi class Msvm_SystemDevice.
'https://wutils.com/wmi/ Dim oWMI, Instances, Instance 'Get base WMI object, "." means computer name (local) Set oWMI = GetObject("WINMGMTS:\\.\ROOT\virtualization\v2") 'Get instances of Msvm_SystemDevice - all instances of this class and derived classes 'Set Instances = oWMI.InstancesOf("Msvm_SystemDevice") 'Get instances of Msvm_SystemDevice Set Instances = oWMI.InstancesOf("Msvm_SystemDevice", 1) 'Enumerate instances For Each Instance In Instances 'Do something with the instance Wscript.Echo Instance.GroupComponent 'or other property name Next 'Instance WMI remote scripting - Locator, ConnectGet WMI management object using SWbemLocator.ConnectServer method.
You can connect to a remote computer and specify Username/Password for the WMI connection.
'https://wutils.com/wmi/ Dim Locator, oWMI, WQL, Instances, Instance 'Create Locator object Set Locator = CreateObject("WbemScripting.SWbemLocator") 'Get base WMI object Set oWMI = Locator.ConnectServer("MachineName", "ROOT\virtualization\v2", "MachineName\administrator", "Password") '.... continue using oWMI object |