wsh/PC情報.vbs - progtips

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