Update sample5.vb (#956)

* Update sample5.vb

Correct VBS code (current is JavaScript).

* Update iis/configuration/moduleProviders/index/samples/sample5.vb

Correcting back `moduleProvidersCollection`

* Apply suggestions from code review

Fixed my error, ensured `modulesSection` is used throughout.

* Rename sample5.vb to sample5.vbs

* Update index.md

Updated link for sample5.vbs

---------

Co-authored-by: Wade Pickett <[email protected]>

iis/configuration/moduleProviders/index.md

@@ -101,4 +101,4 @@ The following code examples add a managed module provider named ContosoProvider
 
 ### VBScript
 
-[!code-vb[Main](index/samples/sample5.vb)]
+[!code-vb[Main](index/samples/sample5.vbs)]

iis/configuration/moduleProviders/index/samples/sample5.vbs

@@ -0,0 +1,12 @@
+Set adminManager = WScript.CreateObject("Microsoft.ApplicationHost.WritableAdminManager")
+adminManager.CommitPath = "MACHINE/WEBROOT"
+adminManager.SetMetadata "pathMapper", "AdministrationConfig"
+Set modulesSection = adminManager.GetAdminSection("modules", "MACHINE/WEBROOT")
+
+Set moduleProvidersCollection = modulesSection.Collection
+Set addElement = moduleProvidersCollection.CreateNewElement("add")
+addElement.Properties.Item("name").Value = "ContosoProvider"
+addElement.Properties.Item("type").Value = "Contoso.Provider, System.Web, Version=1.0.0.0, Culture=neutral, PublicKeyToken=426f62526f636b73"
+moduleProvidersCollection.AddElement(addElement)
+
+adminManager.CommitChanges()