CoolAce

Hy, schon mal Firewall, Firewall am server oder Router gecheckt. CoolACe :cool:

Hy als Zusätzliche Info es handelt sich um W2K3

Hy was sagt das Ereignissprotokoll. Welches betriebssystem und Zusatzsoftware CoolAce :cool:

Hy danke für deine Hilfe, hab das geändert in OU=Benutzer leider kommt jetzt der fehler 52 Zeile 1 Das Objekt unterstützt diese Eigenschaft oder Methode nicht: obj.user 0 AllowLogon wieso das nicht CoolAce :cool:

Hy, also das fertige Skript werde ich posten sobald es fertig ist aber bei dem Punkt TS mitgeben habe ich noch so meine Probleme user.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) Mail = Feld(4) GroupString = Feld(5) Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Mail) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Mail) Dim ouo, b Set ouo = GetObject("LDAP://OU=Benutzer,DC=playboy83,DC=de") Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Benutzer b.Put "userPrincipalName", Benutzer & "@playboy83.de" b.Put "mail", Mail & "@playboy83.de" b.Put "profilePath", "\\windows2003dc\daten\profile\" & Benutzer b.Put "homeDirectory", "\\windows2003dc\daten\home\" & Benutzer b.Put "homeDrive", "f:" b.Put "c", "DE" b.Put "co", "DEUTSCHLAND" b.Put "l", "Stadt" b.Put "postalCode", "PLZ" b.Put "postOfficeBox", "Postfach" b.Put "st", "Bundesland" b.Put "streetAddress", "Strasse Zeile 1" & vbCrlf & "Strasse Zeile 2" & vbCrlf b.SetInfo b.SetPassword Passwort b.AccountDisabled = False b.SetInfo b.Put "pwdLastSet", 0 b.SetInfo WScript.Sleep(1000) ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) Set GroupObj = GetObject("WinNT://playboy83/" & GroupString) GroupObj.Add ("WinNT://playboy83/" & Benutzer) Set DomainObj = Nothing Set GroupObj = Nothing Set colUsers = GetObject("LDAP://CN=,DC=playboy83,DC=de") For Each objUser In colUsers objUser.AllowLogon = 1 objUser.TerminalServicesHomeDirectory = "\\windows2003dc\daten\TS\User" objUser.TerminalServicesHomeDrive = "t:" objUser.TerminalServicesProfilePath = "\\windows2003dc\daten\TS\Profile" objUser.SetInfo Next End Sub Fehler Zeile 50 die 1 aber wieso ? :suspect: Gruß CoolAce

Cool Ace. läuft irgend ein besonderes Programm drauf,

Hy das ARP ist das Adress Resolution Protokoll (IP MAC zuordnung) ? Hat der Server statische IP und ist im DNS richtig eingetragen CoolAce :cool:

Hy, kann der auch irgendwie mehrere Gruppen mit diesem Skript verarbeiten ?? Gruß CoolAce

Hy, vielen vielen Dank für deine hilfe. Es hat funktioniert (jubel jubel jubel) :D Gruß CoolAce :cool:

Hy nochmal danke für deine Hilfe, habs nach unzähligen Versuchen mit Ghost 9.0 dann irgendwie hinbekommen . Gruß CoolAce :cool:

hy irgendwie klappt des noch nicht mit der Gruppe User.txt user1,Vorname 1,Nachname 1,PE,www,Org user2,Vorname 2,Nachname 2,PW,www,Org user3,Vorname 3,Nachname 3,PW,www,Org User.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) Mail = Feld(4) GroupString = Feld(5) Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Mail) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Mail) Dim ouo, b Set ouo = GetObject("LDAP://OU=Benutzer,DC=playboy83,DC=de") Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Benutzer b.Put "userPrincipalName", Benutzer & "@playboy83.de" b.Put "mail", Mail & "@playboy83.de" b.Put "profilePath", "\\windows2003dc\daten\profile\" & Benutzer b.Put "homeDirectory", "\\windows2003dc\daten\home\" & Benutzer b.Put "homeDrive", "f:" b.Put "c", "DE" b.Put "co", "DEUTSCHLAND" b.Put "l", "Stadt" b.Put "postalCode", "PLZ" b.Put "postOfficeBox", "Postfach" b.Put "st", "Bundesland" b.Put "streetAddress", "Strasse Zeile 1" & vbCrlf & "Strasse Zeile 2" & vbCrlf b.SetInfo b.SetPassword Passwort b.AccountDisabled = False b.SetInfo b.Put "pwdLastSet", 0 b.SetInfo WScript.Sleep(1000) ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) Set GroupObj = GetObject("" &"WinNT://playboy83" & _ windows2003dc &"/"& GroupString &"") GroupObj.Add (""&"WinNT://"playboy83" & _ windows2003dc &"/"& Benutzer &"") Set DomainObj = Nothing Set GroupObj = Nothing End Sub Fehler Zeile 48 Zeichen 28 ´)´ erwartet hat einer eine Idee Gruß CoolAce :cool:

