怎么用VBS修改文件名啊？

比如下边这段是用批处理写的，如果改成VBS的话，该怎样写才能实现他原本的功能呢？


if exist Music\18.ogg.8 (
rename Music\18.ogg 18.ogg.1
rename Music\18.ogg.8 18.ogg
goto st)  else (goto st)

:st

start SG7.exe
ping -n 30 127.0.0.1>nul
rename Music\18.ogg 18.ogg.8
rename Music\18.ogg.1 18.ogg
exit