有一个程序要写，需要会MYSQL的，有报酬。

Question

有一个程序 功能主要是获取WINDOWS 2003server里面的域的所有用户，然后写进mysql里面，如果可以的高手请联系：Q：398706948
mail:[email protected]
报酬联系后协商。谢谢

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim objSysRoot As Object                      '系统根目录
    Dim objAllUser As Object                      '所有用户信息
    Dim objGroup As Object                        '迭代工作组
    Dim objUser As Object                         '迭代用户
    Dim strDomainName As String                   '域名
    Dim strLoginName As String                    '域登录名
    Dim strLoginPassWord As String                '域登陆密码
    Dim i As Integer
    
    
    strDomainName = ""                '这里设置你的域名
    strLoginName = ""                 '这里设置你的域登录名  任何一个域账号均可。
    strLoginPassWord = ""             '登录名对应的密码
    
    Set objSysRoot = GetObject("WinNT:")
    Set objAllUser = objSysRoot.OpenDSObject("WinNT://" & strDomainName, strLoginName, strLoginPassWord, 0&)    i = 1
    objAllUser.Filter = Array("User")
    For Each objUser In objAllUser
        For Each objGroup In objUser.Groups       '在这个循环里 ，你可以把数据插入MySql数据库
            ListView1.ListItems.Add , , objGroup.Name                         '域中用户所属的工作组。
            ListView1.ListItems(i).ListSubItems.Add , , objUser.Name          '域登录名
            ListView1.ListItems(i).ListSubItems.Add , , objUser.FullName      '用户全称
            i = i + 1
            'InsertIntoDB(objGroup.Name,objUser.Name,objUser.FullName)        '插入数据库
        Next
    Next
End SubPrivate Sub Form_Load()
    Me.ListView1.ColumnHeaders.Clear
    Me.ListView1.ColumnHeaders.Add , , "Group Name", ListView1.Width / 3
    Me.ListView1.ColumnHeaders.Add , , "User Name", ListView1.Width / 3
    Me.ListView1.ColumnHeaders.Add , , "Full Name", ListView1.Width / 3
End Sub