codice:
<job>
<script language="VBScript">

function SendCommand(C)
WScript.Sleep 100
For x = 1 to Len(C)
WshShell.SendKeys Mid(C,x,1)
WScript.Sleep 100
Next
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
end function

set WshShell = WScript.CreateObject("WScript.Shell")
x = WshShell.Run("cmd /k")
SendCommand "Dir > test.txt"

</script>
</job>
Così ti è più chiaro ?