hostname="." ' dotは自機を示す ' uid = "username" ' pwd = "password" Set oLocater = CreateObject("WbemScripting.SWbemLocator") Set oService = oLocater.ConnectServer(hostname, "root/cimv2") ' Set oService = oLocater.ConnectServer(hostname, "root/cimv2", uid, pwd) 'ユーザ、パスワード設定をする場合 oService.Security_.ImpersonationLevel = 3 ' デフォルト値は3のため省略可能 Set items = oService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration", , 48) For Each item In items If Not IsNUll(item.IPAddress) Then For i = LBound(item.IPAddress) To UBound(item.IPAddress) WScript.Echo("IP: " & item.IPAddress(i)) WScript.Echo("アダプタ名: " & item.Description(i)) WScript.Echo("サブネット: " & item.IPSubnet(i)) WScript.Echo("MACアドレス: " & item.MACAddress(i)) If IsArray(item.DefaultIPGateway) Then For j = LBound(item.DefaultIPGateway) To UBound(item.DefaultIPGateway) WScript.Echo("デフォルトゲートウェイ: " & item.DefaultIPGateway(j)) Next End If WScript.Echo("DHCPサーバ: " & item.DHCPServer(i)) WScript.Echo("DNSホスト名: " & item.DNSHostname(i)) WScript.Echo("DNSドメイン: " & item.DNSDomain(i)) Next End If Next Set item = Nothing Set oService = Nothing Set oLocater = Nothing