PING T
Olá galera. Preciso efetuar um ping /t de uma lista de ip cadastrados em um db carregados por uma flexgrid
estou tentando fazer assim:
Set Tbip = New ADODB.Recordset
strSQL = [Ô]Select * FROM IPs Where Ip=[ô][Ô] & [Ô]msFlexgrid.TextMatrix(msFlexgrid.Row, 1)[Ô] & [Ô][ô][Ô]
Tbip .Open strSQL, Conexao, adOpenStatic, adLockOptimistic, adCmdText
Tbip .MoveFirst
Do While Not Tbip .EOF
[ô]aqui efetuar o ping
Tbip .MoveNext
Loop
se for true retorna sim else não
Set Tbip = Nothing
so o comando ping que não consigo fazer.
estou tentando fazer assim:
Set Tbip = New ADODB.Recordset
strSQL = [Ô]Select * FROM IPs Where Ip=[ô][Ô] & [Ô]msFlexgrid.TextMatrix(msFlexgrid.Row, 1)[Ô] & [Ô][ô][Ô]
Tbip .Open strSQL, Conexao, adOpenStatic, adLockOptimistic, adCmdText
Tbip .MoveFirst
Do While Not Tbip .EOF
[ô]aqui efetuar o ping
Tbip .MoveNext
Loop
se for true retorna sim else não
Set Tbip = Nothing
so o comando ping que não consigo fazer.
Aqui tem a resposta:
http://support.microsoft.com/kb/300197
Mas vê se essa gambiarra serve:
1-Chama o cmd pelo shell, executando o ping, direcionando para um arquivo texto:
Shell [Ô]cmd.exe /c ping 192.168.0.1 -t >> c:\arquivo.txt[Ô]
2-Usa a função de manipulação de arquivos do VB6 (pra ler o conteúdo desse arquivo gerado).
Leitura recomendada
Mas se quiser enfrentar o KB infinito lá em cima...
Abraço!
http://support.microsoft.com/kb/300197
Mas vê se essa gambiarra serve:
1-Chama o cmd pelo shell, executando o ping, direcionando para um arquivo texto:
Shell [Ô]cmd.exe /c ping 192.168.0.1 -t >> c:\arquivo.txt[Ô]
2-Usa a função de manipulação de arquivos do VB6 (pra ler o conteúdo desse arquivo gerado).
Leitura recomendada
Mas se quiser enfrentar o KB infinito lá em cima...
Abraço!
Ah.. vê isso também:
http://msdn.microsoft.com/en-us/library/aa394350.aspx
http://msdn.microsoft.com/en-us/library/aa394350.aspx
Tópico encerrado , respostas não são mais permitidas