llaprosper

Ne, hier müssen einige Standarduser ihr PW behalten!!! Frag nicht warum, ich werde hier auch noch irre :mad:

Ist natürlich richtig, aber einige müssen hier zwingend das PW behalten. (Laut Sysadmins) Also will ich einfach eine Komplettliste haben um dann zu sehen, wieviele dabei sind, die es nicht behalten müssen. Ist alles etwas kompliziert hier *kopfschüttel*

Sauber!! Jetzt passt es! Ich danke Dir vielmals! Und die Bücher sind auch schon bestellt. Werde mich da mal einlesen!! Hmmm, ob da wohl ein zusammenhang besteht? Auf einmal rufen ein paar User an, Ihr PW wäre gesperrt. Haben sie wohl ein paar mal falsch eingegeben:D . Werde ich schnell mal entsperren müssen :) live long and prosper

Ja gut, kein Problem einmalig alle OU Pfade anzugeben, aber leider werden die gesammelten Daten nicht ins logfile geschrieben, sondern nur die letzte angegebende OU.

Also, das Script funktioniert wunderbar. Ich muß allerdings in jeder einzelnen OU den Pfad bis zur OU=User den Pfad angeben. Das ist natürlich ****. Ich möchte eigentlich, das er Automatisch ab dem obersten Pfad alle User in den verschiedenen OU´s sucht. Eigentlich verstehe ich das Script auch so. Wieso brauche ich denn sonst z.B. objOU.Filter = Array("User")? Habt Ihr dafür eine Lösung?

Du sprichst mir gerade aus der Seele!! Ich will es auf jeden Fall lernen, da ich auch schon ein paar schöne Scripte für diverse AD Abfragen (natürlich fertige) verwende. Wir haben ein Firmenkonto bei Amazon, wo ich mir jedes Buch bestellen kann!! Da kommt natürlich Dein Tipp gerade richtig!!! Der Rest wird gleich oder Montag mal getestet. Jo nicht schlecht mit dem Codeschnipsel. Damit poppt schon mal das Fenster auf und es werden mir die OU´s angezeigt. Aber nicht die enthaltenen Objekte!! Liegt da der Fehler?

Frag besser nicht. Bin neu in der Firma und musste schon des öfteren den Kopf schütteln. Die User sind hier sehr "mächtig" Sie wollen halt das Stand. PW behalten, da es so schön einfach ist!!:rolleyes: Langsam kann ich die IT-Leitung aber umstimmen, auf ein bischen mehr Sicherheit wert zu legen. Ist übrigens keine kleine Klitsche, sondern fast 500 User! Wenn ich nur "ON Error Resume next" lösche, kommt auch keine Fehlermeldung! Hmmm klappt auch nicht so recht. Mit "For each user in objOU(.filter)" macht er einen error: Zeile 21 Zeichen1 Unzulässiger oder nicht ausreichend definierter Hinweis. Was macht eigentlich die Zeile objOU.Filter = Array("User") Was bedeutet in diesem Fall "User"? Angabe einer OU? Und was meinst Du mit "Ich würde hier ansetzen und schauen, ob in dem Objekt auch wirklich User sind. " In welchem Objekt? Das Script läuft ja ohne diese Änderungen schön durch, nur wird im erzeugten Log kein User angelegt. Da es so schnell geht, denke ich, dass irgendwie keine User angepackt werden, oder?

Wenn ich die Unterstriche raus nehme, kommt eine Fehlermeldung! Zeile 19 Zeichen 54 Fehler: ')' erwartet Code: 800A03EE Quelle: Kompilierungsfehler in Microsoft VBScribt. Das war vorher nicht. Und mit einen Netzwerkshare, ohne Unterstrich wegnehmen klappt es auch nicht. Das Logfile schreibt keinen einzigen User rein!

