포트확인

Dim objWMIService As Object

    Dim colItems As Object

    Dim objItem As Object

    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_SerialPort", , 48)

    For Each objItem In colItems

        If UCase(objItem.Description) Like "*USB*" Then

            MsgBox objItem.DeviceID

            MsgBox objItem.Description

        End If

    Next

    Set colItems = Nothing

    Set objWMIService = Nothing

음... 우선은 WMI 오브젝트 서비스에서 오브젝트를 가져와서 window 상의 USB시리얼 포트 확인 질의를 날린것을 메시지 박스로 뿌려주는것입니다.

해당 소스는 완성 후 파일명.vbs 로 확인하여 사용하시면 됩니다.