Hi Mike,

>>Set WshShell = WScript.CreateObject("WScript.Shell")

I think you overlook on this code, It should be:

Dim WshShell
Set WshShell = CreateObject("WScript.Shell") , otherwise it will generate an error.

Bye.