Includes&Samples |
DATABASE_SUSPECT_DATA_PAGE, ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER, VB Net samplesClass | Methods | Properties (14) | Qualifiers (1) | Instances | Namespaces (2)Samples: VB Script | C# | VB.Net | Search on:Microsoft VB.Net Code samplesThe class DATABASE_SUSPECT_DATA_PAGE is abstract and serves only as a base for new classes. WMI query - sample windows WQL with VB.Net, ComputerName property of DATABASE_SUSPECT_DATA_PAGEShort VB.Net sample code to get the abstract class DATABASE_SUSPECT_DATA_PAGE and its properties.
'http://wutils.com/wmi/ 'Project -> Add reference -> System.Management 'Imports System.Management 'set the class name and namespace Dim NamespacePath As String = "\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER" Dim ClassName As String = "DATABASE_SUSPECT_DATA_PAGE" 'Create ManagementClass Dim mClass As New ManagementClass(NamespacePath + ":" + ClassName) 'List the properties in the DATABASE_SUSPECT_DATA_PAGE class Dim lproperties As PropertyDataCollection = mClass.Properties 'display the properties Console.WriteLine(String.Format("Property Names in {0}: ", ClassName)) For Each oproperty As PropertyData In lproperties Console.WriteLine("Name: {0}, Origin: {1}", oproperty.Name, oproperty.Origin) Next WMI query - sample windows WQL with VB.Net, ComputerName property of DATABASE_SUSPECT_DATA_PAGEList of all instances of DATABASE_SUSPECT_DATA_PAGE class in VB.Net.
'http://wutils.com/wmi/ 'Project -> Add reference -> System.Management 'Imports System.Management 'set the class name and namespace Dim NamespacePath As String = "\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER" Dim ClassName As String = "DATABASE_SUSPECT_DATA_PAGE" 'Create ManagementClass Dim oClass As New ManagementClass(NamespacePath + ":" + ClassName) 'Get all instances of the class and enumerate them For Each oObject As ManagementObject In oClass.GetInstances() 'access a property of the Management object Console.WriteLine("ComputerName : {0}", oObject("ComputerName")) Next |