|
| |
VB Skript (VBS)| vbs läuft nicht | |  | | Autor: hajosch | | Datum: 26.02.15 10:23 |
| Hallo,
folgendes Script bringt die nachfolgende Fehlernachricht:
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
Zeile 6 lautet:
CSRP = SRP.CreateRestorePoint( abfrage, 0, 100 )
In die msgbox habe ich sowohl "Eingabe", wie auch "Routine" eingegeben (ohne ").
Mein System: Windows 8.1
Wie bekomme ich das Script zum Laufen?
Gruß
hajosch | |
| Re: vbs läuft nicht | | | | Autor: powerzone3000 | | Datum: 27.02.15 14:40 |
| Um Systemwiederherstellungspunkte zu erstellen, benötigt man Administratorrechte.
Füge folgenden Schnipsel an den Anfang deines VB-Scripts, dann sollte Windows (bei aktivierter Benutzerkontensteuerung) nach der Berechtigung fragen
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" & " uac","", "runas", 1
Else
' Dein Code
End If
Beitrag wurde zuletzt am 27.02.15 um 14:41:07 editiert. | |
| Re: vbs läuft nicht | | | | Autor: hajosch | | Datum: 28.02.15 10:34 |
|
---------------------------
Info
---------------------------
Wiederherstellungspunkt 'Routine' wurde gesetzt!
---------------------------
OK
---------------------------
Stimmt nicht!!!!
In der Systemwiederherstellung wird kein Wiederherstellungspunkt
unter heutigem Datum angezeigt.
Gruß hajosch | |
| Re: vbs läuft nicht | | | | Autor: powerzone3000 | | Datum: 02.03.15 14:36 |
| Vermutlich wurde dann in den letzten 24 Stunden bereits ein Wiederherstellungspunkt erstellt.
siehe: https://msdn.microsoft.com/de-de/library/windows/desktop/aa378847%28v=vs.85%29.aspx
| Zitat: | |
If an application calls the CreateRestorePoint method to create a restore point, Windows skips creating this new restore point if any restore points have been created in the last 24 hours. The CreateRestorePoint method returns S_OK. | |
Das lässt sich aber durch einen Registryschlüssel beeinflussen:
| Zitat: | |
Developers can write applications that create the DWORD value SystemRestorePointCreationFrequency under the registry key HKLM\Software\Microsoft\Windows NT\CurrentVersion\SystemRestore. The value of this registry key can change the frequency of restore point creation. The value of this registry key can change the frequency of restore point creation.
If the application calls CreateRestorePoint to create a restore point, and the registry key value is 0, system restore does not skip creating the new restore point.
If the application calls CreateRestorePoint to create a restore point, and the registry key value is the integer N, system restore skips creating a new restore point if any restore points were created in the previous N minutes. | |
| |
| Re: vbs läuft nicht | | | | Autor: hajosch | | Datum: 06.03.15 08:44 |
| Hallo powerzone3000,
das war's! Danke.
Gruß
hajosch | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.