列出所有的網站，文本框

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