Problemas con Excel y vbscript

[miguelaniez]

Hola a todos tengo este codigo q abre un archivo excel que contiene una serie de nombre de maquinas, obtengo ese nombre y lo meto en la variable Server para poder usarla en el script. Cuando una maquina no se pueda conectar me saca un aviso y sigue con el script.

Mi problema es q por ejemplo la primera maquina falla al conectar, pero la segunda se q debe entrar pq esta activa y me saca el aviso igualmente de q no se puede conectar, sin embargo si pongo esta segunda maquina la primera hace todo bien. ¿Que ocurre aqui alguien me ayuda?

Código:

While objExcel.Cells(NumRow,1).Value <> ""  
	Server = objExcel.Cells(NumRow, 1).Value
	Set objSWbemServices = objSWbemLocator.ConnectServer (Server, "root\cimv2", "", "")
	
	if (Err.Number <> 0) Then
		Wscript.Echo "No se puede conectar a la maquina " & Server
	else
		Set colItems = objSWbemServices.ExecQuery("Select * from Win32_LogicalDisk")
		For Each objItem in colItems 
			wscript.echo objItem.name
		next
	end if
	NumRow = NumRow + 1 
	Set objSWbemServices = Nothing 
Wend

[miguelaniez]

Me repondo yo mismo, me faltaba limpiar o inicilaizar Err.Number para q la siguiente vez en el bucle no fuese 0.

Bastaba por poner Err.Clear para cada iteracion