VBS Errorcode auswerten
Hallo, ich würde kurz Hilfe bei einem VBS Problem benötigen.
Ich habe folgendes Script:
Wenn das Alte Kennwort nicht stimmt, bekomme ich folgende Fehlermeldung:
Ist es jetzt möglich, die Code-Nr. aus dieser Meldung in der VBS Datei zu verarbeiten und die Fehlermeldung z.B. in einer Msgbox ausgeben?
So nach dem Motto:
Ist dieses so umsetzbar?
Ich Danke schonmal für die richtige Antwort
Ich habe folgendes Script:
' Kennwort Aendern
' =========================================
'On Error Resume next
Dim Container
Dim Benutzer
Dim altespw, neuespw, neuespwa, stan
altespw = "test0815"
neuespw = "test0814"
neuespwa = "test0814"
stan = "Ort"
Const BenutzerName="Vorname Nachname"
If altespw = "" Then
WScript.Echo "Das alte Passwort wurde nicht eingegeben."
Else
If neuespw = neuespwa Then
Set Benutzer = GetObject("LDAP://192.168.0.1/CN=" & BenutzerName & ",OU=Benutzer,OU=" & stan & ",OU=Standorte,DC=twoit,DC=com")
Benutzer.ChangePassword altespw, neuespw
WScript.Echo "Kennwort für Benutzer " & Benutzer.AdsPath & " wurde geändert"
Else
WScript.Echo "Die neuen Passwörter stimmen nicht überein."
End If
End if
Wenn das Alte Kennwort nicht stimmt, bekomme ich folgende Fehlermeldung:
Skript: name.vbs
Zeile: 18
Zeichen: 3
Fehler: Das angegebene Netzwerkkennwort ist falsch.
Code: 80070056
Quelle: (null)
Ist es jetzt möglich, die Code-Nr. aus dieser Meldung in der VBS Datei zu verarbeiten und die Fehlermeldung z.B. in einer Msgbox ausgeben?
So nach dem Motto:
if (code = 80070056) then
msgbox Fehlermeldung
end if
Ist dieses so umsetzbar?
Ich Danke schonmal für die richtige Antwort
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 129282
Url: https://administrator.de/contentid/129282
Ausgedruckt am: 01.11.2024 um 01:11 Uhr
2 Kommentare
Neuester Kommentar
http://www.interclasse.com/scripts/errorcode.php
Schau da mal rein - das ist ein Codeschnipsel, der die Fehlerbeschreibung zum Code ausgibt.
Schau da mal rein - das ist ein Codeschnipsel, der die Fehlerbeschreibung zum Code ausgibt.
Hallo andste72!
In etwa so:
Bei Fehler (Err.Number <> 0) Fehler-Nr und Fehlerbeschreibung ausgeben und Fehler zurücksetzen.
Gruß Dieter
In etwa so:
On Error Resume Next
If Err.Number <> 0 Then
WScript.Echo "Fehler Nr. " & Err.Number & ", " & Err.Description
Err.Clear
End if
Bei Fehler (Err.Number <> 0) Fehler-Nr und Fehlerbeschreibung ausgeben und Fehler zurücksetzen.
Gruß Dieter