If responde_al_ping(StrEquipo) then
'Fichero Log que almacena los Equipos que se van apagando
For Each obj In ou
objConsulta_PING2.WriteLine (StrEquipo & TabStop & obj.managedby & " " & "SIIIIII PING")
Next
For Each obj In ou
If obj.managedby <> "" Then '<- Si obj.managedby es distinto de nada
Dim sN()
sN = Split(obj.managedby, ",")
sN = Split(sN(0), "=")
objConsulta_PING2.WriteLine (StrEquipo & TabStop & UCase(sN(1)) & " " & "Hace PING" & vbNewLine)
End If
Next
else
objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
end if
Loop
Me saca esto directamente:
MIO CN=paloma,CN=Users,DC=palo,DC=age SIIIIII PING
MIO CN=Dani Alejo,CN=Users,DC=palo,DC=age SIIIIII PING
MIO CN=Dani Alejo,CN=Users,DC=palo,DC=age SIIIIII PING
MIO1 No se ha podido apagar
MIO2 No se ha podido apagar
Ves? No hace ni siquiera tu codigo