Vista - shell.application throw error on asp file

Hi
i try to run tis code on asp file :

Dim objApp
Dim objWindows, objWindow
Dim objIE

Set objApp = CreateObject("shell.application")
Set objWindows = objApp.Windows()
For i=0 to objWindows.Count - 1
Set objIEWnd = objWindows.Item(i)
If objIEWnd.LocationURL = "http://www.url.com Then
Set objIE = objIEWnd
objIE.Navigate(otherurl)
End If
Next

Set objIE = Nothing
Set objWindow = Nothing
set objWindows = Nothing
Set objApp = Nothing

ive got tis error :

"Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object "

the os is windows server 2003 ,

what is wrong ?
what can i do ?
any ideas ?

thanks in advance ,
poli