모든 시리얼에 있는 포트번호 확인하기
컨텐츠 정보
- 1,728 조회
본문
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개
등록된 댓글이 없습니다.
