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

Oh, maybe, to be honest I don't use VB or VBScript enouhg to remmeber that sort of thing, thanks for the catch!