Flax!

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. --> war nur eine seite vorher. 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.........