I found that I had to remove this code when tesing here as there are profiles with a "." in the name.

If ($file<>".")

I'll try to take a further look at your example Christopher at work and see how it works out.

Does it also support the NT4 profiles?

Wasn't really trying to Golf it down so much as get it to actually work correctly.
As for SMS, I'm sure that not the only application out there that doesn't appreciate a profile just being rudely removed.

Also, I've found instances of profiles that were not in the Registry so I've stopped relying on the registry as the source of determining all profiles.