batch swap "bitmap map" from "self illumination" to "diffuse"

not sure is there a script for this task, but if not, here is a bit of help:

-- Note: getClassInstances function was fixed in Max 2011
-- Also in Max 2011 was added new optional arguments
-- (check "getClassInstances" in the help for details)
allStdMats = getClassInstances standardMaterial

-- loop through and swap:
for m in allStdMats do (swap m.maps[1] m.maps[5])

/*
	m.maps[1] -- #diffuseMap
	m.maps[5] -- #selfIllumMap
*/