Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

LDAP Script als Textdatei ausgeben

Mitglied: llaprosper

llaprosper (Level 1) - Jetzt verbinden

04.04.2006, aktualisiert 05.04.2006, 5275 Aufrufe, 9 Kommentare

Ich habe hier eine Script, welches mir deaktivierte Konten im AD anzeigt. Nur muß ich jede einzelne Nachricht mit OK bestätigen.
Ich hätte gerne, das mir alle User in einer Textdatei abgelegt werden, kenne mich aber 0,0 mit Script aus. Kann mir da jemand helfen?
Das Scribt sieht so aus:

Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=xxxx,dc=com>;(objectCategory=User)" & _
";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
Do Until objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
WScript.echo objRecordset.Fields("distinguishedName") & " is disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Loop

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are disabled."

objConnection.Close
Mitglied: ketchup
04.04.2006 um 19:57 Uhr
hi


rufst du das script zufällig mit wscript bzw. direkt als XXX.vbs auf?

probier einfach "cscript XXX.vbs" aus.
und stell danach den standard scripter auf cscript (cscript /h:cscript)
dabei kannst den output umleiten "> textfile"

ansonsten müsstest du dich mit File-Objects beschäftigen.

j.
Bitte warten ..
Mitglied: Biber
04.04.2006 um 20:03 Uhr
Moin IIaprosper,

Da siehst Du mal, was Skripte ohne Doku taugen ...*gg

Aber ich bewundere immerhin Deinen Mut, ein Skript zu starten, bei dem Du nicht genau weißt, was da abgeht - von solchen Usern lebe auch ja auch *feix*.

Starte Dein Skript "irgendwoGefunden.vbs" nicht Durch Doppelklick, sondern vom CMD-Prompt oder über eine Batchdatei mit der Zeile:
cscript //nologo c:\woauchimmer\irgendwoGefunden.vbs >>c:\logs\DeactivatedUsers.log

...wobei "c:\logs\DeactivatedUsers.log" die Textdatei ist, wo dann dieser User aufgelistet sind.
c:\logs muss existieren und Pfad und Name "c:\woauchimmer\irgendwoGefunden.vbs" muss Du auch anpassen.
Wenn dann diese erste Runde geklappt hat, lies Dich mindestens zu den WScript/CSkript-Unterschieden in der Windows-eigenen Hilfe ein und hangele Dich von dort an weiter.

Gruß
Biber
Bitte warten ..
Mitglied: Dani
04.04.2006 um 20:22 Uhr
Hi,
möchtest du den Benutzername in der TXT haben oder den normalen Namen?
Ich kann es dir umschreiben....

Gruß
Dani
Bitte warten ..
Mitglied: llaprosper
05.04.2006 um 07:32 Uhr
@Dani
Ich bräuchte den normalen Namen!


@Biber
Das ist ein Script von Microsoft und dort stand natürlich wofür es ist! Soviel Mut habe ich dann doch nicht
Bitte warten ..
Mitglied: Dani
05.04.2006 um 07:41 Uhr
G' Morgen,
probier's mal mit folgenden Zeilen:

01.
Const ADS_UF_ACCOUNTDISABLE = 2 
02.
	Const ADS_UF_PASSWORD_EXPIRED = &h800000 
03.
	Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = &H6 
04.
	Const CHANGE_PASSWORD_GUID = "{ab721a53-1e2f-11d0-9819-00aa0040529b}" 
05.
 
06.
 
07.
	Set objHash = CreateObject("Scripting.Dictionary") 
08.
	objHash.Add "ADS_UF_DONT_EXPIRE_PASSWD", &h10000 
09.
 
10.
	Set objConnection = CreateObject("ADODB.Connection") 
11.
	objConnection.Open "Provider=ADsDSOObject;" 
12.
	Set objCommand = CreateObject("ADODB.Command") 
13.
	objCommand.ActiveConnection = objConnection 
14.
 
15.
	objCommand.Properties("Page Size") = 1000 
16.
	objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
17.
	 
18.
	'############################################################# 
19.
	'Dekl. für das schreiben der Textdatei 
20.
	'############################################################# 
21.
	Dim fso 
22.
	Dim TF 
23.
	 
24.
	Set fso = CreateObject("Scripting.FileSystemObject") 
25.
	Set TF = FSO.OpenTextFile("C:\benutzer.txt",8, True) 
26.
 
27.
objCommand.CommandText = _ 
28.
    "<GC://" & arrFileLines(l) & ">;(objectCategory=User)" & _ 
29.
        ";userAccountControl,distinguishedName,cn;subtree" 
30.
 
31.
Set objRecordSet = objCommand.Execute 
32.
Do Until objRecordset.EOF 
33.
 intUserAccountControl = objRecordset.Fields("userAccountControl") 
34.
 If NOT intUserAccountControl AND ADS_UF_ACCOUNTDISABLE Then 
35.
    For Each Key In objHash.Keys 		 
36.
     
37.
	'############################################################# 
38.
	'Auslesen der Infos und erzeugen des Excelinhalts 
39.
	'############################################################# 
40.
    set objuser = getObject ("LDAP://" & objRecordset.Fields("distinguishedName").value) 
41.
		 
42.
	TF.WriteLine(objuser.distinguishedName) 
