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

Dieses Thema [VBScript] User/Gruppe aus DB lesen und in ADS anlegen im Forum "Windows XP Forum" wurde erstellt von heLLrais0r, 7. Juni 2005.

Thema: [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 ?...

  1. 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
     
Die Seite wird geladen...

[VBScript] User/Gruppe aus DB lesen und in ADS anlegen - Ähnliche Themen

Forum Datum
[VBScript] Logon-Script um Registry-Einträge abfragen Windows XP Forum 22. März 2007