System: vbs-script läuft nicht

Hallo,



das folgende Script 'SystemprüfpunktErst.vbs' endet mit dem darunter kopierten Fehlerhinweis.

"Eingabe" oder "Routine" (jeweils ohne ") in der Inputbox erzeugen den gleichen Fehler.

Kann jemand helfen?



Set SRP = GetObject( "winmgmts:\\.\root\default:Systemrestore" )

abfrage = inputbox("Geben Sie bitte einen Namen für den Wiederherstellungspunkt ein: ", "Eingabe", "Routine")

if abfrage = "" then

antwort1 = msgbox ("Falsche Eingabe, oder Feld leer!", vbOKonly + vbExclamation,"Fehler")

else

CSRP = SRP.CreateRestorePoint( abfrage, 0, 100 )

antwort2 = msgbox ("Wiederherstellungspunkt '" & abfrage & "' wurde gesetzt!", vbOKonly + vbInformation,"Info")

end if







---------------------------

Windows Script Host

---------------------------

Skript: H:\Batch-Win8\SystemprüfpunktErst.vbs

Zeile: 6

Zeichen: 1

Fehler: Zugriff verweigert.

Code: 80041003

Quelle: SWbemObjectEx



Gruß

hajosch

System: vbs-script läuft nicht