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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAでActiveDirectoryのユーザ一覧の取得の仕方
Visual Basic(VBA)
-
VBSであるAD情報を取得したいです!
Visual Basic(VBA)
-
ExcelにADのセキュリティグループのメンバーを表示させる
Visual Basic(VBA)
-
-
4
ユーザの所属するグループを取得する
Visual Basic(VBA)
-
5
Active directoryの全グループ取得
Visual Basic(VBA)
-
6
ADに参加していないPCからADサーバの情報取得
Visual Basic(VBA)
-
7
エクセル(VBA)でWindowsのサインイン情報(パスワード)と照合可能か
Windows 10
-
8
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
9
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
10
ActiveDirectory ユーザ一覧取得方法
ネットワーク
-
11
エクセルで誰が今開いているか調べる方法。
Excel(エクセル)
-
12
OpenLDAPでのユーザ一覧表示
UNIX・Linux
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「読み込み違反」が起きたとき...
-
Visual Studio 「AnyCpu」について
-
Windows PowerShellでC言語を実...
-
C++初心者です。 debug asserti...
-
JP1/File Transmission Server/...
-
JP1から起動したexeでhttpリク...
-
Eclipse CDT MinGWによるC言語
-
ActiveX → VB を起動するとCre...
-
VB6 EXEとプログラムの違い
-
VB6.0 exe作成時に実行時エラー...
-
C#VB、exeに埋め込んだexeの実行
-
VBコンソールアプリケーション...
-
(msvcr71d.dll) でハンドルされ...
-
外部exe呼び出しの方法 ShellEx...
-
実行ファイル(.exe)が別のPC...
-
system関数(Windows)の戻り値!!
-
Format 関数のバグ?
-
excel vbaから実行するexe実行...
-
Designer.vbは直接コードをいじ...
-
vba 時間の引き算 例えば 15:00...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Visual Studio 「AnyCpu」について
-
excel vbaから実行するexe実行...
-
「読み込み違反」が起きたとき...
-
Windows PowerShellでC言語を実...
-
C++初心者です。 debug asserti...
-
Pythonのコードをexe化
-
実行ファイル(.exe)が別のPC...
-
VB6.0 exe作成時に実行時エラー...
-
C#VB、exeに埋め込んだexeの実行
-
外部exe呼び出しの方法 ShellEx...
-
VisualStudioでC#が実行できない
-
ActiveX → VB を起動するとCre...
-
androidで.exeを実行できますか?
-
ActiveDirectoryから値を取得
-
Format 関数のバグ?
-
system関数(Windows)の戻り値!!
-
C言語に詳しい人に質問です。
-
VS2008 の C++ で作成したEXEの...
-
ACCESSランタイムでエラー
-
WindowsXpでAppActivate
おすすめ情報