Retrieving The Application Name Programatically

  • Thread starter Thread starter Mike P
  • Start date Start date
M

Mike P

Hi,

During loading of the Global.asax, I need to get back the "application name"
that is configured in IIS. I have scoured the Http classes but there does
not seem to be any way to get to it. I know in IIS 6.0, I could retrieve it
through metabas.xml but I need this solution to work on Windows 2000, IIS
5.0 as well.

Many Thanks in advance for your help

Mike
 
Mike said:
Hi,

During loading of the Global.asax, I need to get back the
"application name" that is configured in IIS. I have scoured the Http
classes but there does not seem to be any way to get to it. I know in
IIS 6.0, I could retrieve it through metabas.xml but I need this
solution to work on Windows 2000, IIS
5.0 as well.
Click to expand...

Mike,
Take a look a the Virtual Directory's AppFriendlyName property.

The following is how I created an IIS 5.x Virtual directory back in classic ASP
using VBScript:
' Create a new IIS Virtual Directory which points to the newly created Physical directory
Set oIIS = GetObject("IIS://" & sWebServerName & "/W3SVC/1/root")

' Note: the virtual directory that this ASP is ran from must have "Out-Process" un-checked,
' and "NT challenge/repsponse" must be checked, and "Anon" must be un-checked.
' Or else you will get a permission error on this line.
Set oVirtualDir = oIIS.Create("IIsWebVirtualDir", sWebVirtualDirectoryName)
oVirtualDir.Path = sWebPath
oVirtualDir.AccessRead = True
oVirtualDir.AccessWrite = False
oVirtualDir.AccessExecute = False
oVirtualDir.AuthAnonymous = False
oVirtualDir.AuthBasic = True
oVirtualDir.AuthNTLM = True
oVirtualDir.ContentIndexed = False
oVirtualDir.EnableDirBrowsing = False
oVirtualDir.AppIsolated = False
If InStr(1, oVirtualDir.DefaultDoc, "Default.asp") = 0 Then
oVirtualDir.DefaultDoc = "Default.asp, " & oVirtualDir.DefaultDoc
End If
Call oVirtualDir.AppCreate(True)
oVirtualDir.AppFriendlyName = sWebVirtualDirectoryName
Call oVirtualDir.SetInfo()
Set oVirtualDir = Nothing
Set oIIS = Nothing

--

Thanks,
Carl Prothman
Microsoft ASP.NET MVP

Hire top-notch developers at
http://www.able-consulting.com
 
Carl,
Are you using WMI to do this? I can find no other reference for doing this
than WMI.

Thx

Mike
 
Mike said:
Are you using WMI to do this? I can find no other reference for doing
this than WMI.
Click to expand...

No, I believe the code is using Active Directory Service Interfaces (ADSI)
http://msdn.microsoft.com/library/en-us/iissdk/iis/iis_adsi_provider_architecture.asp

BTW here is some VB.NET code which will get the friendly name for you.

Dim sWebServerName As String = "carl20"
Dim sWebVirtualName As String = "temp1"
Dim sWebVirtualFriendlyName As String = ""

' Create a new IIS Virtual Directory which points to the newly created Physical directory
Dim oVirtualDir As Object = GetObject("IIS://" & sWebServerName & "/W3SVC/1/root/" & sWebVirtualName)
sWebVirtualFriendlyName = oVirtualDir.AppFriendlyName

--

Thanks,
Carl Prothman
Microsoft ASP.NET MVP

Hire top-notch developers at
http://www.able-consulting.com
 
Back
Top