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

Error abfangen

Mitglied: LordShelmchen

LordShelmchen (Level 1) - Jetzt verbinden

19.05.2008, aktualisiert 28.05.2008, 6630 Aufrufe, 2 Kommentare

Moin Moin,

ich habe ein kleines VB Script geschrieben, damit Benutzer auf einem Terminalserver (Citrix Published App) ihr Domänenkennwort ändern können.

Hier der entsprechende Teil des Scriptes:

01.
'Verbindung zum AD aufbauen 
02.
Set objConnection = CreateObject("ADODB.Connection") 
03.
Set objCommand    = CreateObject("ADODB.Command") 
04.
Set objRootDSE = GetObject("LDAP://RootDSE") 
05.
strDNSDomain = objRootDSE.Get("defaultNamingContext") 
06.
objConnection.Open "Provider=ADsDSOObject;" 
07.
objCommand.ActiveConnection = objConnection 
08.
objCommand.CommandText = "<LDAP://" & strDNSDomain & ">;(&(objectCategory=User)(samAccountName=" & samAccountName & "));distinguishedName;subtree" 
09.
 
10.
' Kennwort und Kennwort aendern setzen, wenn der Benutzer gefunden wurde 
11.
Set objRecordset = objCommand.Execute 
12.
If objRecordset.RecordCount = 1 Then     
13.
	Set objUser = GetObject _ 
14.
	    ("LDAP://" & objRecordSet.fields("distinguishedName")) 
15.
	objUser.ChangePassword AltesKennwort, NeuesKennwort 
16.
 
17.
end If
Die entsprechenden Variablen werden vorher mittels Inputbox gefüllt.

Wie kann ich da jetzt Fehler abfangen?

Hier kann es dem Benutzer passieren das er ein nicht erlaubtes Kennwort verwendet (diverse Settings aktiv). Dann bricht die Anwendung direkt ab. Jedoch kann ich den Returncode nicht abfangen, das Script wird einfach beendet.

Grüße
LordShelmchen
Mitglied: SvenGuenter
21.05.2008 um 16:41 Uhr
01.
On Error Goto Errorhandler 
02.
'Verbindung zum AD aufbauen 
03.
Set objConnection = CreateObject("ADODB.Connection") 
04.
Set objCommand    = CreateObject("ADODB.Command") 
05.
Set objRootDSE = GetObject("LDAP://RootDSE") 
06.
strDNSDomain = objRootDSE.Get("defaultNamingContext") 
07.
objConnection.Open "Provider=ADsDSOObject;" 
08.
objCommand.ActiveConnection = objConnection 
09.
objCommand.CommandText = "<LDAP://" & strDNSDomain & ">;(&(objectCategory=User)(samAccountName=" & samAccountName & "));distinguishedName;subtree" 
10.
 
11.
' Kennwort und Kennwort aendern setzen, wenn der Benutzer gefunden wurde 
12.
Set objRecordset = objCommand.Execute 
13.
If objRecordset.RecordCount = 1 Then     
14.
	Set objUser = GetObject _ 
15.
	    ("LDAP://" & objRecordSet.fields("distinguishedName")) 
16.
	objUser.ChangePassword AltesKennwort, NeuesKennwort 
17.
 
18.
end If 
19.
 
20.
errorhandler: 
21.
msgbox(Err.Description) 
22.
 
Gruß

Sven
Bitte warten ..
Mitglied: LordShelmchen
28.05.2008 um 15:31 Uhr
Danke für die Antwort,

aber leider bekomme ich dann einen

"C:\Programme\newpwdusr.vbs(24, 15) Kompilierungsfehler in Microsoft VBScript: Syntaxfehler"

Grüße
LordShelmchen
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Error abfangen und in Text Datei schreiben

gelöst Frage von mr.kkevBatch & Shell3 Kommentare

Guten Abend Experten Ausgangslage: Ich habe ein Skript, welches Daten aus einer Txt Datei liest und diese überprüft. Dann ...

Visual Studio

Tastatureingaben abfangen

gelöst Frage von joehuabaVisual Studio7 Kommentare

Hallo Zusammen, ich hab folgendes Problem: Ich fange mit einem Programm bestimmte Tastenkombinationen ab. Das funktioniert auch soweit. Allerdings ...

Viren und Trojaner

Ransomware abfangen . Diskusion

gelöst Frage von schicksalViren und Trojaner8 Kommentare

Hallo miteinander. Ich grüble gerade mit dem Erpressertrojaner Problem. Ich bin zwar Programmiermäßig ein DAU aber trotzdem. Deshalb: Ist ...

Netzwerke

Netzwerktraffic von Gerät abfangen

gelöst Frage von Sparx82Netzwerke11 Kommentare

Hallo zusammen Ich habe bei mir folgende Netzwerkkonfiguration (nur ein Auszug der relevanten Geräte): Die Fritzbox ist der Zugang ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 12 StundenErkennung und -Abwehr1 Kommentar

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 19 StundenVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 2 TagenDrucker und Scanner3 Kommentare

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 3 TagenRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Heiß diskutierte Inhalte
Microsoft
VPN Verbindung kann nicht aufgebaut werden
Frage von AlexderITlerMicrosoft35 Kommentare

Hallo, Ich möchte an einem unserer PCs in unserer Tochterfirma eine VPN zu unserem Netzwerk einrichten. Das schlägt allerdings ...

Windows Server
Domäne einsilbig mit nur einem Namen benannt - sowie AD und MX auf einer VM Kardinalsfehler?
Frage von TomTestWindows Server27 Kommentare

Hallo liebe Freunde gepflegter Probleme, seit kurzem soll ich eine Domäne verwalten die zuvor von einem IT-Dienstleister erstellt und ...

Datenbanken
MySQL Datenbank Import Aufgabe für mehrere .csv dateien
gelöst Frage von Marcel1989Datenbanken19 Kommentare

Hi, ich komm nicht weiter. Ich hab auf einem Windows Server 2012 r2 eine MariaDB/MySQL laufen. Nun soll diese ...

DNS
Gibt es eine Art DNS Proxy?
Frage von icepietDNS15 Kommentare

Hallo Nerds, Ich würde gerne folgendes machen: ts.domain.de:3389 soll auf 1.2.3.4:3389 auflösen ts2.domain.de:3389 soll auf 1.2.3.4:3390 auflösen Gibt es ...