Visual Basic.NET - Ing

   
Vista:

Ing

Publicado por Wilmer Ramirez (1 intervención) el 21/12/2009 16:31:27
Tengo el siguiente codigo que abre una ventana de "Simbolo de sistema (cmd.exe)" y hace una solicitud SNMP a un servidor:

Dim WshShell As Object
Dim TempFile As Object
TempFile = "C:\result.txt"
WshShell = CreateObject("WScript.Shell")
WshShell.Run("cmd.exe c:\snmpbulkwalk -c public -v2c 10.10.10.1 .1.3.6.1.4.1.12775.7.1.1.5.0" & " > " & TempFile, 0, True)
End Sub

El cual genera la siguiente respuesta:

SNMPv2-SMI::enterprises.12775.7.1.1.5.0: Integer: 100
SNMPv2-SMI::enterprises.12775.7.1.1.5.1: Integer: 30
SNMPv2-SMI::enterprises.12775.7.1.1.5.2: String: locked
SNMPv2-SMI::enterprises.12775.7.1.1.5.3: String: On
SNMPv2-SMI::enterprises.12775.7.1.1.5.4: IPaddress: 20.20.20.1
SNMPv2-SMI::enterprises.12775.7.1.1.5.6: IPaddress: 255.255.255.0

Que estoy intentando guardar en el archivo "result.txt" (TempFile = "C:\result.txt") pero solo me guarda el ultmio valor:

SNMPv2-SMI::enterprises.12775.7.1.1.5.6: IPaddress: 255.255.255.0

Creo que es porque cada renglon de respuesta lo sobreescibe y es por eso que queda el ultimo valor.

Pregunta: Como hago para guardar toda la respuesta en un TXT?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ing

Publicado por kdlc (69 intervenciones) el 23/12/2009 22:36:07
Revisa este Script (lo puedes guardar como pinger.vbs y ejecutarlo para ver el resultado)

Set objShell = CreateObject("Wscript.Shell")
objTempFile = "c:\temp\ping.txt"
objShell.Run "cmd /c ping 127.0.0.1 >" & objTempFile, 0, True
WScript.echo "Done: " & objTempFile

Suerte ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar