[W7/8.1] vbs Skript

10/12/2014 - 16:59 von Walt Gallus | Report spam
Guten Tag

Vor vielen Jahren hat mir eine gute Seele in diesem Forum das folgende
Skript geschrieben:
' Datei: RestartReminder.vbs
'
' Funktion: Startet Reminder wie gewohnt.
' Beim Beenden von Reminder kann gewàhlt
' werden, ob Reminder beendet oder neu
' gestartet werden soll.

Option Explicit
Dim WshShell,Command
Dim Return,Prompt,Title,Result

Command = "C:\Progra~1\Remind5eminder.exe"
Prompt = "Möchten Sie Reminder beenden?"
Title = "Reminder Restarter"

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 60000
While RestartReminder()
' Leere Schleife
Wend
Set WshShell = Nothing
WScript.Quit

Function RestartReminder()
Return = WshShell.Run(Command, 1, True)
Result=MsgBox(prompt,36,title)
If Result = 6 Then
RestartReminder = False
else
RestartReminder = True
end if
End Function

Es steht unter Win7 im Autostart und erfüllt seinen Zweck klaglos. Wenn
ich es unveràndert in Win 8.1 starte, kommt nach dem Booten folgende
Fehlermeldung:


Windows Script Host

Skript: C:\ProgramData\Microsoft\Windows\Start
Menu\Programs\StartUp\RestartTwixTel.vbs
Zeile: 25
Zeichen: 3
Fehler: Das System kann den angegebenen Pfad nicht finden.
Code: 80070003
Quelle: (null)
OK
-
Die einzige Änderug, die ich als Laie testweise und erfolglos
vorgenommen habe:
Command = "C:\Program Files (x86)\Remind5eminder.exe"

Die 'remeinder.exe' befindet sich unter C:\Programme
(x86)\Remind5eminder.exe

Wo liegt der Fehler?

Dank und Gruss

Walt Gallus
 

Lesen sie die antworten

#1 Hermann
10/12/2014 - 17:47 | Warnen spam
Am 10.12.2014 um 16:59 schrieb Walt Gallus:
Vor vielen Jahren hat mir eine gute Seele in diesem Forum das folgende
Skript geschrieben:
' Datei: RestartReminder.vbs
'
' Funktion: Startet Reminder wie gewohnt.
' Beim Beenden von Reminder kann gewàhlt
' werden, ob Reminder beendet oder neu
' gestartet werden soll.

Option Explicit
Dim WshShell,Command
Dim Return,Prompt,Title,Result

Command = "C:\Progra~1\Remind5eminder.exe"
Prompt = "Möchten Sie Reminder beenden?"
Title = "Reminder Restarter"

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 60000
While RestartReminder()
' Leere Schleife
Wend
Set WshShell = Nothing
WScript.Quit

Function RestartReminder()
Return = WshShell.Run(Command, 1, True)
Result=MsgBox(prompt,36,title)
If Result = 6 Then
RestartReminder = False
else
RestartReminder = True
end if
End Function

Es steht unter Win7 im Autostart und erfüllt seinen Zweck klaglos. Wenn
ich es unveràndert in Win 8.1 starte, kommt nach dem Booten folgende
Fehlermeldung:


Windows Script Host

Skript: C:\ProgramData\Microsoft\Windows\Start
Menu\Programs\StartUp\RestartTwixTel.vbs
Zeile: 25
Zeichen: 3
Fehler: Das System kann den angegebenen Pfad nicht finden.
Code: 80070003
Quelle: (null)
OK
-
Die einzige Änderug, die ich als Laie testweise und erfolglos
vorgenommen habe:
Command = "C:\Program Files (x86)\Remind5eminder.exe"

Die 'remeinder.exe' befindet sich unter C:\Programme
(x86)\Remind5eminder.exe

Wo liegt der Fehler?



Ändere:
"C:\Progra~1\Remind5eminder.exe"
in:
"C:\Progra~2\Remind5eminder.exe"

Gruß

Hermann

Ähnliche fragen