' シリアルポートを列挙
' 参考：http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/sept04/hey0928.mspx

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery(_
				"Select * from Win32_PnPEntity Where " & _
				"(ClassGuid = '{4D36E978-E325-11CE-BFC1-08002BE10318}') and " & _
				"(Name like '%(COM%)')")

For Each objItem in colItems
    Wscript.Echo "Class GUID: " & objItem.ClassGuid
    Wscript.Echo "Device is Working: " & objItem.ConfigManagerErrorCode
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "Service: " & objItem.Service
Next