HSPTV!掲示板

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

以下のログイン中のユーザ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")

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

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

↓

MsgBox objADSystemInfo.UserName