[VBScript] User/Gruppe aus DB lesen und in ADS anlegen

Hi Leute,
bin neu hier,
finde das Board sehr gut

Hab da dann gleich mal eine Frage:

Hätte jemand so ein Programm ? Wäre wichtig, bräuchte das morgen für nen Test

AufgabenStellung: (VbScript)

-Vorname/Nachname und dazugehörige Gruppe aus einer Access-DB lesen
-Vorname mit Nachname verknüpfen
-diesen verknüpften Namen (Username) und die Gruppe in der ADS anlegen
-falls User bereits vorhanden, msgbox(User vorhanden) und mit nächstem fortfahren

ich hoffe ihr könntet mir helfen !!

Vielen Dank!
heLL

das hab ich, aber ich glaub des passt so nicht:

' User in ADS anlegen,

dim fs,datei,dom,zeile,teile
set fs = createobject(Scripting.FileSystemObject)
set dom = getobject(LDAP://OU = EK,OU = Firma,DC = D3,Dc = local)

'************************************************* ************************************************** **********
' Aus DB lesen
'************************************************* ************************************************** **********
set db = createobject(ADODB.Connection)
db.open(Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Dokumente und Einstellungen\philip.ostermeier\Eigene Dateien\test.mdb)

sql=SELECT b.User, g.Gruppe FROM Benutzer b , Gruppen g WHERE b.GruppID = g.GruppeID

set rs = db.execute(sql)

do until rs.eof
for x=0 to rs.fields.count-1
' uservname = rs(x)
username = rs(x)
group = rs(x-1)

'************************************************* ************************************************** ***********
' User anlegen
'************************************************* ************************************************** ***********
set ouser = dom.create(user,CN= & username))

ouser.put samAccountName, cstr(username)
ouser.setinfo
ouser.accountdisabled = false
ouser.setinfo

set ogruppe = getobject(LDAP://Cn= & group) & ,OU = EK,OU = Firma,Dc = D3,DC = local)

ogruppe.add(LDAP://CN= & teile(1) & ,OU = EK,OU = Firma,Dc = D3,DC = local)

next

ausgabe = uservname & vbTab & username & vbTab & group
rs.movenext
loop