Imports System.Management Public Class Resources Public Shared Function WMI(ByVal location As String, ByVal query_term As String, ByVal value As String) As String Dim Result = String.Empty Try Dim WmiSelect As New...