Set wmi = GetObject("winmgmts://./root/CIMV2") pcid = "pcid" muid = "muid" mac = "mac" query = "SELECT * FROM Win32_ComputerSystem" For Each item In wmi.ExecQuery(query) pcid = item.Name Next query = "SELECT * FROM Win32_ComputerSystemProduct" For Each item In wmi.ExecQuery(query, "WQL", &H30) muid = item.IdentifyingNumber ' WScript.Echo "Name: " & item.Name Next query = "SELECT * FROM Win32_NetworkAdapter WHERE NetEnabled=True" For Each item in wmi.ExecQuery(query) mac = item.MACAddress Next WScript.Echo pcid & vbTab & muid & vbTab & mac
atwikiでよく見られているWikiのランキングです。新しい情報を発見してみよう!
最近アクセスの多かったページランキングです。話題のページを見に行こう!