User und Group aus DB lesen und in ADS anlegen

[heLLrais0r]

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

[michael.sprick]

ähm - ich bezweilfe, dass hier jemand absichlich VBScript beherrscht... kann natürlich sein, aber nur für den Fall, dass dies das einzige Forum ist, wo Du dein Problem gepostet hast:
Versuch´s auch mal in einem Windows Forum ;)

[heLLrais0r]

jojo, hab ich auch gemacht,

kann ja sein, das dies einer beherrst,
falls er Admin für ne Win-Umgebung ist :-)