The WorkingDirectory property provides the working directory of a shortcut object.
WshShortcut.WorkingDirectory = strWorkingDirectory