VBScriptからLDAPサーバ(Novel l eDirectory)の情報取得

VBScriptからNovell eDirectory(LDAP)の情報を取得する方法

set objDso = GetObject("LDAP:")
set objUser = objdso.OpenDSObject("LDAP://" & LDAP_HOST & _
"/cn=" & USER_ID & ",ou=USERS,o=xxx", _
SEARCH_USER, SEARCH_PWD, 0)
If Not IsNull(objUser) Then
WScript.Echo objUser.Get("company") & " " & objUser.Get("ou")
End If
set objDso = Nothing
set objUser = Nothing

* LDAP_HOST...LDAPサーバのIPアドレス
USER_ID...検索したいコンテナのID
SEARCH_USER...検索したいコンテナの参照権限を持ったユーザ
SEARCH_PWD...SEARCH_USERのパスワード