43.
  	  
44.
	Next 
45.
    End If 
46.
   	objRecordset.MoveNext 
47.
	  
48.
	Loop 
49.
 
50.
objConnection.Close 
51.
TF.Close 
Diese Zeile noch anpassen:
Set TF = FSO.OpenTextFile("C:\benutzer.txt",8, True)


Gruß
Dani
Bitte warten ..
Mitglied: llaprosper
05.04.2006 um 08:29 Uhr
Guten Morgen Dani,

erst mal Danke für Deine Hilfe.
Leider klaapt das Script nicht!

Zeile:26
Zeichen:1
Fehler: Typen unverträglich: arrFileLines
Code: 800A000D
Quelle: Laufzeitfehler in Microsoft VBScript

live long and prosper
Bitte warten ..
Mitglied: Dani
05.04.2006 um 08:57 Uhr
Hi,
hast du noch die Datei "ou.txt". Die ist nämlich für das Script wichtig!!!


GRuß
DAni
Bitte warten ..
Mitglied: llaprosper
05.04.2006 um 09:24 Uhr
Na ja, ich hab´zwar noch ne OU.txt, aber was soll da drinne stehen?
Bitte warten ..
Mitglied: Dani
05.04.2006 um 09:36 Uhr
Hi,
schick mir bitte mal die 2 Dateien an administrator@familie-wydler.de

Danke!

Gruß
DAni
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen)

gelöst Frage von Luuke257Batch & Shell5 Kommentare

Hallo zusammen! Vorweg, ich bin absoluter neuling im Scripten, ich habe mir das alles nur so zusammengebastelt und versuche ...

VB for Applications

Vbs Script zum Zählen und Ausgeben von Buchstabenkombinationen in Textdatei

gelöst Frage von Freever89VB for Applications4 Kommentare

Hallo ihr, ich stehe vor einem Problem, als unbedarfter Anwender eine kleine Auswertung einer Datei erstellen zu sollen. Ich ...

Batch & Shell

PowerShell Array in Textdatei ausgeben

gelöst Frage von derhoeppiBatch & Shell2 Kommentare

Hallo, der Titel hört sich nicht allzu schwer an. Ich habe eine Foreach Schleife die Durchläuft und ein Array ...

Windows Server

Powershell array zeilenweise in Textdatei ausgeben

gelöst Frage von Peter0816Windows Server6 Kommentare

Hallo, ich habe folgendes vor: $features = Get-WindowsFeature $features = $features.name und die Ausgabe am Bildschirm erscheint auch richtig: ...

Neue Wissensbeiträge
Windows Server

SBS 2011: Installation von KB4457144 schlägt beim Reboot fehl - Von Dienst gesperrte Schriftart ursächlich

Tipp von the-buccaneer vor 2 StundenWindows Server

Moinsen zusammen! Das hat mich einige graue Haare gekostet: Ein SBS 2011 weigerte sich schon im August, das monatl. ...

Windows Netzwerk
Browser-Lags und IPv6
Erfahrungsbericht von NixVerstehen vor 8 StundenWindows Netzwerk1 Kommentar

Hallo zusammen, wir betreiben als kleines Speditionsunternehmen ein überschaubares Windows-Netzwerk mit Win10-Clients sowie einem Server 2016 Essentials als "eierlegende ...

Humor (lol)

Erstaunlich, Windows mit extremer Laufzeit (Server) lol

Tipp von mathu vor 10 StundenHumor (lol)5 Kommentare

Was es so alles gibt. :-)

Windows Netzwerk

CGM Praxisarchiv funktioniert auf Clients nach Update auf 4.14 nicht mehr

Tipp von MOS6581 vor 1 TagWindows Netzwerk

Moin, ein Kunde setzt das CGM-Praxisarchiv ein. Mehrplatzinstallation mit SQL-Server. Nachdem letzte Woche auf die 4.14 aktualisiert wurde, funktionierte ...

Heiß diskutierte Inhalte
Hyper-V
Windows Serer 2016 Standard virtualisieren
gelöst Frage von fritte87Hyper-V33 Kommentare

Hallo zusammen, ich muss für eine kleine Firma ein entsprechendes neues kleines Konzept bauen. Ich habe einen Server Standard ...

LAN, WAN, Wireless
Kombiniere mehrere 4G Router zu einem Netzwerk - Anwendung kleine LAN (10-20 Leute)
Frage von HulkTheHeroLAN, WAN, Wireless24 Kommentare

Guten Mittag liebes Administrator - Fourm, ich hoffe ich habe das richtige Thema ausgewählt - ansonsten bitte gerne verschieben ...

Windows Server
Fileserver von 2012 R2 auf 2012R2
gelöst Frage von ThabeusWindows Server23 Kommentare

Moin moin, leider war in der Vergangenheit der Fokus des Betriebs nicht auf Langfristigkeit ausgelegt. Daher stehe ich jetzt ...

Router & Routing
Größere Zahl VPN-Verbindungen mit Fritz-Box einrichten
Frage von miscmikeRouter & Routing15 Kommentare

Hallo Zusammen, ich supporte verschiedene Kunden mit bestehenden LAN-LAN-Kopplungen via FritzBox (7490, FritzOS 7.01) . Anwendungen sind z.B. Kaspersky-KSC ...