option explicit
on error goto 0
dim oFs
set oFs=createobject("scripting.filesystemobject")
dim ori,nxt,i
ori= wscript.arguments(0)
if instr(ori,"%")=0 then wscript.quit
for i=1 to len(ori)
nxt=nxt&mid(ori,i,1)
if mid(ori,i,1)="%" then nxt=nxt&"%"
next
if ori<>nxt then
' msgbox ori & vbcrlf & nxt
ofs.copyfile ori , nxt
wscript.echo "simplepct """ & ori & """"
wscript.echo "doublepct """ & nxt & """"
end if