Fórum Como executar um comando que está dentro de uma String? VB.NET #511140

For bancadaatual As Integer = 1 To bancadatotal Step 1
            For maqatual As Integer = 1 To maqfinal Step 1
                
                ipnumber = String.Format("10.117." & labatual & "." & bancaatual & maqatual)
                Dim teste As PingReply = pingsender.Send(ipnumber)
                
                If teste.Status = IPStatus.Success Then
                    comando = String.Format("pctMq" & bancadaatual & maqatual& ".Image = My.Resources.Computer_On")
                    ' E aqui entraria alguma forma de executar o conteúdo da string COMANDO
                End If

            Next
        Next

Private Sub alteraricone(ByRef bancadaatual As Integer, ByRef maquinaatual As Integer)
        Dim num As Integer = bancadaatual & maquinaatual
        Select Case num
            Case 11
                pctMq11.Image = My.Resources.Computer_On
            Case 12
                pctMq12.Image = My.Resources.Computer_On
            Case 13
                pctMq13.Image = My.Resources.Computer_On
            Case 14
                pctMq14.Image = My.Resources.Computer_On
            Case 15
                pctMq15.Image = My.Resources.Computer_On
            Case 16
                pctMq16.Image = My.Resources.Computer_On

Etc...

'Antes de tudo você deve importar a biblioteca que trabalha com comandos de rede.
Imports System.Net.NetworkInformation

'Crie uma função para executar essa ação
Public Sub verificaStatus() 

'Aqui criamos uma variável booleana para armazenar se o meu computador está conectado na internet ou não. Isso pode vir a ser util para você.
'Ou seja, esta variavel vai armazenar TRUE (se o computador estiver com rede) ou FALSE (se a rede não estiver disponível).
        Dim status As Boolean = My.Computer.Network.IsAvailable 

'No meu caso eu fiz uma condição para alterar a imagem de uma picturebox para visualizar no fomulário se o meu computador está com acesso a internet ou não.
        If status = True Then
            frmControleLab.pctPC11.Image = Image.FromFile("images\computer-02.png")
        End If

'Essa parte do código é a que você está precisando. Não está difícil de entender, basta substituir o IP que eu coloquei entre aspas pelo IP que você deseja pingar.
        Dim pingsender As Ping = New Ping
        Dim teste As PingReply = pingsender.Send("10.116.1.1")

'Assim como na verificação do meu computador, eu fiz uma condição para trocar a imagem de uma picturebox caso o computador que eu pinguei responda.
        If teste.Status = IPStatus.Success Then
            frmControleLab.pctPC12.Image = My.Resources.computer_02
        End If
        
    End Sub