WmiObject를 이용한 맥주소, 네트워크Device번호, 네트워크 끄기/켜기

	맥주소, 네트워크Device번호, 네트워크 끄기/켜기가 필요할 때 사용.
1. 맥주소(Mac Address), 네트워크 Device번호, 네트워크 켜기 및 끄기 사용을 공유 합니다. 2. 작업 시 명령어가 길어서, 배치프로그램으로 작성해서 올립니다. 3. 이것의 정보는 프로그램 작성할 때 매우 유용합니다. 4. 소스내용은 VB로 설명하겠습니다. (맥주소를 찾는 방법)   (여러분의 댓글이 있으면, 본 블러그를 찾아오시는 모든분에게 좋은정보가 추가됩니다)

1. 배치실행 프로그램 기능 설명

A. 배치실행 프로그램 및 기능 설명

① 배치사용의 기능을 위주로 설명 합니다.

② 첨부된 NetOnoffMac.cmd는 일반편집기로 수정이 가능합니다. (Device번호 수정)

③ 첨부파일을 다운 후 실행하여 원하는 작업선택을 합니다.

④ 배치실행 작업은 4가지로 구성 되어 있습니다. (선택하면 바로 실행합니다)

-. 네트워크 DeviceID확인(D) : 맥주소 알아보기, 네트워크장치번호 알아보기 기능

-. 네트워크 켜기(Y) : 확인 된 네트워크주소의 네트워크를 켜는 기능

-. 네트워크 끄기(N) : 확인 된 네트워크주소의 네트워크를 끄는 기능

-. 작업종료는(E/Q) : 배치실행을 종료하는 기능

⑤ 꼭..꼭입니다..네트워크 끄기/켜기를 작업하기 전에 베치프로그램을 실행 후 'D'를 눌러서

-. Device번호를 알아보고

-. 배치실행프로그램을 수정하고

-. 재 실행 합니다.

-. 아래는 맥주소와 네트워크장치번호를 알아내는 그림입니다. (speed에 값이 있는것이 사용중인 장치 입니다)

 

⑥ VB 프로그램으로 맥주소 알아보는 방법을 공유 합니다. (소스를 첨부 했습니다)

Public Function Gf_MACAddress() As String
   
    Dim obj, objs
    Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL and Speed > 0 ")
   
    For Each obj In objs
        Gf_MACAddress = obj.MACAddress
        Exit For
    Next obj

   
End Function

⑦ IP주소 알아내는 방법 공유

-. 아래내용을 선언 후 사용합니다.

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetIPAddress Lib "getmacip.dll" (ByVal lpBuffer As String, nSize As Long) As Integer

-. 호출사용 예 입니다. (VB6)
    Dim ls_ConnectIP As String
    Dim ls_MacAddress As String
    Dim ls_PcName As String
    
    ls_ConnectIP = Space(255)
    ls_PcName = Space(255)

    '------------------------
    GetIPAddress ls_ConnectIP, 128
    ls_ConnectIP = Left(ls_ConnectIP, InStr(ls_ConnectIP, Chr(0)) - 1)
    GetComputerName ls_PcName, 128
    ls_PcName = Left(ls_PcName, InStr(ls_PcName, Chr(0)) - 1)
    ls_MacAddress = Gf_MACAddress

 

B. 파일 다운 

NetOnoffMac.cmd 

맥주소_IP_PC명.txt

 

사용 후 평가를 해 주시면, 블러그 찾아오시는 모든분들에게 좋은정보를 제공할 수 있는 공유지원역할을 해주시게 되는 것 입니다.

이상으로 블로그를 방문해 주신 모든 분들께 감사드리며, 본 포스팅을 마치도록 하겠습니다.

좋은 정보를 공유해요~~