Windows の VBS で LDAP 問い合わせ

Windows で追加アプリとかオプションとか入れなくても LDAP 問い合わせできるんですってよ。知らなかった。AD と同様にやればいいらしい。

LDAP検索こんな感じでするとして。

ldapsearch -h 192.168.0.72 -x -b "uid=user.1,ou=People,dc=example,dc=com"  mail

VBSで書くとこんな感じ。

Set ObjDs = GetObject("LDAP:")
Set ObjDsEntry = ObjDs.OpenDSObject("LDAP://192.168.0.72/uid=user.3,ou=People,dc=example,dc=com","","",&H0200)
WScript.Echo ObjDsEntry.Get("mail")

認証込みでLDAP検索の場合こんな感じでするとして。

ldapsearch -h 192.168.0.72 -x -D "cn=admin" -w "password" -b "uid=user.1,ou=People,dc=example,dc=com"  mail

VBSで書くとこんな感じ。

Set ObjDs = GetObject("LDAP:")
Set ObjDsEntry = ObjDs.OpenDSObject("LDAP://192.168.0.72/uid=user.5,ou=People,dc=example,dc=com", "cn=admin", "password", &H0200)
WScript.Echo ObjDsEntry.Get("mail")

この方法を使うとVBS製アプリのなかでLDAP認証ができるよ。