Imports System.Management Imports System.Net.NetworkInformation Imports System.Text.RegularExpressionsModule Module1 Sub Main() ' onlineで認証するなら Dim query As String = "SELECT * FROM Win32_NetworkAdapterConfiguration" Dim searcher As …