• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    如何在ADSI中查询用户属性?

    如何在ADSI中查询用户属性?


    %
    Dim x

    On error resume next
    'Set x = GetObject("WinNT://kenfilszwin2k/allen")
    strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfilsz,dc=kenfilsz,dc=com"

    set x=getobject(strLDAP)
    Response.Write "Object Name: " x.Name "br>"
    Response.Write "Object Class: " x.Class "br>"

    Set cls = GetObject(x.Schema)
    For Each op In cls.MandatoryProperties

    ' 返回用户对象必须设置的属性
      v = x.Get(op)
      Response.Write "
    必须设置:" op "=" v "br>"
    Next
    For Each op In cls.OptionalProperties

    ' 返回用户对象可选的属性
      v = x.Get(op) 
      Response.Write "
    可选:" op "=" v "br>"
    Next
    set cls=nothing
    set x=nothing
    response.end
    %>

    上一篇:如何用htmlEncode来显示Unicode?
    下一篇:学习小实例--滚动条的简单实现
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    如何在ADSI中查询用户属性? 如,何在,ADSI,中,查询,用户,