Auto VRayHDRI / Bitmap naming script.....

[joelly3d]

Does anyone have a script that will automatically name all VRayHDRI or Bitmap input file nodes to the root name of the source file they reference? Seems like a common thing, I am sure someone has done it.
Figured I'd ask before wasting half day trying to figure it out as I am slow at programming. I have a scene with several hundred generically named files and materials and it'll help me sort it out and clean it up.

[^Lele^]

for m in (getclassinstances vrayBitmap) do ( m.name = uniquename (getfilenamefile m.hdrimapname + "_") )

[joelly3d]

Well that is quite compact! Thanks Lele.