Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(".")
Set fc = f.Files
s = ""
For Each f1 in fc
	If Left(f1.name,8)="PCN-INFO" Then
		Pos = Instr(f1.name,".")
		name=Left(f1.name,Pos-1)
		fso.MoveFile f1.name, "PCNINFO"+Mid(f1.name,9)
		s = s + name + Chr(10)
	End If
Next
WScript.Echo s