Cannot create ActiveX component. with GetObject

[prowla2003]

Hi,

I'm still new to this so any help will be appreciated.

 

I have a asp function that I want to copy over to aspx. the function finds the port that a particular web server instance is running on.

 

this is the asp

---------------------------------------------

function getServerBinding()

dim objWebSite

dim vData

dim sReturn

 

set objWebSite = GetObject("IIS://localhost/" & mid(Request.ServerVariables("INSTANCE_META_PATH"),5))

vData = objWebSite.ServerBindings

 

if typename(vdata) = "Variant()" then

sReturn = vData(0)

else

sReturn = vData

end if

 

getServerBinding = replace(mid(sReturn,instr(sReturn,":")+1),":","")

 

end function

--------------------------------------------

 

 

in aspx

 

I get Cant create Activex component on the GetObject line

-------------------------------------------------

 

Private Function getServerBinding() As String

 

Dim objWebSite As Object

Dim vData As Array

Dim sReturn As String

 

Dim sMetaPath As String

Dim sObject As String

 

 

sMetaPath = Request.ServerVariables("INSTANCE_META_PATH")

sMetaPath = Mid(sMetaPath, 5)

sObject = "IIS://localhost/" & sMetaPath

 

objWebSite = GetObject(, sObject)

 

'vData = objWebSite.ServerBindings

 

'If TypeName(vData) = "Variant()" Then

' sReturn = vData(0)

' Else

' sReturn = vData

'End If

 

getServerBinding = Replace(Mid(sReturn, InStr(sReturn, ":") + 1), ":", "")

 

End Function

--------------------------------------------------

 

 

 

I found this bit of code as an explanation for a similar problem but dont know how to use it in my case..

 

'Dim typeShell As Type = Type.GetTypeFromProgID("Shell.Application")

'Dim objShell As Object = Activator.CreateInstance(typeShell)

'Dim o As Object = typeShell.InvokeMember("Windows", Reflection.BindingFlags.InvokeMethod, Nothing, objShell, Nothing)

'Dim obIe As Object

'For Each obIe In o

'obIe.GetType.InvokeMember("Quit", Reflection.BindingFlags.InvokeMethod, Nothing, obIe, Nothing)

'Next

 

Thanks for any help...