Directoryservices adding virtual directory error

  • Thread starter Thread starter Glenn Leifheit
  • Start date Start date
G

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
 
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
 
Back
Top