MS-access2010でGetObject("LDAP://"でのエラー

前提・実現したいこと

新米SEです。前任者が辞めて引き継ぎが無く困っています。
PCを新規導入してaccess2010ファイルを開くとエラーが出ます。
なにが原因なのか知りたいです。
PCを新規導入で
win10pro(x64)
accessランタイム
で動くようにしたいです。
ちなみに、前任者が設定したPC(winXP,7,Vista,10)ではエラーは出ません。

発生している問題・エラーメッセージ

実行時エラー'-2147023564(80070534)':
オートメーション　エラーです。
アカウント名とセキュリティ ID の間のマッピングは実行されませんでした。

該当のソースコード

access2010
1
2Private Sub Form_Load()
3    　　Dim objSysInfo, objUser, objComp
4    　　Set objSysInfo = CreateObject("ADSystemInfo")
5ここ⇒  Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
6  End Sub
7

試したこと

access runtime2010 エラー
が出たためaccessをインストールして試したところ
access 2010 上記のエラー
windows7 新規インストールで試してエラー
windows10　新規インストールで試してエラー
フォームのオープンイベントに上記だけ記入してもエラー
前任者の残したPCではエラーはでません。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
windows server2008とADで接続
win10(1803)
access2010ランタイム
正直、質問する内容が適切かどうかの判断もつかない状態です。

行動規範の内容に同意します

回答1件

ベストアンサー

CreateObject("ADSystemInfo")とありますから、該当のロジックはActiveDirectryからユーザーの情報を取得しているように思われます。
そこでのエラーは、ActiveDirectryから情報を取得できていません。
察するに、前任者のPCにはActiveDirectry関連の設定がされているのでしょう。

その辺りを確認されて下さい。

追記

コードはたぶん以下を参考にされています。
VBScriptを使ってActiveDirectoryのユーザ情報を参照する
 使用中のADユーザー名とコンピュータ名を簡単に取得

なので、前提としてADに接続済みでなければならないのではないでしょうか。

投稿2018/10/02 02:42

編集2018/10/02 06:56

sazi

総合スコア25173

yoot

2018/10/02 04:06

回答ありがとうございます。LDAPの設定ですか。初めて聞く単語です。その単語をキーワードに調べながら前任者の設定したＰＣに向かいます。

sazi

2018/10/02 04:16

>windows server2008とADで接続とありますから、このことです。

yoot

2018/10/02 04:25

ありがとうございます。ドメインサーバーとのやり取り関係ですか。見かけ上はドメインに入ってるだけではダメなのですね。調べてみます。

yoot

2018/10/02 06:09

頑張ったのですが、さっぱりです。その後、VB2010をインストールしてみましたが同じく LDAP:// でひっかかるようです。これはサーバーかクライアントの設定だと思いますが、どこをみていけばよいのかお手上げです。

sazi

2018/10/02 06:18

LDAP:でアクセスしているということは、hostsかDNSサーバーにLDAPという名前で登録があるのではないでしょうか

yoot

2018/10/02 06:33

DNSサーバーとはserver2008でよろしいのですか？ LDAPが今一つわかっていないのですが、active directoryを使ってドメインでネットワークに入っています。私の説明が悪くてsaziさんに間違いを提示していたら失礼と思いまして、念のため。サーバーのActive Directory ユーザーとコンピューターの中にはＬＤＡＰらしきものはありませんでした。

sazi

2018/10/02 06:37

回答を修正しました。LDAPというのはADにアクセスする為の名前という気がします。 DNSサーバーを使用されていないならhostsでしょう。前任者の端末で、dos窓からping LDAPとすればADのIPに対してアクセスされるのが確認できると思います。

yoot

2018/10/02 06:43

ありがとうございます。 2台ほどpingたたいてきましたが、「ping要求ではホストＬＤＡＰが見つかりませんでした」とでました

sazi

2018/10/02 06:48

失礼しました。LDAPは名前では無いようです。回答に追記しました。エラーになる端末はドメイン参加されているのでしょうか？

yoot

2018/10/02 06:58

sazi様ありがとうございます。 cmdよりwhoamiを叩いてみたところ、前任者のＰＣではドメイン名￥ユーザー名となるのに対して、新規ＰＣではコンピューター名￥ユーザー名となっていました。ネットワークはドメインに入っているのですが・・・

sazi

2018/10/02 07:01

PCへのログインはどのような内容で行っているのでしょう？

yoot

2018/10/02 07:04

win10でユーザー名あり、パスワードなしです。ようこそ画面？でエンターキーを押すだけでログインです

sazi

2018/10/02 07:19

じゃあ、ドメイン名￥ユーザー名でログインし直しですね

yoot

2018/10/02 07:33

なぜか、ドメイン名￥ユーザー名が出来ずにコンピュータ名\ユーザー名しか受けつけてくれません。あと少しっぽいのに・・

yoot

2018/10/02 08:05

できました。saziさんありがとうございます。ドメイン名￥ユーザー名になっていなかったとは・・・とりあえず、パスワードを設定して入りなおしました。初歩的な質問におつきあいくださいましてありがとうございます。本当に助かりました。 accessでもVBAでもなく単にドメインに参加できていなかったとは・・・ＯＳをリカバリしてから、最初から設定手順を詰めなおします。ありがとうございました。

行動規範の内容に同意します