自分自身を信じてみるだけでいい。きっと、生きる道が見えてくる。(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