Hi, ich habe hier ein Script gefunden, welches ich echt super gebrauchen könnte. Es prüft, welche User noch nicht ihr Standard PW im AD geändert haben, in dem es probiert mit dem im Script definierten PW auf einen anderen Rechner ein Netzlaufwerk zu mappen! Wenn das mappen klappt, hat der User noch das Standard PW. Eigentlich echt genial. Nur bei mir wird in der Textdatei nichts angezeigt, obwohl etliche Ihr PW noch nicht geändert haben. Die Datei wird IMHO auch viel zu schnell erzeugt (1 Sek.) Bei ca. 500 Usern finde ich das wohl viel zu schnell. Vielleicht könnt Ihr ja mal ein Blick auf das Script werfen, ob da irgend ein Fehler drin ist. Ich habe einen Ordner auf meinen PC frei gegeben für alle, und der soll dann gemappt werden. 'Hier die einzelnen Variablen definieren 'DN der OU, die durchsucht werden soll strDN = "OU=,DC=xxx,DC=xxx,DC=xxx" 'Pfad zum Logfile, in dem die User mit Standardkennwort eingetragen werden strLogPath = "c:\logfile.txt" 'UNC-Pfad, der zum Test gemappt werden soll strTestUNC = "\\meinpc\testshare" 'Wie sieht das Standardkennwort aus? strPass = "xxxx" 'AB HIER NICHTS MEHR VERÄNDERN! '=========================================================================== Set objOU = GetObject ("LDAP://" & strDN) objOU.Filter = Array("User") Set objNet = CreateObject ("WScript.Network") Set objFso = CreateObject("Scripting.FileSystemObject") Set objTs = objFso.OpenTextFile(strLogPath, 2, True) objTs.WriteLine Now objTs.writeline("Folgende Benutzer verwenden noch " _ & "das initiale Kennwort:") Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next For Each user In objOU ' Usernamen ausgeben WScript.Echo user.Name ' Test: Laufwerk verbinden objNet.MapNetworkDrive "X:", strTestUNC, _ , user.SamAccountName, strPass ' Fehler aufgetreten? If Err.Number = 0 Then ' Nein, User protokollieren objTs.writeline(user.Samaccountname) Else ' Ja, Fehler anzeigen WScript.Echo "Fehler " & Err.number _ & " (" & Err.Description & ") " _ & "bei User: " & user.Name Err.Clear End If objNet.RemoveNetworkDrive "X:" Next

Jo geht prima! Allerdings zeigt er es nicht korrekt an. Habe schon ein User gefunden, der angeblich nicht disabled ist. In der AD ist er es aber!!! Ist natürlich doof, wenn man sich auf die Abfragen nicht verlassen kann :suspect:

Gibt es für ds* auch einen Parameter für deaktivierte Konten? Anders gefragt: Kann ich in den Befehl: dsquery user |dsget user -ln -fn -email –tel - ?inactive > C:\liste.txt noch was einfügen, damit mir zusätlich angezeigt wird, ob das Konto aktiviert ist oder deaktiviert?

OK, habe alles hin bekommen :) Nur eines verstehe ich nicht. Von allen Usern, deren Konto disabled ist, werden keine Email-Adressen angezeigt mit dsquery user |dsget user -ln -email -tel > C:\liste.txt Warum nicht?

Hey, das ist schon mal gar nicht schlecht! Geht das auch noch zusätzlich mit dem Vornamen und ich habe da ja ein Limit von Hundert! Wie bekomme ich das Limit weg? Ausserdem, wie kann ich gezielt noch die ou´s abfragen? Aber erst schon mal danke !!! Edit: Also das mit dem Vornamen und dem Limit habe ich hinbekommen. Wie bekomme ich denn am besten die Texdatei in eine Exceltabelle? Natürlich nicht mit :Copy-Paste ;) sondern als Tabelle

Hat vielleicht jemand ein Script, womit ich von allen usern einer ou emailadresse und Telefonnummer auslesen und in excel importieren kann?

Hallo, nur ist mein Problem, dass ich davon 0 Ahnung habe, aber mein Chef gerne eine Mäglichkeit hätte. eine Liste zu haben mit Email und Telefonnummer