VBS mit Batch erstellen und aufrufen

Hab mich von der Geschichte mit der X-Files theme ispirieren lassen, und wollte so etwas als Batch schreiben.
Hatte vor die Batch durch ein VbScript "Unsichtbar" laufen zu lassen.
Das Script sieht so aus:

Code:

---

Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run """Batchdatei.bat""",0,True

---

Wenn ich das als .vbs speicher, und damit miene Batch datei aufrufe, klappt alles super.

Aber ich möchte, dass das VbScript mit der Batch erstellt wird, und dann auch gestartet wird ^^. Sozusagen alles in einer Datei.

Jedoch weiß ich nicht wie ich das mit mehreren Zeilen mache.

Code:

---

echo >Horror1.vbs Set WshShell = WScript.CreateObject( "WScript.Shell" )
echo >>Horror1.vbs WshShell.Run """Batchdatei.bat""",0,True

start "Horror1.vbs"

Restliche Batchcode

---

So klappt es nicht..

Aber wenn das Vbs gestartet wird, müsste es ja die Bat ab einer bestimmten Zeile starten, damit keine Endlosschleife entsteht.

Kann mir da einer weiter helfen ?^^

Chemical

edit: um die endlosschleife zu umgehen, könnte man doch auch einen Befehl benutzen, der die ersten Zeilen löscht, das Vbs erstellen.