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()
No comments