Hallo,

ich will die Benutzerdaten (Active Directory) in eine Oracle Datenbank kopieren/ schreiben.

Mit dem Code

Dim oIADS, fsi, f

Dim fso, a

Dim objacc

Dim objdb

Dim rs

Dim db

Dim objdbe

Dim MyCounter

' Setup Environment and Create objects ********************************

Set WSHSHELL = WScript.CreateObject("Wscript.Shell")

Set objacc = WScript.CreateObject("Access.Application")

Set objdbe = objacc.DBEngine

Set objdb = objdbe.OpenDatabase("U:\Datenbank\ad_user.sql")

Set db = objdb.OpenRecordset("ad_user")

' ******** delete old records from database

strSQL = "delete * from ad_user"

' strSQL = "insert * from ad_user"

Set QDF = objdb.CreateQueryDef("",strSQL)

QDF.Execute

' ******** setup user and file object ********************************

Set fso = CreateObject("Scripting.FileSystemObject")

Set a = fso.CreateTextFile("U:\dirsize.xml")

Set fsi = CreateObject("Scripting.FileSystemObject")

ADSIADS_ADOQuery ' Start des Skripts

Sub ADSIADS_ADOQuery()

Dim strLDAPQuery ' As String

Dim objCON ' As ADODB.Connection

' --- ADO-Connection-Objekt erzeugen

Set objCON = CreateObject("ADODB.Connection")

' --- Verbindung zu dem OLE-DB-Provider für ADSI

CONSTRING = "Provider=ADSDSOObject"

objCON.Open CONSTRING ', "administrator", ""

' --- Selektion aller User

strLDAPQuery= "<LDAP://RootDSE>;(objectclass=user); IUser,

SamAccountName,CN,Firstname, LastName, Descrip, Office, Telephone,

Handy, EmailAddr, WebPage, Addr1, City, State, ZipCode, Title,

Department, Company, Manager, Profile, LoginScript, HomeDirectory, HomeDrive

Adspath, LastLogin, Primary, EmailAddr2, EmailAddr3"

' --- Ausführen der Abfrage

Set rs = objCON.Execute(strLDAPQuery)

' --- Ausgabe der Ergebnisse

While NOT rs.EOF

db.addnew

db.fields("IUser").value = rs("IUser")

db.fields("UserName").value = rs("samaccountname")

db.fields("CN").value = rs("CN")

db.fields("FirstName").value = rs("FirstName")

' db.fields("description").value = rs("Description")

db.fields("LastName").value = rs("LastName")

db.fields("Descrip").value = rs("Descrip")

db.fields("Office").value = rs("Office")

db.fields("Telephone").value = rs("Telephone")

db.fields("Handy").value = rs("Handy")

db.fields("EmailAddr").value = rs("EmailAddr")

db.fields("WebPage").value = rs("WebPage")

db.fields("Addr1").value = rs("Addr1")

db.fields("City").value = rs("City")

db.fields("State").value = rs("State")

db.fields("ZipCode").value = rs("ZipCode")

db.fields("Title").value = rs("Title")

db.fields("Department").value = rs("Department")

db.fields("Company").value = rs("Company")

db.fields("Manager").value = rs("Manager")

db.fields("Profile").value = rs("Profile")

db.fields("LoginScript").value = rs("LoginScript")

db.fields("HomeDirectory").value = rs("HomeDirectory")

db.fields("HomeDrive").value = rs("HomeDrive")

db.fields("Adspath").value = rs("Adspath")

db.fields("LastLogin").value = rs("LastLogin")

db.fields("Primary").value = rs("Primary")

db.fields("EmailAddr2").value = rs("EmailAddr2")

db.fields("EmailAddr3").value = rs("EmailAddr3")

rs.MoveNext

db.update

Wend

' --- Schließen der Objekte

rs.Close

wscript.Echo "AD ausgelesen und in DB geschrieben"

END SUB

hab ich mal versucht? Geht nicht? Was ist da falsch?

Wie soll ich das machen?

Geht nicht?

Das ist keine definierte Fehlermeldung.

Frank