HOME       LIST

【VB】Network AdapterのMacAddress取得

Network AdapterのMacAddress取得

自分自身を信じてみるだけでいい。きっと、生きる道が見えてくる。(Johann Wolfgang von Goethe)

Please don't hesitate to call us.(お気軽にお電話ください)


Dim obj, objs
Dim MACAddress As String
Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL")

For Each obj In objs
    MACAddress = obj.MACAddress
Next obj

以前コンテンツ:【VB】PUT GET コマンドの基本コード



Copyright(c) 2007-2023 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional