Getting 80070003: Error connecting to location

[Mike Snetzko]

Hi All --

I have a website on an IIS 6.0 server and I am trying to update the settings
via asp page and vbscript. Below is the code that is supposed to retrieve
the Metapath, and it does, however it is erroring out with 80070003, Can not
find path when I am trying to get connected using the Set IIsWebVirtualDi rObj
command.

' Retrieve instance metabase path for root
dim a, a1
a=Request.Serve rVariables("INS TANCE_META_PATH ")
a1=Mid(""& a &"",4)
Response.Write "<p>" & a1 &"<p>"

On Error Resume Next
dim virtdir
virtdir="IIS://localhost" & a1 & "/"& link &""
Response.Write "<p>"& virtdir &"<p>"
Set IIsWebVirtualDi rObj=GetObject( ""& virtdir &"")
Response.Write ""& IIsWebVirtualDi rObj & "<p>"
If Err <> 0 Then
Response.Write Hex(Err.Number) & ": " & Err.Description & "<br>"
Response.Write "Error connecting to location."
End If

Thanks in advance.
Mike