It probably won't on WIN2000 because the registries are different but I will take a look tomorrow to see which is correct (I will have access to a couple of these then).
I will let you know what I come up with.
I am simply a newbie when it comes to perl. But I am running Windows 2000 Pro. and the script worked for me.
Here is my output:
Here's the default printer for this user: hp deskjet 842c series,winspool,LPT1: