Active Directory - Oracle

[nd88]

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?

[robotto7831a]

Geht nicht?

Das ist keine definierte Fehlermeldung.

Frank