heLLrais0r
07-06-2005, 19:26
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
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