Access2016での「IPアドレス」取得について

Question

こんにちは。

表題の件についてアドバイス頂きたく、ご質問させて頂きます。

作成していたプログラムの操作ログを記録する為、使用PCのIPアドレスを取得する処理を作成したいと考えています。

Access2007では、下記サイトで紹介されている処理で取得可能でした。

http://dss.o.oo7.jp/cgi/PT.cgi?Office/VBAIP

しかし、Access2016の場合、エラーが発生しまして正常に動作しませんでした。

→OSはWindows7、10のいずれでも同様です。

エラー：

-2147221020

オートメーションエラーです。構文が無効です。

↓以下の箇所で上記エラーが発生してしまいます。

Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") _
                           .ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
                           "Where (IPEnabled = TRUE)")上記エラーを回避する方法、もしくは別の実現方法についてアドバイス頂ければと思います。大変お手数ではございますが宜しくお願い致します。

Answer 1

​Daisuke Yamashita さん、こんにちは。

マイクロソフト コミュニティへの投稿、ありがとうございます。

Access 2016 で、VBA を使って IP アドレスを取得しようとするとエラーが表示されるのですね。

VBA に関する内容については、マイクロソフト コミュニティでは情報が集まりにくいと思いますので、専用のカテゴリがある、MSDN フォーラムに投稿して情報を集めてみると良いかと思います。

◇ MSDN フォーラム (VBA)

せっかく投稿いただいたのにお力になれずすみません。。

ぜひ、MSDN フォーラムをご利用してみてくださいね。

Answer 2

秋山様

コメント頂きまして有難うございます。

またMSDNフォーラムのご紹介を頂きまして有難うございます。

一度上記フォーラムに投稿させて頂いて、情報収集をしてみたいと思います。

この度は誠に有難うございました。