HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0629
ヨウスケLDAP検索の実装1未解決


ヨウスケ

リンク

2021/6/29(Tue) 10:43:01|NO.93123

いろいろと検索したのですが残念ながら対応がわからず,お知恵を拝借させてください。

以下のログイン中のユーザIDを利用して,LDAP(AD)からメールアドレスを取得するVBSコードをHSPで実現することは可能でしょうか?


Dim objADSystemInfo As Variant
Dim objUser As Variant

'-------- No.1
Set objADSystemInfo = CreateObject("ADSystemInfo")

MsgBox objUser.mail

'-------- No.2
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)

MsgBox objUser.mail


No1の部分は以下でできることはわかったのですが,それ以降がわからずなんです。

newcom objADSystemInfo, "ADSystemInfo"
mes objADSystemInfo("username")



この記事に返信する


ヨウスケ

リンク

2021/6/29(Tue) 10:44:50|NO.93124

スミマセン,間違いがありました

'-------- No.1
Set objADSystemInfo = CreateObject("ADSystemInfo")
MsgBox objUser.mail



MsgBox objADSystemInfo.UserName



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.93123への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

ONION software Copyright 1997-2021(c) All rights reserved.