CreatePrim "Sphere", "NurbsSurface"
' Apply a default shader to instantiate the material
ApplyShader
' Log the name of the default shader connected to the material Surface:
set s = SIGetMaterialShader( "Sphere", siMaterialPortSurface )
if s.Count > 0 then
For i = 0 to s.Count-1
logmessage "Material Surface shader name: " & s(i).name
Next
else
logmessage "No Material Surface shader found"
end if
'Output of the above script:
'INFO : "Material Surface shader name: Phong"