VB2005にて、ActiveDirectoryから値を取得するアプリを作成しています。
WindowsXPでは問題なく動作するのですが、Windows7だと「ローカルエラーが発生しました」
というエラーメッセージが返って来てしまいます。
OSの設定を変えれば解決するのか、プログラムの書き方を変えるのか分からないので、
こちらに質問させていただきました。以下がプログラムです。
どなたかご存知の方がいらっしゃいましたら教えて下さい。
宜しくお願いします。
Try
Dim serverPath As String = "LDAP://ドメコンのIPアドレス/DC=XXXXX,DC=co,DC=jp"
Dim userName As String = "CN=ユーザー名,CN=Users,DC=XXXXX,DC=co,DC=jp"
Dim password As String = "パスワード"
Dim entry As New System.DirectoryServices.DirectoryEntry(serverPath, userName, password)
Dim lgUser As String
Dim intPos As Integer '「,」の位置
lgUser = ユーザーID
Dim search As New System.DirectoryServices.DirectorySearcher()
'検索のルートになるDirectoryEntryを指定
search.SearchRoot = entry
'検索条件を指定します。下ではアカウント名と変数lgUserの一致が条件
search.Filter = "(samAccountName=" + lgUser + ")"
Dim result As System.DirectoryServices.SearchResult
Dim strA As String
'↓ココでエラーになります。
result = search.FindOne
Dim counter As Integer
For counter = 0 To (result.Properties("memberOf").Count) - 1
'resultで抽出したアカウントがメンバとして含まれるグループを取得
Dim groupName As String = CStr(result.Properties("memberOf")(counter))
strA = strA & groupName & vbCrLf
intPos = groupName.IndexOf(",") '「,」の位置を取得
User_Group.Add(groupName.Substring(3, intPos - 3))
Next counter
SetUser_Group = True
Catch ex As Exception
MessageBox.Show(ex.Message, "ActiveDirectoryからの取得", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
No.1ベストアンサー
- 回答日時:
EXEを右クリック→管理者として実行
で動きませんか?
常に管理者として実行するならexeのプロパティで「管理者としてこのプログラムを実行する」
あるいはmanifestファイルを同胞
http://www.atmarkit.co.jp/fdotnet/chushin/introw …
この回答への補足
ご回答いただき有難うございます。
3つともやってみましたが結果は変わらずでした・・・。
他に何か方法をご存知でしたら教えて下さい。
何度もすみません。
Dim entry As New System.DirectoryServices.DirectoryEntry(serverPath, userName, password, DirectoryServices.AuthenticationTypes.FastBind)
と後ろにDirectoryServices.AuthenticationTypes.FastBindをつけたら上手くいきました。
ご回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでActiveDirectoryのユーザ一覧の取得の仕方
Visual Basic(VBA)
-
ExcelにADのセキュリティグループのメンバーを表示させる
Visual Basic(VBA)
-
ユーザの所属するグループを取得する
Visual Basic(VBA)
-
-
4
VBSであるAD情報を取得したいです!
Visual Basic(VBA)
-
5
Active directoryの全グループ取得
Visual Basic(VBA)
-
6
ADに参加していないPCからADサーバの情報取得
Visual Basic(VBA)
-
7
エクセル(VBA)でWindowsのサインイン情報(パスワード)と照合可能か
Windows 10
-
8
.VBSだとADODBのプロバイダが見つからない件
Visual Basic(VBA)
-
9
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel vbaから実行するexe実行...
-
Visual Studio 「AnyCpu」について
-
「読み込み違反」が起きたとき...
-
Windows PowerShellでC言語を実...
-
エスケープ・シーケンスによる...
-
C#VB、exeに埋め込んだexeの実行
-
VB6.0 exe作成時に実行時エラー...
-
ActiveDirectoryから値を取得
-
clickonceの使い方
-
VB.NetのWinsockについて
-
VBで「ファイル名を指定して実...
-
VBコンソールアプリケーション...
-
system関数(Windows)の戻り値!!
-
Eclipse CDT MinGWによるC言語
-
VB6 EXEとプログラムの違い
-
VB2005 Vistaで印刷ができません
-
visual c++ 2008 にてhello wo...
-
実行ファイル(.exe)が別のPC...
-
アウトルックが起動しているか...
-
chatgpt 4oを使っています。あ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「読み込み違反」が起きたとき...
-
Visual Studio 「AnyCpu」について
-
Windows PowerShellでC言語を実...
-
excel vbaから実行するexe実行...
-
実行ファイル(.exe)が別のPC...
-
C++初心者です。 debug asserti...
-
Format 関数のバグ?
-
C#VB、exeに埋め込んだexeの実行
-
VisualStudioでC#が実行できない
-
VB6.0 exe作成時に実行時エラー...
-
Pythonのコードをexe化
-
shell関数には二重引用符を渡せ...
-
ActiveDirectoryから値を取得
-
mscorlib.dllの初回例外について
-
ActiveX → VB を起動するとCre...
-
androidで.exeを実行できますか?
-
外部exe呼び出しの方法 ShellEx...
-
VBがデバッグ時落ちてしまう
-
Eclipse CDT MinGWによるC言語
-
ACCESSランタイムでエラー
おすすめ情報