WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > ネットワークインターフェースカードの情報を取得する |
ATM 利用時の入出金手数料が最大 7 回/月無料、
WMI スクリプトの実行結果を VBS を利用してメールで送信する方法を公開しています パソコンに負荷のかからないウィルス対策なら ESET パーソナル セキュリティ ネットワークインターフェースカードの情報を取得する: Win32_NetworkAdapterConfiguration - WMI Sample (VB)Topics
ネットワークインターフェースカードに割り当てられている IP アドレスを取得するサンプルプログラムです。Win32_NetworkAdapterConfiguration クラスを使用します。
Sample Code
Private Sub Command1_Click()
Dim NicSet As SWbemObjectSet Dim Nic As SWbemObject Dim Locator As SWbemLocator Dim Service As Object Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set NicSet = Service.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration") For Each Nic In NicSet If Nic.IPEnabled = True Then MesStr = MesStr & _ "NIC の種類: " & Nic.Description & vbCrLf & _ "NIC のIPアドレス: " & Nic.IPAddress(0) & vbCrLf & _ "NIC のサブネットマスク: " & Nic.IPSubnet(0) & vbCrLf & _ "NIC のDHCPの状態: " & Str$(Nic.DHCPEnabled) & vbCrLf End If Next MsgBox "NIC の色々な情報です。" & _ vbCrLf & MesStr & "ですよ。" Set NicSet = Nothing Set Nic = Nothing Set Locator = Nothing Set Service = Nothing End Sub
![]() Comment
実行するとマシンに搭載している全てのネットワークインターフェースカードを列挙して、IP アドレスとサブネットマスクの取得、DHCP クライアントであるかどうか判別しています。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |