Help | Site Map
Connecting Tech Pros Worldwide
 
 
LinkBack Thread Tools
  #1  
Old July 19th, 2005, 02:20 PM
Marlon
Guest
 
Posts: n/a
Default Querying IISMimeMap .. Access is denied .. HELP!

Code posted below ( I am not sure which group to post to, but I need help)

I wrote a Windows Form Application to query the IIS MimeMap on the localhost
which worked fine.

I ran the same code in asp.net and got "Access is Denied" exception.

What is the least permissions set I should grant the aspnet account to avoid
the exception.
Or any other suggest would be fine

Thanks.

Private Function CacheMimeMaps() As Specialized.StringDictionary

#If DEBUG Then

Dim starttime As DateTime = DateTime.Now

#End If

Dim entry As DirectoryServices.DirectoryEntry

Try

Dim mimeMaps As New Specialized.StringDictionary

entry = New DirectoryServices.DirectoryEntry("IIS://localhost/MimeMap")

Dim pvcMimeMap As DirectoryServices.PropertyValueCollection =
entry.Properties("MimeMap")

For Each o As Object In pvcMimeMap

Dim mt As IISOle.IISMimeType = CType(o, IISOle.IISMimeType)

mimeMaps.Add(mt.Extension, mt.MimeType)

#If DEBUG Then

Console.WriteLine("{0} = {1}", mt.Extension, mt.MimeType)

#End If

Next

' MimeMaps were found

If mimeMaps.Count > 0 Then

Me.Cache.Add(MIMEMAP, mimeMaps, Nothing, Cache.NoAbsoluteExpiration,
Cache.NoSlidingExpiration, Caching.CacheItemPriority.Low, Nothing)

Return mimeMaps

End If

pvcMimeMap = Nothing

Catch ex As Exception ' do nothing

Stop

Finally

#If DEBUG Then

Dim endtime As DateTime = DateTime.Now

Console.WriteLine(starttime.ToString() & "." &
starttime.Millisecond.ToString())

Console.WriteLine(endtime.ToString() & "." & endtime.Millisecond.ToString())

#End If

If (Not entry Is Nothing) Then

entry.Close()

entry.Dispose()

End If

End Try

End Function




  #2  
Old July 19th, 2005, 02:21 PM
Egbert Nierop \(MVP for IIS\)
Guest
 
Posts: n/a
Default Re: Querying IISMimeMap .. Access is denied .. HELP!

Access is denied because only admins can run that code.
By default, your code runs under a process for IIS that has no
administrative rights.

--
compatible web farm Session replacement for Asp and Asp.Net
http://www.nieropwebconsult.nl/asp_session_manager.htm

"Marlon" <mreid@exhibitworks.com> wrote in message
news:%23Nv%231RAcEHA.3480@TK2MSFTNGP11.phx.gbl...[color=blue]
> Code posted below ( I am not sure which group to post to, but I need
> help)
>
> I wrote a Windows Form Application to query the IIS MimeMap on the
> localhost
> which worked fine.
>
> I ran the same code in asp.net and got "Access is Denied" exception.
>
> What is the least permissions set I should grant the aspnet account to
> avoid
> the exception.
> Or any other suggest would be fine
>
> Thanks.
>
> Private Function CacheMimeMaps() As Specialized.StringDictionary
>
> #If DEBUG Then
>
> Dim starttime As DateTime = DateTime.Now
>
> #End If
>
> Dim entry As DirectoryServices.DirectoryEntry
>
> Try
>
> Dim mimeMaps As New Specialized.StringDictionary
>
> entry = New DirectoryServices.DirectoryEntry("IIS://localhost/MimeMap")
>
> Dim pvcMimeMap As DirectoryServices.PropertyValueCollection =
> entry.Properties("MimeMap")
>
> For Each o As Object In pvcMimeMap
>
> Dim mt As IISOle.IISMimeType = CType(o, IISOle.IISMimeType)
>
> mimeMaps.Add(mt.Extension, mt.MimeType)
>
> #If DEBUG Then
>
> Console.WriteLine("{0} = {1}", mt.Extension, mt.MimeType)
>
> #End If
>
> Next
>
> ' MimeMaps were found
>
> If mimeMaps.Count > 0 Then
>
> Me.Cache.Add(MIMEMAP, mimeMaps, Nothing, Cache.NoAbsoluteExpiration,
> Cache.NoSlidingExpiration, Caching.CacheItemPriority.Low, Nothing)
>
> Return mimeMaps
>
> End If
>
> pvcMimeMap = Nothing
>
> Catch ex As Exception ' do nothing
>
> Stop
>
> Finally
>
> #If DEBUG Then
>
> Dim endtime As DateTime = DateTime.Now
>
> Console.WriteLine(starttime.ToString() & "." &
> starttime.Millisecond.ToString())
>
> Console.WriteLine(endtime.ToString() & "." &
> endtime.Millisecond.ToString())
>
> #End If
>
> If (Not entry Is Nothing) Then
>
> entry.Close()
>
> entry.Dispose()
>
> End If
>
> End Try
>
> End Function
>
>
>
>[/color]

  #3  
Old July 19th, 2005, 02:21 PM
Roger Bavaud
Guest
 
Posts: n/a
Default Re: Querying IISMimeMap .. Access is denied .. HELP!

You can try to work with Impersonation
http://support.microsoft.com/default...b;en-us;306158

Regards
Roger


"Marlon" <mreid@exhibitworks.com> wrote in message
news:%23Nv%231RAcEHA.3480@TK2MSFTNGP11.phx.gbl...[color=blue]
> Code posted below ( I am not sure which group to post to, but I need[/color]
help)[color=blue]
>
> I wrote a Windows Form Application to query the IIS MimeMap on the[/color]
localhost[color=blue]
> which worked fine.
>
> I ran the same code in asp.net and got "Access is Denied" exception.
>
> What is the least permissions set I should grant the aspnet account to[/color]
avoid[color=blue]
> the exception.
> Or any other suggest would be fine
>
> Thanks.
>
> Private Function CacheMimeMaps() As Specialized.StringDictionary
>
> #If DEBUG Then
>
> Dim starttime As DateTime = DateTime.Now
>
> #End If
>
> Dim entry As DirectoryServices.DirectoryEntry
>
> Try
>
> Dim mimeMaps As New Specialized.StringDictionary
>
> entry = New DirectoryServices.DirectoryEntry("IIS://localhost/MimeMap")
>
> Dim pvcMimeMap As DirectoryServices.PropertyValueCollection =
> entry.Properties("MimeMap")
>
> For Each o As Object In pvcMimeMap
>
> Dim mt As IISOle.IISMimeType = CType(o, IISOle.IISMimeType)
>
> mimeMaps.Add(mt.Extension, mt.MimeType)
>
> #If DEBUG Then
>
> Console.WriteLine("{0} = {1}", mt.Extension, mt.MimeType)
>
> #End If
>
> Next
>
> ' MimeMaps were found
>
> If mimeMaps.Count > 0 Then
>
> Me.Cache.Add(MIMEMAP, mimeMaps, Nothing, Cache.NoAbsoluteExpiration,
> Cache.NoSlidingExpiration, Caching.CacheItemPriority.Low, Nothing)
>
> Return mimeMaps
>
> End If
>
> pvcMimeMap = Nothing
>
> Catch ex As Exception ' do nothing
>
> Stop
>
> Finally
>
> #If DEBUG Then
>
> Dim endtime As DateTime = DateTime.Now
>
> Console.WriteLine(starttime.ToString() & "." &
> starttime.Millisecond.ToString())
>
> Console.WriteLine(endtime.ToString() & "." &[/color]
endtime.Millisecond.ToString())[color=blue]
>
> #End If
>
> If (Not entry Is Nothing) Then
>
> entry.Close()
>
> entry.Dispose()
>
> End If
>
> End Try
>
> End Function
>
>
>
>[/color]


 

Bookmarks

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are Off
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

What is Bytes?

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over network members.
Post your question now . . .
It's fast and it's free

Popular Articles