NICの数とその情報を取得する方法

Question

タイトルでは、VBScriptがコンピュータ上にあるNICの数を数え、その情報を返す方法を探しています。少なくとも私はNICの数を取得したいと思います。

Answer 1

クエリWMI：

Dim wmi, items, item, count 

Set wmi = GetObject("winmgmts:\\.\root\CIMV2") 
Set items = wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapter") 

count = 0 

For Each item in items 
    Wscript.Echo "Name: " & item.Name 
    count = count + 1 
Next 

Wscript.Echo "Count: " & count