Converting vbscript to C#

Set adminManager = createObject("Microsoft.ApplicationHost.WritableAdminManager")
adminManager.CommitPath = "MACHINE/WEBROOT/APPHOST"
Set sitesSection = adminManager.GetAdminSection("system.applicationHost/sites", "MACHINE/WEBROOT/APPHOST")
Set sitesCollection = sitesSection.Collection

siteElementPos=FindElement(sitesCollection,"site",Array("name","TestSite"))

If(siteElementPos=-1) Then
WScript.Echo "Element not found"
WScript.Quit
End If

Set siteElement = sitesCollection.Item("siteElementPos)
Set siteCollection = siteElement.Collection

appElementPos=FindElement(siteCollection,"application",Array("path","/TestApp"))

If(appElementpos>-1) Then
siteCollection.DeleteElement(appElementPos)
End If

Set ApplicationElement = siteCollection.CreateNewElement("application")
ApplicationElement.Properties.Item("path").Value = "/TestApp"
ApplicationElement.Properties.Item("applicationPool").Value ="Win32AppPool"

Set ApplicationCollection = ApplicationElement.Collection

Set virtualDirectoryElement = applicationCollection.CreateNewElement("virtualDirectory")
virtualDirectoryElement.Properties.Item("path").Value = "/"
virtualDirectoryElement.Properties.Item("physicalPath").Value = "C:\Inetpub\wwwroot\TestApp"
ApplicationCollection.AddElement(virtualDirectoryElement)
siteCollection.AddElement(ApplicationElement)
adminManager.CommitChanges()

Function FindElement(collection,elementTagName,valuesToMatch)

For i=0 To CInt(collection.Count) -1

Set element=collection.Item(i)
if(element.Name=elementTagName Then
matches=True

For iVal=0 To UBound(valuesToMatch) Step 2

Set prop=element.GetPropertyByName(valuesToMatch(iVal))
value=prop.Value

If Not value=Null Then
value=CStr(Value)
End If

If Not value=valuesToMatch(iVal +1) Then
matches=False
Exit For
End If

Next

If matches Then
	Exit For
      End If
End If
Next

If matches Then

	FindElement=i
 Else

	FindElement=-1
End If

End Function

Select allOpen in new window