www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



BenutzerAnlegenAusDatenbank.vbs Seite 248
Autor:  MichaelKreutz
E-mail:  Antworten bitte nur in das Forum!
Datum:  15.01.2004 03:33:52
Subject:  BenutzerAnlegenAusDatenbank.vbs Seite 248
Bezug zum Buch:  Windows scripting lernen
Message:  Hallo Scripting Team,

Beim Laufen des Scriptes 8.2.3 Seite BenutzerAnlegenAusDatenbank.vbs
bekomme ich den Fehler: Laufzeitfehler: Objekt erforderlich:'Container'
Mein Path sollte ok sein. Andere scripte laufen da auch. Datenbankanbindung ist auch ok.
Datenbank von CD ist auf dem selben Laufwerk. Datenbank ist ok. kann ich auslesen mit anderen script.

Danke für eine Antwort im Voraus
Michael Kreutz
' BenutzerAnlegenAusDatenbank.vbs
' Erzeugen von Benutzern aus einer Datenbank
' Autor: Sven@SConrad.de
' verwendet: ADSI, ADO
' ===============================
Option Explicit
' Variablendeklaration
Dim DatenQuelle
Dim DBConnection, SqlString, Ergebnismenge
Dim Container, Benutzer
Dim ContainerName
' Konstanten definieren
Const Verbindung="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=BenutzerDB.MDB;"
' Connection-Objekt erzeugen
Set DBConnection = CreateObject("ADODB.Connection")
' Connection öffnen
DBConnection.Open Verbindung
' Alle Benutzer verwenden
SqlString="SELECT * FROM Benutzer"
' SQL-Statement ausführen
Set Ergebnismenge = DBConnection.Execute(SqlString)

' An den Anfang des Abfrageergebnisses springen
Ergebnismenge.MoveFirst
' Bindung an Container
Set Container = GetObject("LDAP://10.0.0.1/OU=user,OU=test,DC=ww,DC=hl,DC=lan")
' Durchlaufe gesamte Datenbasis
Do While Not Ergebnismenge.eof
     ' Aufruf der Hilfsroutine
     BenutzerAnlegen ContainerName, Ergebnismenge("Fullname"),Ergebnismenge("Kennwort")     
     ' Nächsten Satz aus der Ergebnismenge holen
     Ergebnismenge.MoveNext
Loop
' Schliessen der Abfrage
Ergebnismenge.Close
' Schliessen der Verbindung
DBConnection.Close


Sub BenutzerAnlegen (ContainerName, Benutzername,Passwort)
' Hilfsoutine: Erzeugen eines Benutzerkontos unter Windows 2000
' Variablen deklarieren
Dim Container
Dim Benutzer

' Erzeugung des neuen Benutzers
Set Benutzer = Container.Create("user", "cn=" & Benutzername)
' Attribute setzen
Benutzer.Put "samAccountName", CStr(Benutzername)
' Festschreiben der Werte
Benutzer.SetInfo
' Konto aktivieren
Benutzer.AccountDisabled = True
Benutzer.SetInfo
' Kennwort des Benutzers setzen
Benutzer.SetPassword Passwort
' Meldung ausgeben
WScript.Echo "Benutzer " & Benutzer.AdsPath & " angelegt"
' Freigeben der Objekte
End Sub

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 BenutzerAnlegenAusDatenbank.vbs Seite 248 von MichaelKreutz  am 15.1.2004 3:33:52 AM
 Re: BenutzerAnlegenAusDatenbank.vbs Seite 248 von Dr. Holger Schwichtenberg  am 28.1.2004 11:08:46 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019