ADP-active directory programming-01

ADP20050312:测试环境、准备工作

Adp20050312：准备活动

       在介绍今天的知识之前，希望大家对active directory 有一定的了解。最好你是windows网络的网管，最低限度你应该像我一样在自己的XP系统上虚拟了一台windows 2000 server family域控制器。我的机器CPU：intel P4 1.7GHz ，内存：256+128= 384M , 硬盘 迈拓 60G（可惜这 60G已经被我塞的满满，为了装这个虚拟系统我来回腾空间，终于将我一个 3.5G的分区完全空出来了）。我使用VMware Workstation Version： 4.0.5 。安装完系统并慷慨的分给他 128M的内存，建立一个活动目录，使其成为域控制器。机器名为arserver ，域名cam，建立了arden、xb两个用户，并和同事的测试域cad互相建立信任关系。这些都不麻烦，一前没做过找个mcse之类的书可以建立一个比我好的多的域结构。

 

 

脚本大家都用过吧，没用过没关系，把下面的代码敲入记事本另存为ADSIEnumTop.vbs文件，直接双击或者在命令行中敲下面命令：> cscript ADSIEnumTop.vbs

‘file name :ADSIEnumTop.vbs

' Connect to the Active Directory root object

Set adsRootDSE = GetObject("LDAP://RootDSE")

' Form a path to the top-level container of the default domain

strPath = "LDAP://" & adsRootDSE.get("defaultNamingContext")

' Display path being used

WScript.echo "Listing objects at " & strPath

' Connect to the container specified

Set adsDomain = GetObject(strPath)

' Enumerate through each object in the container

For Each adsObject In adsDomain    ' Display the name of each object and its class

    WScript.Echo adsObject.Name & " (" & adsObject.Class & ")"

Next

       在我刚才配置好的虚拟系统中它运行的结果如下：

 

 

当然建议你安装VC或BCC编译器。

Ok配置好这样一个环境，我们可以在后面使用它进行测试了。

如果你有安装虚拟系统和配置域的问题，可以留言，我们来讨论。