羽毛球

生活在别处

导航

<2005年7月>
日一二三四五六
262728293012
3456789
10111213141516
17181920212223
24252627282930
31123456

统计

留言簿(29)

随笔分类

随笔档案

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜

简单应用活动目录(Active Directory)

活动目录是集成在win2000中的目录服务。它 提供了单一登录的能力并且为你的整个网络架构提供了一个集中的信息知识库，大大的简化了用户和计算机的管理并且提供了网络资源的更好的访问方式。可以通过工业标准LDAP API或者ADSI（Microsoft Directory Services Interface)来访问活动目录。下面举两则基于ASDI的简单应用。（用的是VB）。

一 用VB6枚举域帐户， 代码如下：

Option Explicit

Private Sub Command1_Click()
    'Get  domain
    Dim strDomain As String
    Dim rootDSE As IADs
    Set rootDSE = GetObject("LDAP://rootDSE")
    strDomain = rootDSE.Get("defaultNamingContext")
    Set rootDSE = Nothing

    'Enumulate accounts
    Dim Users As IADsContainer
    Dim User As IADsUser
    Dim obj As IADs
            
    lst.Clear
    
    Dim strPath As String
    strPath = "LDAP://CN=Users," & strDomain
    Set Users = GetObject(strPath)
    Users.Filter = Array("User")
    
    For Each User In Users
        Set obj = User
        lst.AddItem User.Name + " - (" + obj.ADsPath + ")"
    Next
    
End Sub

注意的问题：
1）在VB6中编译时，需要加上reference：菜单project - reference. 选上Active DS Type Library
2）测试的机器必须在一个域（Domain）中

二 用VB6添加帐户(account)
Private Sub Command2_Click()

AddUser "UserJia", "TestDom"

End Sub


Sub AddUser(strUser, strDomain)
    Dim Computer
    Dim User
    
    Set Computer = GetObject("WinNT://" & strDomain)
    Set User = Computer.Create("User", strUser)
    Call User.SetPassword("Michael&123")

    User.setinfo
    
    Set User = Nothing
    Set Computer = Nothing
End Sub

posted on 2005-07-21 19:19 Michael 阅读(3486) 评论(1)  编辑 收藏

评论

# 免费电影资源的共享 2005-08-14 23:09 xx

终于搜索到了一个可以免费在线看电影的网站了,现在分给大家共享:

免费电影 http://www.38138.com是个纯免费的电影网站,可以全免费的在线看电影
免费电影,所有免费电影,免费电影在线看

标题  
姓名  
主页
验证码 *
内容   
  登录  使用高级评论  Top
[使用Ctrl+Enter键可以直接提交]