Hy hab ich auch schon aber da geht des auch nicht, kann des an dem ALDI PC Image liegen Vielen Vielen Dank für die Hilfe CoolAce :cool:

:cool: Hy, genau, er verweigert das neue Image was ich mit Ghost 8.0 gemacht habe CoolAce

Hy, mit Ghost 8.0 und Drive Image CoolAce

Hy, beim ALDI Rechner ist ein Image dabei um den aufzusetzen, das habe ich für die Grundinstallation benutzt. Danach 1000 Programme nachinstalliert und jetzt bin ich echt fertig :mad:

Hy, das Problem ist man kann ein Image von der Kiste machen alles kein Problem nur beim Wiederherstellen. hab den ALDI rechner mit ihrem Image aufgesetzt. Versions Fehler kommt auch nur beim Wiederherstellen. Hat Aldi einen Schutz implementiert. GHOST 7 Version Gruß CoolAce

Hy, Hab ein kleines Prob mit dem ALDI PC vom Kumpel. Hab im die Kiste platt gemacht nachdem das halbe Internetvirus Kompendium auf seiner Kiste ihr Unwesen gemacht haben. Nach einer Neuinstallation läuft alles, aber damit ich die Kröte nicht nochmal installieren muss (1000 Programm und 2 Wochen später) will ich Image machen Geht aber nicht, bringt immer so ein ****** wie mit veralteter Version wiederherstellen :mad: . Habs Versucht mit Ghost, Drive Image nixs klappt Warum mfg CoolAce :cool:

Hy, Problem nicht, aber als erste müssen alle jene die wandern aus der Domäne genommen werden, PC Konten gelöscht werden wenn diese sich nicht an der Domäne anmelden sollen (Security) den Server falls DC sauber über DCPromo runter zum Memberserver stufen und PC Konto löschen. Lokal schauen ob wichtige Sachen drauf sind und last but not least die Packer zum schleppen bestellen :D Gruß CoolAce :cool:

Hy, welches problem hast du genau ? Event ID? repliziert er nicht ? Grobe Grundlagen. Du richtest entsprechend deine Standorte ein, wichtig über die NTDS Settings kannst du Replikation einstellen zwischen den Standorten, kleinster Wert ist 15 Minuten, sinnvoller Wert musst du selbst wissen (schmallbandige Leitung oder nicht) würde halt nachts empfehlen das Zeug zu replizieren. Kannst dort auch Häckchen setzen das auf jedem Standort der DC einen eigenen Globalen Katalog hat, ist sinnvoll da die Last sonst dauernd durch die schmallbandigen Leitungen gedrückt werden. CoolAce

Hy, bin zwar keine Crystal Reports spezialist, aber kenn mich mit IIS etwas aus ! Was passiert wenn du denn Rechnername im IE vom Client aus eingibst um zu sehen ob IIS funtkioniert ! CoolAce

Hy, es gibt auch die Möglichkeit bei MS sich die per POST zuschicken zu lassen. Weiß nimmer genau aber irgenwo bei dieser Evaluation Download gibt es einen Link zum zusenden :cool: Gruß CoolAce

Hy sorry wenn ich nochmal nachfragen muss, aber bin beim Skripten wirklich noch ein bluttiger Anfänger. Werd da wirklich mal einen Kurs machen :D Frage. Aber wie müsste so ein Skript im groben aussehen mit diesen Befehlen for und dsadd -. Gruß CoolAce :cool:

Hy Sorry versteh den Sinn dieser Aktion nicht. Soweit ich weiß ist es nicht möglich OUs oder Unter OUs zu verstecken. Wenn du willst das gewisse Leute nichts machen dürfen dann entzieh innen die Rechte oder pass Sie auf weniger an CoolAce :cool:

Hy bin zwar kein Skript Freak aber würde dir mal efolgendes empfehlen zu testen musst halt noch anpassen 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) Dieser hammer geile Skript auszug stammt übrigens von thorgood seinem Thread Gruß CoolAce :cool:

Hy, aus meiner eigenen Erfahrung heraus, empfehle ich dir Clarify und was absolut nicht zu empfehlen ist ist das HP Service Desk. HP benutzt diese selbst nur teilweise und setzen auch auf Clarify. Gruß CoolAce :cool: