Flax!
-
Gesamte Inhalte
8 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von Flax!
-
-
Als erstes mal DAAAANNNNNKKKKKEEE bis jetzt funzt alles einwandfrei ausser das mit mitgliedschaft von einer gruppe.
--> war nur eine seite vorher.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.........
Viele Benutzer per Script anlegen
in Windows Server Forum
Geschrieben
keine panik.... eilt nich wirklich. muss mein lehrer halt noch ne woche warten ;-)