Linux - VBScript binary base64 decompress gen

if [ $# -lt 2 ]; then
	echo "Uso: $0 <vbscript> <arquivo[:nome]> [arquivo2[:nome2]] [...]"
	exit 1
fi

VBSCRIPT="$1"
shift

cat > $VBSCRIPT <<EOF
Option Explicit
Dim outFile
Dim base64Encoded
EOF

for file in $@; do
	if [ "$( echo $file | grep -hoa :)" != "" ]; then
		fname=$(echo $file | cut -d: -f2)
		file=$(echo $file | cut -d: -f1)
	else
		fname=$(basename $file)
	fi

	if ! test -f $file; then
		echo "ERROR - file missing: $file"
		continue
	fi

	echo "Adicionando: $file > $fname"

cat >> $VBSCRIPT << EOF
outFile = "$fname"
base64Encoded="$(cat $file | base64 -w0)"
decode	base64Encoded, outFile

EOF

done

cat >> $VBSCRIPT << EOF
private Sub decode(b64E, oF)
	dim b64D
	dim DM, EL
	dim bS

	Set DM = CreateObject("Microsoft.XMLDOM")
	Set EL = DM.createElement("tmp")
	EL.DataType = "bin.base64"
	EL.Text = b64E
	b64D = EL.NodeTypedValue

	Set bS = CreateObject("ADODB.Stream")
	bS.Type = 1
	bS.Open
	bS.Write b64D
	bS.SaveToFile oF, 2
End Sub
EOF