Flax!

*schäm*

Ich kümmer mich diese Woche darum!!

keine panik.... eilt nich wirklich. muss mein lehrer halt noch ne woche warten ;-)

Als erstes mal DAAAANNNNNKKKKKEEE bis jetzt funzt alles einwandfrei ausser das mit mitgliedschaft von einer gruppe.

Also wenn ich das richtig sehe hast du bis jetzt ein Copy & Paste gemacht aber das System dahinter noch nicht verstanden, daher denke ich das ich dir mal per PM mal auf die Sprünge helfe :) Ein Fazit schreibt dann einer von uns beiden hier ans Board :)

wo find ich denn das fazit??

kann mir da jemand weiter helfen?

Benutzer = Feld(1)
Vorname = Feld(1)
Nachname = Feld(0)
Passwort = Feld(2)
GroupObj = Feld(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,GroupObj)
...
...
...

' Die Gruppe wird gesucht und als Ziel definiert.
Set GroupObj = GetObject("" &"LDAP://" & _DomainString &"/"& GroupString &"")
' Der User wird in die entsprechende Gruppe integriert.
GroupObj.Add (""&"LDAP://"& _DomainString &"/"& UserString &"")
Set DomainObj = Nothing ' Variable wird frei gegeben '
Set GroupObj = Nothing ' Variable wird frei gegeben '

Hi, ich habe eine Texdatei. die will ich mittels VB Scritpt in die mysql datenbank schreiben.

Die Textdatei sieht ungefaehr so aus:

Anmeldename, Vorname, Nachname, Passwort

das passwort wird natuerlich mit md5 verschluesselt.

kann mir da jemand weiter helfen? Ich habe zwar schon ein script das eine mysql tabelle ausliest gefunden aber des funzt net.

Danke fuer die antwort.

Is des ein vb script???

habe bei meinem sql server passwort vergeben. muss ich da nich vorher noch ne verbindung aufbauen mit passwort und user wie bei php?

Ich hatte wo im netz ein script gefunden aber det geht net... db_name, passwort und user stimmen natuerlich nich ;) :D

-----------------------

Option Explicit

'---- CursorTypeEnum Values ----

Const adOpenForwardOnly = 0

' Const adOpenKeyset = 1

' Const adOpenDynamic = 2

' Const adOpenStatic = 3

'---- LockTypeEnum Values ----

' Const adLockReadOnly = 1

Const adLockPessimistic = 2

' Const adLockOptimistic = 3

' Const adLockBatchOptimistic = 4

'---- CursorLocationEnum Values ----

' Const adUseServer = 2

Const adUseClient = 3

'---- ConnectModeEnum Values ----

' Const adModeUnknown = 0

Const adModeRead = 1

' Const adModeWrite = 2

' Const adModeReadWrite = 3

' Const adModeShareDenyRead = 4

' Const adModeShareDenyWrite = 8

' Const adModeShareExclusive = &Hc

' Const adModeShareDenyNone = &H10

' Const adModeRecursive = &H400000

Dim Conn, RS

Set Conn = CreateObject("ADODB.Connection")

Set RS = CreateObject("ADODB.Recordset")

Conn.Provider = "MSDASQL"

Conn.Mode = adModeRead

Conn.Open "Driver=MySQL; Server=localhost; Database=name_der_datenbank;", _

"User", "Passwort"

' Für den neuen ODBC 3.51 Treiber !

' Conn.ConnectionString = _

' "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=DBName;SERVER=localhost;"

Conn.CursorLocation = adUseClient

RS.CursorLocation = adUseClient

RS.Open "Select * from phpbb_users", Conn, _

adOpenForwardOnly, adLockReadOnly

Do While Not RS.EOF

WScript.Echo RS.Fields("UID") & " " & _

RS.Fields("Name") & ", " & RS.Fields("Vorname")

RS.MoveNext

Loop

RS.Close

Conn.Close

Set RS = Nothing

Set Conn = Nothing

.... sorry... VB script :D

Hi, ich suche ein script mit dem ich daten in eine tabelle einer mysql datenbank schreiben kann. kann mir da jemand helfen??

VIELEN dank muss jetzt nur noch bissl feinschliff machen... also an mein system anpassen z.b. anmeldung bei @..... local und so und passwort beim ersten ma aendern.

aber es funzt einwandfrei.

kannst du mir vielleicht auch noch was anderes sagen? kann ich eigentlich die benutzer auch statt aus ner .txt aus ner datenbank (mysql) auslesen lassen wie sie z.b. bei nem php board vorhanden ist?

Hi, bin neu hier... wollte grad das script vom thorgood nehmen wo auf der ersten seite stand.

habe einen w2k server mit sp4. der server heisst w2kdom. die domaene home.local

ich habe sogar ne ou angelegt mit dem namen test

habe das script demenstprechend abgeändert:

adduser.vbs

__________

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user.txt",1,0)

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzer = Feld(0)

Vorname = Feld(1)

Nachname = Feld(2)

Passwort = Feld(3)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)

Loop

f.Close

Wscript.Quit(0)

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort)

Dim ouo, b

Set ouo = GetObject("LDAP://OU=home,DC=local") LINE 19

Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) LINE 20

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "userPrincipalName", Benutzer & "@domaene.de"

b.Put "profilePath", "\\w2kdom\user_daten\profile\" & Benutzer

b.Put "homeDirectory", "\\w2kdom\user_daten\home\" & Benutzer

b.Put "homeDrive", "U:"

b.SetInfo

b.SetPassword Passwort

b.AccountDisabled = False

b.SetInfo

WScript.Sleep(1000)

ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

End Sub

------------------------------------------

nun das problem.

der fehler ist in zeile 19 zeichen 1 Eine referenzauswertung wurde vom server zurückgesendet.

ich möchte das die user in die ou test angelegt werden. nur irgendwie schaff nich weiter zu kommen.........