http://www.asplists.com/asplists/adsivb.asp
去这里看看

解决方案 »

  1.   

    Hi from Charles Carroll creator of AspFriends.com. Thank you for participating in the ASPfriends.com!  We work hard to ensure list quality.
    [email protected]
    is where to send comments/complaints. I will deal with them promptly. 
                 
    READ related links: 
    Author Charles Oppermann's ADSI Info @
       http://www.coppersoftware.com/Software/activedirectory/ 
    documentation @
       http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/adsi/adsistartpage.htm 
    Microsoft Platform SDK w/scripting, ActiveX Data Objects (ADO), and Windows Management Interfaces (WMI) @
       http://msdn.microsoft.com/downloads/sdks/platform/platform.asp 
    Active Directory Schema Reference @
       http://msdn.microsoft.com/certification/schema/ 
    ADSI FAQs @
       http://www.15seconds.com/focus/ADSI.htm 
    ADSI for the Uninitiated @
       http://www.4guysfromrolla.com/webtech/021199-1.shtml 
    Get ADSI download @
       http://microsoft.com/adsi/ 
    Web Admin Tools @
       http://www.microsoft.com/ISN/downloads/webadmin_overview.asp 
    NT FAQs @
       http://www.ntfaq.com/ 
    Abstracting the Active Directory Interfaces @
       http://www.microsoft.com/isn/whitepapers/IISManCom.asp Related Lists:
    Great 15secs ADSI List @
       http://list.15seconds.com/scripts/lyris.pl?enter=adsi 
    VB and ADSI @
       http://www.asplists.com/asplists/adsivb.asp 
    C++ and ADSI @
       http://www.asplists.com/asplists/adsivisualc.asp 
    C++ and ADSI @
       http://www.asplists.com/asplists/advancedadsi.asp 
     
      

  2.   

    还有这里
    http://support.microsoft.com/default.aspx?scid=kb;EN-US;q169398
      

  3.   


    <%
    on error resume nextsComputer ="localhost"
    sPhyDir = "c:\dina\adsi"
    sVirDir = "ADSITest"'Get Default Web Site Object
    set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")'Verify by printing out ServerComment
    Response.Write "Comment = " & websvc.ServerComment & "<br>"'Get root of Default Web Site
    set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")'Delete Virtual Directory
    Set vDir = vRoot.Delete("IIsWebVirtualDir",sVirDir)
    %>
    set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")
    '''''''''''''''
    ''''在pws的环境下无法得到websvc 对象
    ''''err.number=432
    ''''''''''''''''''''''''''''''''''