Dim options As New ConnectionOptions()options.Username = "Domain\UserId"options.Password = "password"Dim scope As New ManagementScope("\\ServerName\root\cimv2", options)Dim strSVCquery As String = ConfigurationSettings.AppSettings("NICquery")Dim objNICQuery As New WqlObjectQuery(strSVCquery)Dim objNICsearcher As New Manag ...
Contributed by aspfree Rating: / 28 April 24, 2003
Dim options As New ConnectionOptions() options.Username = "Domain\UserId" options.Password = "password"
Dim scope As New ManagementScope("\\ServerName\root\cimv2", options) Dim strSVCquery As String = ConfigurationSettings.AppSettings("NICquery")
Dim objNICQuery As New WqlObjectQuery(strSVCquery) Dim objNICsearcher As New ManagementObjectSearcher(scope, objNICQuery)
Dim envVar As New ManagementObject()
Dim objNICItem As PropertyData Dim strNICColName As String
scope.Connect() For Each envVar In objNICsearcher.Get For Each objNICItem In envVar.Properties strNICColName = objNICItem.Name If Not IsArray(objNICItem.Value) Then Console.WriteLine("Item is NOT an array -- " & strNICColName) Else Console.WriteLine("Item is an array -- " & strNICColName) End If Next Next