Re: User auflisten

From: Marco Heilmann (anonymous_at_discussions.microsoft.com)
Date: 08/10/04

  • Next message: Roland Stirnimann: "Entfernten Prozess starten" 
    Date: Tue, 10 Aug 2004 10:02:23 -0700

    Hallo Robert,

    >-----Originalnachricht-----
    >Hi,
    >
    >nachfolgendes Script kannst du mal zu einer VBS Datei
    machen; Mit dem Befehl
    >user.setinfo kannst du auch Benutzereigenschaften im AD
    per Script anpassen,
    >insbesondere für Exchangeserver sehr hilfreich.
    >
    >Gruß
    >
    >Robert
    >
    >
    >Schnipp --------->
    >
    >Option Explicit
    >
    >'Konstanten müssen angepasst werden
    >
    >Const LDAP
    = "LDAP://MeinDomainController/OU=User,DC=MeineDNSDomain,D
    C=de"
    >
    >Const Logfile = "c:\ADO.LOG"
    >
    >
    >'###################################
    >'Logdatei öffnen und referenzieren
    >
    >Const ForAppending = 8
    >
    >Dim fso, fi, objDomain, user ' Objektvariable
    >
    >' Erstelle neues FileSystemObject-Objekt, welches wir
    >' zum Zugriff auf das Dateisystem brauchen.
    >
    >Set fso = CreateObject("Scripting.FileSystemObject")
    >' prüfe, ob die Datei existiert
    >
    >Set fi = fso.OpenTextFile(Logfile, _
    > ForAppending, true)
    >
    >fi.WriteLine ("c by Robert Reisacher")
    >fi.WriteLine ("Dieses Script liest Benutzer")
    >fi.WriteLine ("im Active Directory")
    >fi.WriteLine ("------------------------------------------
    ---")
    >fi.WriteLine (" ")
    >fi.WriteLine (Logfile & " ...als Logfile angelegt")
    >fi.WriteLine ("------------------------------------------
    ---")
    >fi.WriteLine (" ")
    >'###################################
    >'LDAP öffnen und referenzieren
    >
    >
    >set objDomain = GetObject(LDAP)
    >
    >fi.WriteLine (LDAP & " ...als LDAP-Zugriff angelegt")
    >fi.WriteLine ("------------------------------------------
    ---")
    >fi.WriteLine (" ")
    >
    >
    >objDomain.Filter = array("user")
    >
    >'Einlesen und ausgeben
    >
    >for each user in objDomain
    >
    >
    >
    >fi.WriteLine (user.name & " ... im ADO gefunden")
    >
    >fi.WriteLine ( )
    >
    >next
    >
    > Set fi = Nothing
    >
    >WScript.Echo "Logfile " & Logfile & " angelegt."
    >
    >
    >WScript.Quit ' Skript beenden
    >'*** Ende
    >
    ><---------- Schnapp!!
    >

    Danke für Deine Hilfe!
    Kann man den Domänen Controller eigentlich auch als
    Parameter übergeben um die Abfrage variabel zu halten?
    Kannst Du mir da auch weiterhelfen?

    Grüße
    Marco

  • Next message: Roland Stirnimann: "Entfernten Prozess starten"

    Relevant Pages

    • can not log into a windows machine connected to a domain managed by samba/ldap
      ... by samba to create the entry in ldap when a machine joins the domain ... I have changed "smb.conf" so it calls a personal script instead of ... Once the this problem has been solved, I could not log into the windows ...
      (Debian-User)
    • Re: LDAP be killing me. I need a good step by step
      ... I wrote a perl script to parse this and put it into a valid ldif format: ... Thanks for your script, which I shall study. ... For example, I use kmail, which claims to understand LDAP. ... Address Book clients such as Kontact, ...
      (Fedora)
    • Re: How can I add trusted groups to DL-groups with dsmod or other
      ... LDAP interface, there is NO DN that points to anything in the NT domains. ... > I am not a script specialist, normaly I use cmd-scripts with command> line tools like dsmod but I think my problem needs a special script> solution. ...
      (microsoft.public.windows.server.active_directory)
    • shellscript - verzeichnis überwachen
      ... Diese werden anschließend mit neuen berechtigungen versehen. ... Das Script funktioniert auch so wie es soll, bis auf eine Kleinigkeit, bei ... Also sobald ein user eine Datei hoch lädt werden die Berechtigungen auch ... dirlist> /tmp/1285.tmp ...
      (de.comp.os.unix.linux.misc)
    • Re: removing the "password never expires" setting from AD accounts
      ... The reason you are converting from the LDAP form to the WinNT form is so you ... If you need to convert from LDAP to WinNT form, ... Now I'm trying to convert this script to work on ... > attempt to translate line 8 for use with Active Directory accounts. ...
      (microsoft.public.scripting.vbscript)