'By Eric M. Bouse
'Tested on Win2k
'Version 0.1

Dim FSO, File, OldName, Folder, Testing
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(".")
Set Testing = New RegExp

For Each File in Folder.Files
OldName = File.Name
Testing.Pattern = "mp3"

If Testing.Test(OldName) = True Then

File.Name = "www.y-studios.net-" & OldName

End If
Next

Wscript.Echo "Renaming Complete"
Wscript.Quit