Forums Neueste Beiträge
 

vbs Skript

11/03/2010 - 06:59 von Walt Gallus | Report spam
Guten Tag

Vor einigen Jahren (!) hat mir ein freundlicher hier User folgendes
Skript zur Verfügung gestellt:


' 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:\C:\Program Files\Remind5eminder.exe"
' Pfad angepasst
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


Wenn ich dieses Skript unter Windows 7 ausführe, erhalte ich
folgende Fehlermeldung:

-

Windows Script Host

Skript: C:\Users\wa\AppData\Roaming\Microsoft\Windows\Start
Menu\Programs\Startup\RestartReminder.vbs
Zeile: 25
Zeichen: 3
Fehler: Das System kann die angegebene Datei nicht finden.
Code: 80070002
Quelle: (null)
OK


Was muss ich (völliger Laie) am Skript àndern?
Sorry - ich weiss, dass ich hier in der falschen NG bin. Vielleicht
aber tummelt sich der Autor des Skripts auch noch hier herum ;-).

Dank und Gruss
Walt Gallus
 

Lesen sie die antworten

#1 Ralf Breuer
11/03/2010 - 08:11 | Warnen spam
Walt Gallus schrieb:

Hallo Walt,

Command = "c:\C:\Program Files\Remind5eminder.exe"



c:\C:\ -->> C:\

Den Pfad gibt es so?

Gruß
Ralf
Ich mag kein TOFU. Siehe http://einklich.net/usenet/zitier.htm
Bei Direkt-Mails NOSPAM entfernen

Ähnliche fragen