How do you autoincrement a variable name

[Military Smurf]

I am interested in dumping some results from a collection I have into a group
of variables. I have a counter that loops but I don't know how to use the
counter to determine my variable names.

Here is my code...

Imports System.Web
Imports System.Web.Serv ices
Imports System.Web.Serv ices.Protocols

Namespace CiscoSwitch
Public Class SwitchInterface s
Public SwitchPort1 As String
Public SwitchPort2 As String
Public SwitchPort3 As String
Public SwitchPort4 As String
Public SwitchPort5 As String
Public SwitchPort6 As String
Public SwitchPort7 As String
Public SwitchPort8 As String
Public SwitchPort9 As String
Public SwitchPort10 As String
Public SwitchPort11 As String
Public SwitchPort12 As String
Public SwitchPort13 As String
Public SwitchPort14 As String
Public SwitchPort15 As String
Public SwitchPort16 As String
Public SwitchPort17 As String
Public SwitchPort18 As String
Public SwitchPort19 As String
Public SwitchPort20 As String
Public SwitchPort21 As String
Public SwitchPort22 As String
Public SwitchPort23 As String
Public SwitchPort24 As String
End Class
End Namespace

<WebService(Des cription:="Stat us of Switch Interfaces ONLY ",
Namespace:="htt p://10.33.32.158/CoinsEngineV1") > _
<WebServiceBind ing(ConformsTo: =WsiProfiles.Ba sicProfile1_1)> _
<Global.Microso ft.VisualBasic. CompilerService s.DesignerGener ated()> _
Public Class Service
Inherits System.Web.Serv ices.WebService

<WebMethod()> _
Public Function Get3750Interfac eInfo() As CiscoSwitch.Swi tchInterfaces
Dim InterfaceStatus As New CiscoSwitch.Swi tchInterfaces
Dim ArrayCounter As Integer = 0

Dim InterfaceInfo1( 30) As String
InterfaceInfo1 = New String(30) {}
Dim InterfaceInfo2( 30) As String
InterfaceInfo2 = New String(30) {}

Dim SNMPOutput As String = ""
Dim SNMPTargetDevic e As String = "192.168.0. 100"
Dim SNMPCommunitySt ring As String = "public"
Dim WMILocator As Object = CreateObject("W BemScripting.SW BemLocator")
Dim WMIServices As Object = WMILocator.Conn ectServer("",
"root\snmp\loca lhost")
Dim WMINamedValueSe t As Object =
CreateObject("W BemScripting.SW BemNamedValueSe t")
WMINamedValueSe t.Add("AgentAdd ress", SNMPTargetDevic e)
WMINamedValueSe t.Add("AgentRea dCommunityName" , SNMPCommunitySt ring)
'Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_sys tem",
, WMINamedValueSe t)
Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_ifT able",
, WMINamedValueSe t)
Try
For Each objSystem As Object In colSystem
InterfaceStatus .SwitchPort.CSt r(ArrayCounter) =
objSystem.IfOpe rStatus
ArrayCounter = ArrayCounter + 1
Next
Catch ex As Exception
SNMPOutput = "There is some kind of problem..."
End Try
Return InterfaceStatus

End Function

[Jason]

Why not make Switchport an array instead (Public SwitchPort(24) as String)?
"Military Smurf" <Mi***********@ discussions.mic rosoft.com> wrote in message
news:26******** *************** ***********@mic rosoft.com...

I am interested in dumping some results from a collection I have into a
group
of variables. I have a counter that loops but I don't know how to use the
counter to determine my variable names.

Here is my code...

Imports System.Web
Imports System.Web.Serv ices
Imports System.Web.Serv ices.Protocols

Namespace CiscoSwitch
Public Class SwitchInterface s
Public SwitchPort1 As String
Public SwitchPort2 As String
Public SwitchPort3 As String
Public SwitchPort4 As String
Public SwitchPort5 As String
Public SwitchPort6 As String
Public SwitchPort7 As String
Public SwitchPort8 As String
Public SwitchPort9 As String
Public SwitchPort10 As String
Public SwitchPort11 As String
Public SwitchPort12 As String
Public SwitchPort13 As String
Public SwitchPort14 As String
Public SwitchPort15 As String
Public SwitchPort16 As String
Public SwitchPort17 As String
Public SwitchPort18 As String
Public SwitchPort19 As String
Public SwitchPort20 As String
Public SwitchPort21 As String
Public SwitchPort22 As String
Public SwitchPort23 As String
Public SwitchPort24 As String
End Class
End Namespace

<WebService(Des cription:="Stat us of Switch Interfaces ONLY ",
Namespace:="htt p://10.33.32.158/CoinsEngineV1") > _
<WebServiceBind ing(ConformsTo: =WsiProfiles.Ba sicProfile1_1)> _
<Global.Microso ft.VisualBasic. CompilerService s.DesignerGener ated()> _
Public Class Service
Inherits System.Web.Serv ices.WebService

<WebMethod()> _
Public Function Get3750Interfac eInfo() As CiscoSwitch.Swi tchInterfaces
Dim InterfaceStatus As New CiscoSwitch.Swi tchInterfaces
Dim ArrayCounter As Integer = 0

