andste72
Goto Top

VBS Errorcode auswerten

Hallo, ich würde kurz Hilfe bei einem VBS Problem benötigen.

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 face-smile

Content-ID: 129282

Url: https://administrator.de/contentid/129282

Ausgedruckt am: 01.11.2024 um 01:11 Uhr

Razalduria
Razalduria 13.11.2009 um 10:23:12 Uhr
Goto Top
http://www.interclasse.com/scripts/errorcode.php

Schau da mal rein - das ist ein Codeschnipsel, der die Fehlerbeschreibung zum Code ausgibt.
76109
76109 13.11.2009 um 12:13:23 Uhr
Goto Top
Hallo andste72!

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