Option Explicit
 
Dim oFSO
Dim oDatei
 
Set oFSO = CreateObject("Scripting.FileSystemObjet)
Set oDatei = FSO.CreateTextFile("\gogogo.bat", True)
' True heißt das eine evtl. vorhandene Datei überschrieben werden darf
 
oDatei.WriteLine "ping www.web.de -t"
 
oDatei.Close
 
VBSript.Quit

Option Explicit
 
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd \gogogo.bat"
' cmd ist notwendig, damit man auch sieht, was die BATCH-Datei macht
 
Set oShell = Nothing