DirectoryEntry and Remote Server Webs

[Mike]

I am trying to enumerate the webs on a remote server
using the DirectoryEntry provider for VB.NET. Here is my
code:

Try
Dim SelNode As String =
TreeConfig.Sele ctedNode.Text

Dim oSite As New
DirectoryServic es.DirectoryEnt ry("IIS://" & SelNode
& "/W3SVC")
oSite.RefreshCa che()
Dim oEntry As New
DirectoryServic es.DirectoryEnt ry

For Each oEntry In oSite.Children
If oEntry.SchemaCl assName
= "IIsWebServ er" Then
MessageBox.Show (oEntry.Invoke
("Get", "ServerComment" ))
End If
Next
Catch ex As Exception
MessageBox.Show ("Enum Err: " &
ex.Message, "Enumeratio n Error", MessageBoxButto ns.OK,
MessageBoxIcon. Error)
End Try

When I run it on a remote server I get the message "A
security package specific error occurred". When I run it
locally it works fine. Obviously this is a security
issue. I tried setting the oSite objects username and
password, but still no luck.

Anyone have any ideas on this. Another strange thing, a
coworker of mine essentially wrote the same code in C#
and it works fine....

-----Original Message-----
I am trying to enumerate the webs on a remote server
using the DirectoryEntry provider for VB.NET. Here is mycode:

Try
Dim SelNode As String =
TreeConfig.Sel ectedNode.Text

Dim oSite As New
DirectoryServi ces.DirectoryEn try("IIS://" & SelNode
& "/W3SVC")
oSite.RefreshCa che()
Dim oEntry As New
DirectoryServi ces.DirectoryEn try

For Each oEntry In oSite.Children
If oEntry.SchemaCl assName
= "IIsWebServ er" Then
MessageBox.Show (oEntry.Invoke
("Get", "ServerComment" ))
End If
Next
Catch ex As Exception
MessageBox.Show ("Enum Err: " &
ex.Message, "Enumeratio n Error", MessageBoxButto ns.OK,
MessageBoxIcon .Error)
End Try

When I run it on a remote server I get the message "A
security package specific error occurred". When I run itlocally it works fine. Obviously this is a security
issue. I tried setting the oSite objects username and
password, but still no luck.
.