VBScript XSI rename objcet

'input a name that you want to replace

removeName = "cs_em5902_CTRL_Mocap_rig_"

replaceName = ""

'auto select object inculd remoueName

SelectObj "*"+removeName+"*"

dim list

set list = GetValue( "SelectionList" )

'rename MK_set node

if list.count > 0 then

for each maker in list

oldName = maker.Name

maker.Name = Replace(oldName, removeName, replaceName)

LogMessage maker.Name

next

end if