BinaryExtractor.vbs

sourceFile  = "e:\dos games\strange game.dsk"
startOffset = 0
dataLength  = 10240
destFile    = "d:\data\output.bin"

set fs = createobject("scripting.filesystemobject")
set fi = fs.opentextfile(sourceFile)
set fo = fs.createtextfile(destFile, true)
if startOffset > 0 then fi.skip startOffset
fo.write fi.read(dataLength)
fo.close
fi.close