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

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

---

VB code:

Option Explicit

Private 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