VBAで『実行時エラー -2147217385(80041017) オートメーションエラーです』と表示されます。

Question

VBA 2年目になります。
Windows 7 Excel 2016で開発しています。

内容はコンピューター名の取得やログの取得して特定のエラーログのみエクセルに一覧化するプログラムです。

Windows 7では問題ないのですが一部のWindows 10だけは値はとれますが実行時エラーが出ました。
しかしWindows 10全てではなく、一部の端末のみです。

-2147217385(80041017)
オートメーションエラーです。

エラー内容も分からず、原因が分かりません。
分かる方、教えて頂けないでしょうか？

Create Objectを使用しているコードはこれです。

Create Object("WScript.Network")
Create Object("WbemScripting.SWbemDateTime")

Comments

[yoorwm]

これだけの情報では何も答えられないと思います。オートメーションエラーは、確かCreateObjectで失敗した時とかに出た覚えがあるので、それっぽい箇所のソースを貼り付けてみてください。

[teraemon]

指摘ありがとうございます。追記しました

Answer 1

WbemScriptingの方が怪しいと思ったので検索したら、Excel VBA から WMI を使ってみよう - WMI Stepというのが出てきましたが、動作しない端末で参照設定を追加してみたらどうでしょうか？

Answer 2

しかしWindows 10全てではなく、一部の端末のみです。

この説明から各PCごとのExcelの設定に原因があるのではないか、と思いました。
下記のリンク先ではアドインの設定でエラーが発生した事例が掲載されています。

（解決）Excelマクロが実行できない 2016年6月 オートメーションエラー 例外が発生しました Excel2013 -暇を持て余す練習