Here is a vbscript version: http://www.microsoft.com/technet/scriptcenter/resources/qanda/may05/hey0512.mspx
It seems like to me this has been discussed before... you might do a little digging in the board search on some of the keywords within the script to see if someone has already converted it to kix.