Új user felvétele ad-ba excel tábla alapján

http://msdn2.microsoft.com/en-us/library/ms974568.aspx

CSVDE -i Bulk Import

Ez csv-ből olvassa be:

Attribute VB_Name = "ActiveDirectory"
Public Function AddUser(UserName As String, Optional GroupName = "Domain Users", _
Optional FullName As String) As Boolean

'*************************************************
'PURPOSE: Add a User to the Domain

'PARAMETERS: UserName: LoginName
' Password: Password
' GroupName (Optional): Group to Put User in
' Defaults to "Domain Users"
' FullName (Optional) FullName of User

'RETURNS: True if successful, false otherwise

'REQUIRES: -- Active Directory
' -- A Reference to Active DS Type Library
' -- User of program has permission to add users

'EXAMPLE:
'AddUser "JoeU", "joespassword", "Administrators", "Joe User"
'*******************************************************

Dim oContainer As IADsContainer

Dim oUser As IADsUser
Dim oGroup As IADsGroup
Dim oSysInfo As New WinNTSystemInfo

Dim oRoot As IADs
Dim oDomain As IADsDomain
Dim sDomain As String

On Error GoTo ErrHandler

sDomain = oSysInfo.DomainName
Set oContainer = GetObject("WinNT://" & sDomain)
Set oUser = oContainer.Create("User", UserName)

If FullName <> "" Then oUser.FullName = FullName
oUser.SetInfo

'oUser.SetPassword Password

Set oGroup = GetObject("WinNT://" & sDomain & "/" & GroupName)
oGroup.Add "WinNT://" & sDomain & "/" & UserName
oGroup.SetInfo

AddUser = True

ErrHandler:
Set oContainer = Nothing
Set oUser = Nothing
Set oGroup = Nothing

End Function

Sub main()

Dim kiolvasott As String
Dim adoszam As String
Dim nev As String

Open "c:\xxxxx.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, kiolvasott
nev = Left(kiolvasott, (InStr(kiolvasott, ";") - 1))
adoszam = Right(kiolvasott, (Len(kiolvasott) - InStr(kiolvasott, ";")))
Call Module1.AddUser(adoszam, "hova", nev)
Loop
Close #1

End Sub