Directoryservices adding virtual directory error

[Glenn Leifheit]

I am recieving the following error: Unknown error (0x80005000) when trying
to add a virtual directory. Any help would be appreciated, my code follows.

Thanks

Glenn

Sub create(ByVal strComputer As String, ByVal strProject As String)

Dim strIISPath As String
strIISPath = "IIS:\\P88728\W3SVC\1\ROOT\"
Dim objIISDE As DirectoryEntry
Dim objIISDC As DirectoryEntries
Dim objVDir As DirectoryEntry
objIISDE = New DirectoryServices.DirectoryEntry(strIISPath)
objIISDC = objIISDE.Children
objVDir = objIISDC.Add("test", objIISDE.SchemaClassName())
objVDir.CommitChanges()
objVDir.Properties("Path")(0) = "c:\temp"
objVDir.CommitChanges()

End Sub

[Fergus Cooney]

Hi Glenn,

You'd be surprised at the power of Google. I entered 0x80005000 into the
search bar and got
http://support.microsoft.com/?kbid=324433

Simple when you know how. ;-)

Regards,
Fergus

[Glenn D. Leifheit]

Thanks for the response. unfortunatly, that does not fix the issue. A
little more on my environment: I'm testing this on an XP Pro SP1 Box, there
is no Message Queing going on. I am also running this just on one box at
this point. Thanks.

Glenn
"Fergus Cooney" <fi******@tesco.net> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

Hi Glenn,

You'd be surprised at the power of Google. I entered 0x80005000 into the search bar and got
http://support.microsoft.com/?kbid=324433

Simple when you know how. ;-)

Regards,
Fergus