Anyone ever get this error ?

Run-time error '-2147221231 (80040111)':

Automation error
ClassFactory cannot supply requested class

I get this error when i am doing a Set MyShortcut = VBsObj.CreateShortcut(ShortCutPath & ".lnk")

I am only trying to create a shortcut here...and the server running this program is Windows 2000... Please advise..