[Resolvido] Executar o trecho várias vezes

Olá pessoal, tô precisando de uma ajuda para incrementar uma funcionalidade. Possuo uma página chamada ScanOne.asp e outra chamada ScanOneResult.asp, na primeira o usuário insere o endereço ip ou o nome netbios de uma estação (Windows) e a segunda exibe algumas informações sobre a mesma (nome, domínio, memória física, etc), até aqui tudo funciona que é uma beleza. O meu grande problema é que quero criar uma página ScanMore.asp e outra ScanMoreResult.asp para que o usuário digite na primeira endereços ip ou nomes separados por virgula e na segunda (ScanMoreResult.asp) eu pegue estes nomes e execute a pesquisa para cada um deles e exiba elas. Tentei fazer da seguinte maneira:

Resgatar o digitado e dar um split:

strComputer = Split(Request.Form("Hosts"),",")

e no trecho que qeuro repetir tentei

For Each objWMIService in strComputer

Mas não tá rolando. Abaixo o trecho que quero repetir:

CODE
<%
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _

"root\CIMV2", _

strUser, _

strPassword, _

"MS_409", _

"ntlmdomain:" + strDomain)

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_ComputerSystem",,48)

%>

<%

For Each objItem in colItems

%>

 <blockquote>

 </p>

 <table width="556" border="1" bordercolor="#FFFFFF" class="txtCorpo">

 <tr>

 <td colspan="2" class="celPontAzul">Informações básica do host</td>

 </tr>

 <tr>

 <td colspan="2"> </td>

 </tr>

 <tr>

 <td width="129" align="right" class="txtRotulo">Nome:</td>

 <td width="411" class="celMenu"><span class="txtCorpo"><%=objItem.Caption%><%CaptionCS = objItem.Caption%></span></td>

 </tr>

 <tr>

 <td align="right" class="txtRotulo">Domínio:</td>

 <td class="celMenu"><span class="txtCorpo"><%=objItem.Domain%><%DomainCS = objItem.Domain%></span></td>

 </tr>

 <tr>

 <td align="right" class="txtRotulo">Fabricante (hardware): </td>

 <td class="celMenu"><span class="txtCorpo"><%=objItem.Manufacturer%><%ManufacturerCS = objItem.Manufacturer%></span></td>

 </tr>

 <tr>

 <td align="right" class="txtRotulo">Memória física: </td>

 <td class="celMenu"><span class="txtCorpo"><%

 RAM = objItem.TotalPhysicalMemory / 1000 /1000

 RAMTotal = FormatNumber(RAM,0)

 Response.Write (RAMTotal & " MB")%>

 </span></td>

 </tr>

 

 <tr>

 <td align="right" class="txtRotulo">Sistema operacional: </td>

 <td class="celMenu">

<%

Next

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_OperatingSystem",,48)

For Each objItem in colItems

%>

 <span class="txtCorpo"><%=objItem.Caption%><%CaptionOS = objItem.Caption%>

 <%

 Next

%></span></td>

 </tr>

 <tr>

 <td align="right" class="txtRotulo">Service pack: </td>

 <td class="celMenu">

 <span class="txtCorpo"><%

 Set colItems = objWMIService.ExecQuery( _

 "SELECT * FROM Win32_OperatingSystem",,48)

For Each objItem in colItems

Response.Write(objItem.CSDVersion)

%>

<%

ServPack = objItem.CSDVersion

%>

<%

Next

%>

</span></td>

 </tr>

 <tr>

 <td align="right" class="txtRotulo"> </td>

 <td> </td>

 </tr>

 <tr>

 <td colspan="2" align="left" class="celMenu"><span class="txtCorpo" onclick="MM_openBrWindow('InsertHost.asp','Confirmação','width=450,height=450')"><a href="#">Adicionar aos meus hosts</a> | Adicionar ao grupo | Exibir informações detalhadas </span></td>

 </tr>

 </table>