2
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 ifWenn 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 ifIst dieses so umsetzbar?
Ich Danke schonmal für die richtige Antwort
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 129282
Url: https://administrator.de/forum/vbs-errorcode-auswerten-129282.html
Ausgedruckt am: 22.12.2024 um 19:12 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 ifBei Fehler (Err.Number <> 0) Fehler-Nr und Fehlerbeschreibung ausgeben und Fehler zurücksetzen.
Gruß Dieter