Dim InterfaceInfo1( 30) As String
InterfaceInfo1 = New String(30) {}
Dim InterfaceInfo2( 30) As String
InterfaceInfo2 = New String(30) {}

Dim SNMPOutput As String = ""
Dim SNMPTargetDevic e As String = "192.168.0. 100"
Dim SNMPCommunitySt ring As String = "public"
Dim WMILocator As Object =
CreateObject("W BemScripting.SW BemLocator")
Dim WMIServices As Object = WMILocator.Conn ectServer("",
"root\snmp\loca lhost")
Dim WMINamedValueSe t As Object =
CreateObject("W BemScripting.SW BemNamedValueSe t")
WMINamedValueSe t.Add("AgentAdd ress", SNMPTargetDevic e)
WMINamedValueSe t.Add("AgentRea dCommunityName" , SNMPCommunitySt ring)
'Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_sys tem",
, WMINamedValueSe t)
Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_ifT able",
, WMINamedValueSe t)
Try
For Each objSystem As Object In colSystem
InterfaceStatus .SwitchPort.CSt r(ArrayCounter) =
objSystem.IfOpe rStatus
ArrayCounter = ArrayCounter + 1
Next
Catch ex As Exception
SNMPOutput = "There is some kind of problem..."
End Try
Return InterfaceStatus

End Function

[Military Smurf]

I tried that first-but, this is going into an Adobe Flash front end over a
web service. Based on my Flash code, each element in the XML file must have
a unique tag, such as:

InterfaceStatus .SwitchPort1 = "up"
InterfaceStatus .SwitchPort2 = "down"

Then the Flash front end can handle the variable values-as an array, it
simply says "object."

"Jason" wrote:

Why not make Switchport an array instead (Public SwitchPort(24) as String)?
"Military Smurf" <Mi***********@ discussions.mic rosoft.com> wrote in message
news:26******** *************** ***********@mic rosoft.com...

I am interested in dumping some results from a collection I have into a
group
of variables. I have a counter that loops but I don't know how to use the
counter to determine my variable names.

Here is my code...

Imports System.Web
Imports System.Web.Serv ices
Imports System.Web.Serv ices.Protocols

Namespace CiscoSwitch
Public Class SwitchInterface s
Public SwitchPort1 As String
Public SwitchPort2 As String
Public SwitchPort3 As String
Public SwitchPort4 As String
Public SwitchPort5 As String
Public SwitchPort6 As String
Public SwitchPort7 As String
Public SwitchPort8 As String
Public SwitchPort9 As String
Public SwitchPort10 As String
Public SwitchPort11 As String
Public SwitchPort12 As String
Public SwitchPort13 As String
Public SwitchPort14 As String
Public SwitchPort15 As String
Public SwitchPort16 As String
Public SwitchPort17 As String
Public SwitchPort18 As String
Public SwitchPort19 As String
Public SwitchPort20 As String
Public SwitchPort21 As String
Public SwitchPort22 As String
Public SwitchPort23 As String
Public SwitchPort24 As String
End Class
End Namespace

<WebService(Des cription:="Stat us of Switch Interfaces ONLY ",
Namespace:="htt p://10.33.32.158/CoinsEngineV1") > _
<WebServiceBind ing(ConformsTo: =WsiProfiles.Ba sicProfile1_1)> _
<Global.Microso ft.VisualBasic. CompilerService s.DesignerGener ated()> _
Public Class Service
Inherits System.Web.Serv ices.WebService

<WebMethod()> _
Public Function Get3750Interfac eInfo() As CiscoSwitch.Swi tchInterfaces
Dim InterfaceStatus As New CiscoSwitch.Swi tchInterfaces
Dim ArrayCounter As Integer = 0

Dim InterfaceInfo1( 30) As String
InterfaceInfo1 = New String(30) {}
Dim InterfaceInfo2( 30) As String
InterfaceInfo2 = New String(30) {}

Dim SNMPOutput As String = ""
Dim SNMPTargetDevic e As String = "192.168.0. 100"
Dim SNMPCommunitySt ring As String = "public"
Dim WMILocator As Object =
CreateObject("W BemScripting.SW BemLocator")
Dim WMIServices As Object = WMILocator.Conn ectServer("",
"root\snmp\loca lhost")
Dim WMINamedValueSe t As Object =
CreateObject("W BemScripting.SW BemNamedValueSe t")
WMINamedValueSe t.Add("AgentAdd ress", SNMPTargetDevic e)
WMINamedValueSe t.Add("AgentRea dCommunityName" , SNMPCommunitySt ring)
'Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_sys tem",
, WMINamedValueSe t)
Dim colSystem = WMIServices.Ins tancesOf("SNMP_ RFC1213_MIB_ifT able",
, WMINamedValueSe t)
Try
For Each objSystem As Object In colSystem
InterfaceStatus .SwitchPort.CSt r(ArrayCounter) =
objSystem.IfOpe rStatus
ArrayCounter = ArrayCounter + 1
Next
Catch ex As Exception
SNMPOutput = "There is some kind of problem..."
End Try
Return InterfaceStatus

End Function