VB-Script Passwörter

From: Jörg Bremer (anonymous_at_discussions.microsoft.com)
Date: 08/14/04 

Date: Sat, 14 Aug 2004 00:44:32 -0700

Hallo zusammen,

wir mussten auf unserem Server (Win 2003 Server) alle
Passwörter zurücksetzen und haben dazu folgendes Script
benutzt:

****
'Setzt Passwörter in angegebenem LDAP-Container
'(c) by Jörg Vosse
Option Explicit

Dim LDAP_Object

LDAP_Object = "LDAP://OU=USERNEU,DC=Stadt-
Bergheim,DC=local"

Dim ou
Set ou = GetObject(LDAP_Object)

'Nur Benutzer in der OU
ou.Filter = Array("user")

Dim user
Dim liste
liste = "Passwortänderung bei:" & vbcr
For Each user In ou
        liste = liste & user.name & vbcr
        user.SetPassword "bergheim-800"
next

msgbox liste,,LDAP_Object
***

Leider sind dadurch alle Computerkonten zerschossen worden
und man kann sich nicht mehr anmelden. Nehme ich das Konto
aus der Domäne und wieder rein so gehts wieder.

Hat jemand einen Rat???

Vielen Dank schonmal

Jörg

Relevant Pages