As New ConnectionOptions() options.Username = "DomainUserId" options.Password = "password"
Dim scope As New ManagementScope("ServerName ootcimv2", 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 blog comments powered by Disqus