Note to self: There's a nice VBScript version here:

http://github.com/todbot/usbSearch

This is useful because it indexes all plugnplay items on the system with COM(x) in the name, which means it gets all com ports and faux com ports, not just the "real" com ports.

(He's got a bug in it though. The Regex throws an exception if the string is null so you should put an IF around it.)