ＭＡＣアドレスの取得方法について

解決

太郎兵衛 2003-10-31 06:50:15 No: 80175

インターネット関連のプログラムを作成して配布しようとしています。
セキュリティの関係上、使用制限を厳しくする必要がありサーバ側で
アクセスするＩＤやパスワードで制限を設けておりますが、さらに厳
しくするため、限定したＭＡＣアドレス以外ＶＢが動作しないように
プログラムを作りたいのですが、ＭＡＣアドレスの取得方法がわかり
ません。
どなたかご指導いただければ幸いです。よろしくお願いします。

追伸：使用するグループが同一のＩＰ−ＶＰＮ上のＰＣなのでＩＰア
ドレスでは制限できません。

魔界の仮面弁士 2003-10-31 07:45:37 No: 80176

Dim X As Object
Dim S As String
S = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress IS NOT NULL"
For Each X In GetObject("winmgmts:").ExecQuery(S)
Debug.Print X.MACAddress, X.Name
Next

太郎兵衛 2003-10-31 08:32:36 No: 80177

魔界の仮面弁士様
ただただ感激、感謝、感動、感服です。
結果も完璧でした。幅広く利用させていただきます。
本当にありがとうございました。
この記述の一字一句が理解できるようがんばって勉強します。