Set wshshell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
    ' dies ist der Konsolenbefehl, der vom Skript verwendet werden
    ' soll:
    ' %COMSPEC% /C öffnet eine Konsole
    ' ping(hier schreibst du dann deinen Befehl rein)
    ' > leitet das Ergebnis in die Antwortdatei um
 kommando = "%comspec% /c ping " & ipadresse & "> C:\antwort.txt"   
    ' Konsolenbefehl ausführen, Fenster unsichtbar halten (0) und
    ' auf die Ausführung warten (true)
wshshell.run kommando, 0, True