800A01A8 error

I'm trying to create a shortcut with target paths set to my specifications once the program has been installed on their machine. The image they will select is set to not create a shortcut when it's installing the application. I thought it to be easier to have them run this script to create the shortcut with the correct target settings than tfor all the users to change the current target paths by hand.

I recieve a 800A01A8 error.
Line 1, Char 1
Object required: 'WshShell"

Here's the code:

Set link = WshShell.CreateShortcut(DesktopPath & "\ADT 2006.lnk")
link.Arguments = " /p ADT2006"
link.Description = "Launch Autodesk Architectural Desktop 2006"
link.IconLocation = "%SystemRoot%\Installer\{5783F2D7-0201-0409-0002-0060B0CE6BBA}\Acad_icon.exe,0"< br> link.TargetPath = """C:\Program Files\Autocad 2004\acad.exe"""
link.WindowStyle = 1
link.WorkingDirectory = "C:\Program Files\Autocad 2004"
link.Save

your code is missing this line: