WScript.Shell - SNMP

Wilmer Ramirez
21 de Diciembre del 2009
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?