게임강의

모든 시리얼에 있는 포트번호 확인하기

컨텐츠 정보

본문


    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 로 확인하여 사용하시면 됩니다.


 


출처는 데브피아의 skjung76 님 자료입니다.


관련자료

댓글 0
등록된 댓글이 없습니다.

최근글


새댓글


알림 0