Dim DirectoryEntry As New System.DirectoryServices.DirectoryEntry _
( _
String.Format _
( _
"IIS:\\\\127.0.0.1\\W3SVC\\1\\Root\\{0}", VirtualDirectoryName _
) _
)
DirectoryEntry.Properties("AuthAnonymous")(0) = True
DirectoryEntry.CommitChanges()