Only on Experts-Exchange: Sign-up for a free-trial and we'll send you your permanent license!
Here is what you get: 30 Nodes | Unlimited Sensors | No Time Restrictions | Absolutely FREE!
Act now. This offer ends July 14, 2017.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'hourglass System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim network As Object Dim sw As New StreamWriter(txtPath.Text) blnStop = False network = CreateObject("WScript.Network") 'app pool plus housekeeping Dim wmiService As Object, strComputer As String, locatorObj As Object strComputer = "." locatorObj = CreateObject("WbemScripting.SWbemLocator") wmiService = locatorObj.ConnectServer(strComputer, "root/MicrosoftIISv2") Dim applicationPools As Object applicationPools = wmiService.ExecQuery("Select * From IIsApplicationPool " & _ "Where Name LIKE 'W3SVC/AppPools/%'") 'Sites Dim wmiSites As Object wmiSites = wmiService.ExecQuery("SELECT * FROM IIsWebVirtualDirSetting") ', , 48) Dim objItem As Object For Each objItem In wmiSites Debug.Print(objItem.AppFriendlyName & " = ") Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.