列出所有的网站，文本框

Question

代码示例

Imports System.ServiceProcess 
Imports System.Management 
Imports System.Text.RegularExpressions 
Imports System.Net.Sockets.TcpListener 
Imports System.Text 
Imports System.Net.NetworkInformation 
Imports System 
Imports System.Collections.Generic 
Imports System.Diagnostics 
Imports System.Net 
Imports System.Reflection 
Imports System.Net.Sockets 
Imports System.IO 
Imports Microsoft.Web.Administration 
Imports Microsoft.Web.Management 



Private Sub GetAllSites() 
    Dim iisManager As New ServerManager() 
    Dim sitename As ArrayList = New ArrayList() 
    sitename.Add(iisManager.Sites) 
    For Each site As Object In sitename 
     ListBox1.Items.Add(site) 
    Next 
End Sub 

什么，我试图做的是名单上的本地框运行在IIS中的所有站点，列表框最好在数组中。

当代码执行它写道：“（集合）”

如果在这里我可能是想错了，将不胜感激任何人都可以告诉。

Answer 1

试试这个应该工作

Private Sub GetAllSites() 
    Dim iisManager As New ServerManager() 
    For Each sitename In iisManager.Sites 
     ListBox10.Items.Add(sitename) 
    Next 



End Sub