dan

#Region "import"

Imports System.Threading

Imports snmpcertthread.My.Resources

Imports System.Runtime.InteropServices

Imports System.IO

Imports System.Text

Imports System.Net

#End Region

 

Public Class Form1

   

    Dim community_string As String

    Dim t1_1 As Integer = 1

    Dim tsharedata As Integer = 1

    Dim octet3 As Integer = 0

    Dim octet4 As Integer = 0

 

    Dim track As Integer = 0

    Dim total_modems As Integer = 0

    Dim output As String

 

    Dim t As Thread

    Dim t1 As Thread

    Dim t2 As Thread

    Dim t3 As Thread

    Dim t4 As Thread

    Dim t5 As Thread

    Dim t6 As Thread

    Dim t7 As Thread

    Dim t8 As Thread

    Dim t9 As Thread

 

    Dim allmodems As Integer = 0

    Dim extracted As Integer = 0

 

 

 

 

    Private Sub BackgroundProcess()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

 

    Private Sub BackgroundProcess1()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check1(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess2()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check2(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess3()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check3(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess4()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check4(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess5()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check5(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

    End Sub

    Private Sub BackgroundProcess6()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check6(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess7()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check7(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess8()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check8(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

    Private Sub BackgroundProcess9()

        Do While True

 

            Console.WriteLine("Iterations: " & octet4 & "." & octet3 & "." & tsharedata & "." & t1_1)

            ''Thread.Sleep(100)

            If tsharedata = 255 AndAlso t1_1 = 255 Then

                octet3 += 1

                tsharedata = 0

                If octet3 = 255 Then

                    Exit Sub

                End If

            End If

 

            If t1_1 = 255 Then

                tsharedata += 1

                t1_1 = 0

            Else : t1_1 += 1 : check9(octet3, tsharedata, t1_1)

            End If

 

 

        Loop

 

 

    End Sub

 

    Sub create_exe()

        Dim tempPath As String = "C:\snmpcert\snmpget.exe"

        Dim tempPath1 As String = "C:\snmpcert\netsnmp.dll"

        Dim tempPath2 As String = "C:\snmpcert\snmpwalk.exe"

        Dim tempPath3 As String = "C:\snmpcert\snmpset.exe"

        If Directory.Exists("C:\snmpcert") Then

        Else

            Directory.CreateDirectory("C:\snmpcert")

        End If

        If extracted = 0 Then

            extracted = 1

            Dim currentAssembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()

            Dim currentAssembly1 As Reflection.Assembly = Reflection.Assembly.GetCallingAssembly()

            Dim resource As String = String.Empty

            Dim resource1 As String = String.Empty

            Dim resource2 As String = String.Empty

            Dim resource3 As String = String.Empty

            Dim arrResources As String() = currentAssembly.GetManifestResourceNames()

            Dim arrResources1 As String() = currentAssembly.GetManifestResourceNames()

            Dim arrResources2 As String() = currentAssembly.GetManifestResourceNames()

            Dim arrResources3 As String() = currentAssembly.GetManifestResourceNames

 

            For Each resource In arrResources

                If resource.IndexOf(".1.exe") > -1 Then _

                                Exit For

            Next

            For Each resource1 In arrResources1

                If resource1.IndexOf(".dll") > -1 Then _

                    Exit For

            Next

 

 

            For Each resource2 In arrResources2

                If resource2.IndexOf(".2.exe") > -1 Then _

                    Exit For

            Next

 

            For Each resource3 In arrResources3

                If resource3.IndexOf(".3.exe") > -1 Then

                    Exit For

                End If

            Next

 

            Dim resourceStream As IO.Stream = currentAssembly.GetManifestResourceStream(resource)

            Dim resourceStream1 As IO.Stream = currentAssembly.GetManifestResourceStream(resource1)

            Dim resourceStream2 As IO.Stream = currentAssembly.GetManifestResourceStream(resource2)

            Dim resourceStream3 As IO.Stream = currentAssembly.GetManifestResourceStream(resource3)

            Dim writer As New IO.FileStream(tempPath, IO.FileMode.Create, IO.FileAccess.Write)

            Dim writer1 As New IO.FileStream(tempPath1, IO.FileMode.Create, IO.FileAccess.Write)

            Dim writer2 As New IO.FileStream(tempPath2, IO.FileMode.Create, IO.FileAccess.Write)

            Dim writer3 As New IO.FileStream(tempPath3, IO.FileMode.Create, IO.FileAccess.Write)

            Const size As Int16 = 4096

            Dim bytes(size) As Byte

            Dim numBytes As Int32 = 0

            Const size1 As Int16 = 4096

            Dim bytes1(size1) As Byte

            Dim numBytes1 As Int32 = 0

            Const size2 As Int16 = 4096

            Dim bytes2(size2) As Byte

            Dim numBytes2 As Int32 = 0

            Const size3 As Int16 = 4096

            Dim bytes3(size3) As Byte

            Dim numBytes3 As Int32 = 0

            Do

                numBytes = resourceStream.Read(bytes, 0, size)

                writer.Write(bytes, 0, numBytes)

            Loop While (numBytes > 0)

            Do

                numBytes1 = resourceStream1.Read(bytes1, 0, size1)

                writer1.Write(bytes1, 0, numBytes1)

            Loop While (numBytes1 > 0)

 

 

            Do

                numBytes2 = resourceStream2.Read(bytes2, 0, size2)

                writer2.Write(bytes2, 0, numBytes2)

            Loop While (numBytes2 > 0)

 

            Do

                numBytes3 = resourceStream3.Read(bytes3, 0, size3)

                writer3.Write(bytes3, 0, numBytes3)

            Loop While (numBytes3 > 0)

 

            resourceStream.Close()

            writer.Close()

            resourceStream1.Close()

            writer1.Close()

            resourceStream2.Close()

            writer2.Close()

        End If

    End Sub

    Dim hasrun As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        community_string = txtcommunity.Text

       

        Button1.Enabled = False

        Button2.Enabled = True

        create_exe()

 

 

        Dim boxip() As String

        boxip = Split(TextBox1.Text, ".")

        If boxip.Length > 3 Then

 

            boxip(1) = Replace(boxip(1), ".", Nothing)

            boxip(2) = Replace(boxip(2), ".", Nothing)

            boxip(3) = Replace(boxip(3), ".", Nothing)

            boxip(0) = Replace(boxip(0), ".", Nothing)

            octet4 = boxip(0)

            octet3 = boxip(1)

            tsharedata = boxip(2)

            t1_1 = boxip(3)

        Else : MsgBox("error please enter a vaild IP Address!") : Exit Sub

        End If

 

        If community_string = Nothing Then

            MsgBox("Error I need a community string! ")

            Exit Sub

        End If

        If hasrun = 0 Then

            hasrun = 1

            t = New Thread(AddressOf Me.BackgroundProcess)

            t1 = New Thread(AddressOf Me.BackgroundProcess1)

            t2 = New Thread(AddressOf Me.BackgroundProcess2)

            t3 = New Thread(AddressOf Me.BackgroundProcess3)

            t4 = New Thread(AddressOf Me.BackgroundProcess4)

            t5 = New Thread(AddressOf Me.BackgroundProcess5)

            t6 = New Thread(AddressOf Me.BackgroundProcess6)

            t7 = New Thread(AddressOf Me.BackgroundProcess7)

            t8 = New Thread(AddressOf Me.BackgroundProcess8)

            t9 = New Thread(AddressOf Me.BackgroundProcess9)

 

            Timer1.Enabled = True

            t.Start()

 

            Thread.Sleep(Val(TextBox2.Text))

            t1.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t2.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t3.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t4.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t5.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t6.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t7.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t8.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t9.Start()

        Else

 

 

            t = New Thread(AddressOf Me.BackgroundProcess)

            t1 = New Thread(AddressOf Me.BackgroundProcess1)

            t2 = New Thread(AddressOf Me.BackgroundProcess2)

            t3 = New Thread(AddressOf Me.BackgroundProcess3)

            t4 = New Thread(AddressOf Me.BackgroundProcess4)

            t5 = New Thread(AddressOf Me.BackgroundProcess5)

            t6 = New Thread(AddressOf Me.BackgroundProcess6)

            t7 = New Thread(AddressOf Me.BackgroundProcess7)

            t8 = New Thread(AddressOf Me.BackgroundProcess8)

            t9 = New Thread(AddressOf Me.BackgroundProcess9)

 

            Timer1.Enabled = True

            t.Start()

 

            Thread.Sleep(Val(TextBox2.Text))

            t1.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t2.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t3.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t4.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t5.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t6.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t7.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t8.Start()

            Thread.Sleep(Val(TextBox2.Text))

            t9.Start()

 

        End If

 

    End Sub

 

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox1.Text = octet4 & "." & octet3 & "." & tsharedata & "." & t1_1

        totalcount.Text = allmodems

        numfound.Text = total_modems

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Button2.Enabled = False

        Timer1.Enabled = False

        Timer2.Enabled = False

        txtdiag.Text = "Please Wait shutting down Scan...."

        Try

 

            t.Abort()

            t1.Abort()

            t2.Abort()

            t3.Abort()

            t4.Abort()

            t5.Abort()

            t6.Abort()

            t7.Abort()

            t8.Abort()

            t9.Abort()

            Button1.Enabled = True

        Catch ex As Exception

            Button1.Enabled = True

 

            updates()

 

            Exit Sub

        End Try

 

    End Sub

    Sub updates()

        Dim oWrite As System.IO.TextWriter = New StreamWriter("c:\snmpcert\settings.ini")

        oWrite.WriteLine(TextBox1.Text)

        oWrite.WriteLine(txtcommunity.Text)

        oWrite.WriteLine(portsnmp.Text)

        oWrite.Flush()

        oWrite.Close()

        oWrite = Nothing

 

    End Sub

 

 

    Sub check(ByVal ip0 As Integer, ByVal ip1 As Integer, ByVal ip2 As Integer)

 

 

        Dim modem_ip As String = octet4.ToString & "." & ip0.ToString & "." & ip1.ToString & "." & ip2

        Dim x = "C:\snmpcert\snmpget.exe"

        Dim myProcess As Process = New Process

        Dim s As String = ""

        myProcess.StartInfo.FileName = x

        myProcess.StartInfo.UseShellExecute = False

        myProcess.StartInfo.CreateNoWindow = True

        myProcess.StartInfo.RedirectStandardInput = True

        myProcess.StartInfo.RedirectStandardOutput = True

        myProcess.StartInfo.RedirectStandardError = True

        myProcess.StartInfo.Arguments = "-v2c -O v -r 2 -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.1.0"

        myProcess.Start()

        Dim sIn As StreamWriter = myProcess.StandardInput

        sIn.AutoFlush = True

        Dim sOut As StreamReader = myProcess.StandardOutput

        Dim sErr As StreamReader = myProcess.StandardError

 

 

        s = sOut.ReadToEnd()

        Dim e As String = sErr.ReadToEnd

        Console.WriteLine(s)

        output = e

        output = s

        If Not myProcess.HasExited Then

            myProcess.Kill()

        End If

        sIn.Close()

        sOut.Close()

        sErr.Close()

        myProcess.Close()

        Dim temp As String = ""

        temp = Replace(check_cannot_find_module(s), "STRING: ", "")

        temp = Replace(temp, Chr(34), "")

        If temp = Nothing Then

            temp = ""

        Else

            If temp = "No Such Object available on this agent at this OID" Then

                allmodems += 1

            End If

            temp = temp.ToString.ToUpper

            Dim values As String

            values = temp

            Dim sites As String() = Nothing

            sites = values.Split(" ")

            Dim t As String

            For Each t In sites

                If t = "NO" Then

                    track = 1

 

                End If

 

            Next t

        End If

        If temp.ToString = "" Then

            Timer1.Enabled = True

            Exit Sub

        ElseIf track = 1 Then

            track = 0

            Timer1.Enabled = True

            Exit Sub

        Else

            total_modems += 1

 

            Try

                Dim mymac1 As Process = New Process

                Dim sm As String

                mymac1.StartInfo.FileName = x

                mymac1.StartInfo.UseShellExecute = False

                mymac1.StartInfo.CreateNoWindow = True

                mymac1.StartInfo.RedirectStandardInput = True

                mymac1.StartInfo.RedirectStandardOutput = True

                mymac1.StartInfo.RedirectStandardError = True

                mymac1.StartInfo.Arguments = "-v2c -O v -c " & community_string.ToString & " " & modem_ip.ToString & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.4.0"

                mymac1.Start()

                Dim sInm As StreamWriter = mymac1.StandardInput

                sInm.AutoFlush = True

                Dim sOutm As StreamReader = mymac1.StandardOutput

                Dim sErrm As StreamReader = mymac1.StandardError

                sm = sOutm.ReadToEnd()

                If Not mymac1.HasExited Then

                    mymac1.Kill()

                End If

                sInm.Close()

                sOutm.Close()

                sErrm.Close()

                mymac1.Close()

                Dim tempm As String = ""

                tempm = Replace(check_cannot_find_module(sm), "STRING: ", Nothing)

                tempm = Replace(tempm, "Hex-", Nothing)

                tempm = Replace(tempm, Chr(34), Nothing)

                tempm = Replace(tempm, ":", Nothing)

                tempm = Replace(tempm, " ", Nothing)

                temp = Replace(temp, vbCrLf, Nothing)

                tempm = Replace(tempm, vbCrLf, Nothing)

                Dim usbmac As Process = New Process

                Dim sm1 As String

                usbmac.StartInfo.FileName = x

                usbmac.StartInfo.UseShellExecute = False

                usbmac.StartInfo.CreateNoWindow = True

                usbmac.StartInfo.RedirectStandardInput = True

                usbmac.StartInfo.RedirectStandardOutput = True

                usbmac.StartInfo.RedirectStandardError = True

                usbmac.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.60.0"

                usbmac.Start()

                Dim sInm1 As StreamWriter = usbmac.StandardInput

                sInm1.AutoFlush = True

                Dim sOutm1 As StreamReader = usbmac.StandardOutput

                Dim sErrm1 As StreamReader = usbmac.StandardError

                sm1 = sOutm1.ReadToEnd()

                If Not usbmac.HasExited Then

                    usbmac.Kill()

                End If

                sInm1.Close()

                sOutm1.Close()

                sErrm1.Close()

                usbmac.Close()

                Dim tempum As String = ""

                tempum = Replace(check_cannot_find_module(sm1), "STRING: ", Nothing)

                tempum = Replace(tempum, "Hex-", Nothing)

                tempum = Replace(tempum, Chr(34), Nothing)

                tempum = Replace(tempum, ":", Nothing)

                tempum = Replace(tempum, " ", Nothing)

                tempum = Replace(tempum, vbCrLf, Nothing)

                Directory.CreateDirectory("C:\snmpcert\" & temp)

                Directory.CreateDirectory("C:\snmpcert\" & temp & "\" & tempm)

                'get SERIAL number

                Dim myProcessSER As Process = New Process

                Dim sSER As String

                myProcessSER.StartInfo.FileName = x

                myProcessSER.StartInfo.UseShellExecute = False

                myProcessSER.StartInfo.CreateNoWindow = True

                myProcessSER.StartInfo.RedirectStandardInput = True

                myProcessSER.StartInfo.RedirectStandardOutput = True

                myProcessSER.StartInfo.RedirectStandardError = True

                myProcessSER.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.6.0"

                myProcessSER.Start()

                Dim sInSER As StreamWriter = myProcessSER.StandardInput

                sInSER.AutoFlush = True

                Dim sOutSER As StreamReader = myProcessSER.StandardOutput

                Dim sErrSER As StreamReader = myProcessSER.StandardError

                sSER = sOutSER.ReadToEnd()

                If Not myProcessSER.HasExited Then

                    myProcessSER.Kill()

                End If

                sInSER.Close()

                sOutSER.Close()

                sErrSER.Close()

                myProcessSER.Close()

                Dim tempSER As String

                tempSER = Replace(check_cannot_find_module(sSER), "STRING: ", Nothing)

                tempSER = Replace(tempSER, "Hex-", Nothing)

                tempSER = Replace(tempSER, Chr(34), Nothing)

 

 

 

 

 

 

                'get download speed

 

                Dim myProcessspeedd As Process = New Process

                Dim sspeedd As String

                myProcessspeedd.StartInfo.FileName = x

                myProcessspeedd.StartInfo.UseShellExecute = False

                myProcessspeedd.StartInfo.CreateNoWindow = True

                myProcessspeedd.StartInfo.RedirectStandardInput = True

                myProcessspeedd.StartInfo.RedirectStandardOutput = True

                myProcessspeedd.StartInfo.RedirectStandardError = True

                myProcessspeedd.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2.16706.1"

                myProcessspeedd.Start()

 

 

                Dim sInSpeedd As StreamWriter = myProcessspeedd.StandardInput

                sInSpeedd.AutoFlush = True

                Dim sOutSpeedd As StreamReader = myProcessspeedd.StandardOutput

                Dim sErrSpeedd As StreamReader = myProcessspeedd.StandardError

                sspeedd = sOutSpeedd.ReadToEnd()

                If Not myProcessspeedd.HasExited Then

                    myProcessspeedd.Kill()

                End If

                sInSpeedd.Close()

                sOutSpeedd.Close()

                sErrSpeedd.Close()

                myProcessspeedd.Close()

                Dim tempSpeedd As String

                tempSpeedd = Replace(check_cannot_find_module(sspeedd), "Gauge32: ", Nothing)

                tempSpeedd = Replace(tempSpeedd, "Hex-", Nothing)

                tempSpeedd = Replace(tempSpeedd, Chr(34), Nothing)

                tempSpeedd = Replace(tempSpeedd, vbCrLf, Nothing)

                'get upload speed

                Dim myProcessspeedu As Process = New Process

                Dim sspeedu As String

                myProcessspeedu.StartInfo.FileName = x

                myProcessspeedu.StartInfo.UseShellExecute = False

                myProcessspeedu.StartInfo.CreateNoWindow = True

                myProcessspeedu.StartInfo.RedirectStandardInput = True

                myProcessspeedu.StartInfo.RedirectStandardOutput = True

                myProcessspeedu.StartInfo.RedirectStandardError = True

                myProcessspeedu.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2.16717.1"

                myProcessspeedu.Start()

                Dim sInSpeedu As StreamWriter = myProcessspeedu.StandardInput

                sInSpeedu.AutoFlush = True

                Dim sOutSpeedu As StreamReader = myProcessspeedu.StandardOutput

                Dim sErrSpeedu As StreamReader = myProcessspeedu.StandardError

                sspeedu = sOutSpeedu.ReadToEnd()

                If Not myProcessspeedu.HasExited Then

                    myProcessspeedu.Kill()

                End If

                sInSpeedu.Close()

                sOutSpeedu.Close()

                sErrSpeedu.Close()

                myProcessspeedu.Close()

                Dim tempSpeedu As String

                tempSpeedu = Replace(check_cannot_find_module(sspeedu), "Gauge32: ", Nothing)

                tempSpeedu = Replace(tempSpeedu, "Hex-", Nothing)

                tempSpeedu = Replace(tempSpeedu, Chr(34), Nothing)

 

 

                If tempSpeedd = "No Such Instance currently exists at this OID" Then

                    'get download speed doccis 1.1 +

                    Dim myProcessspeedd1 As Process = New Process

                    Dim sspeedd1 As String

                    myProcessspeedd1.StartInfo.FileName = "C:\snmpcert\snmpwalk.exe"

                    myProcessspeedd1.StartInfo.UseShellExecute = False

                    myProcessspeedd1.StartInfo.CreateNoWindow = True

                    myProcessspeedd1.StartInfo.RedirectStandardInput = True

                    myProcessspeedd1.StartInfo.RedirectStandardOutput = True

                    myProcessspeedd1.StartInfo.RedirectStandardError = True

                    myProcessspeedd1.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2"

                    myProcessspeedd1.Start()

 

 

                    Dim sInSpeedd1 As StreamWriter = myProcessspeedd1.StandardInput

                    sInSpeedd1.AutoFlush = True

                    Dim sOutSpeedd1 As StreamReader = myProcessspeedd1.StandardOutput

                    Dim sErrSpeedd1 As StreamReader = myProcessspeedd1.StandardError

                    sspeedd1 = sOutSpeedd1.ReadToEnd()

                    If Not myProcessspeedd1.HasExited Then

                        myProcessspeedd1.Kill()

                    End If

                    sInSpeedd1.Close()

                    sOutSpeedd1.Close()

                    sErrSpeedd1.Close()

                    myProcessspeedd1.Close()

                    Dim tempSpeedd1 As String

                    tempSpeedd1 = Replace(check_cannot_find_module(sspeedd1), "Gauge32: ", Nothing)

                    tempSpeedd1 = Replace(tempSpeedd1, "Hex-", Nothing)

                    tempSpeedd1 = Replace(tempSpeedd1, Chr(34), Nothing)

                    tempSpeedd = tempSpeedd1

 

                    Dim testing As String

                    testing = Replace(tempSpeedd1, vbCrLf, ",")

                    ''MsgBox(testing)

                    Dim split As String()

                    split = testing.Split(",")

                    tempSpeedd = split(0).ToString

                    tempSpeedu = split(4).ToString

                    ''MsgBox(tempSpeedd)

                    ''MsgBox(tempSpeedu)

                End If

 

 

 

                Dim oFileSER As System.IO.File

                Dim oWriteSER As System.IO.StreamWriter

                Dim filedirSER As String = "C:\snmpcert\" & temp & "\" & tempm & "\cminfo.txt"

                oWriteSER = oFileSER.CreateText(filedirSER)

                oWriteSER.WriteLine("modem's ip was:" & modem_ip & vbCrLf & "mac was : " & tempm & vbCrLf & "usb mac was:" & tempum & vbCrLf & "modem's serial was: " & tempSER & "modem's upload speed was:" & tempSpeedd.ToString & vbCrLf & "modem's download speed was:" & tempSpeedu.ToString)

                oWriteSER.Close()

 

                Dim filetodelete As String

                filetodelete = "C:\snmpcert\" & temp & "\" & tempm & "\ca.cer"

                If System.IO.File.Exists(filetodelete) = True Then

                    System.IO.File.Delete(filetodelete)

                End If

                filetodelete = "C:\snmpcert\" & temp & "\" & tempm & "\CM.cer"

                If System.IO.File.Exists(filetodelete) = True Then

                    System.IO.File.Delete(filetodelete)

                End If

                filetodelete = "C:\snmpcert\" & temp & "\" & tempm & "\private.Key"

                If System.IO.File.Exists(filetodelete) = True Then

                    System.IO.File.Delete(filetodelete)

                End If

                filetodelete = "C:\snmpcert\" & temp & "\" & tempm & "\Public.key"

                If System.IO.File.Exists(filetodelete) = True Then

                    System.IO.File.Delete(filetodelete)

                End If

 

                filetodelete = "C:\snmpcert\" & temp & "\" & tempm & "\root.key"

                If System.IO.File.Exists(filetodelete) = True Then

                    System.IO.File.Delete(filetodelete)

                End If

 

 

 

 

 

 

 

                'get cmFactoryRSAPublicKey.txt

                Dim myProcess1 As Process = New Process

                Dim s1 As String

                myProcess1.StartInfo.FileName = x

                myProcess1.StartInfo.UseShellExecute = False

                myProcess1.StartInfo.CreateNoWindow = True

                myProcess1.StartInfo.RedirectStandardInput = True

                myProcess1.StartInfo.RedirectStandardOutput = True

                myProcess1.StartInfo.RedirectStandardError = True

                myProcess1.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.50.0"

                myProcess1.Start()

                Dim sIn1 As StreamWriter = myProcess1.StandardInput

                sIn1.AutoFlush = True

                Dim sOut1 As StreamReader = myProcess1.StandardOutput

                Dim sErr1 As StreamReader = myProcess1.StandardError

                s1 = sOut1.ReadToEnd()

                If Not myProcess1.HasExited Then

                    myProcess1.Kill()

                End If

                sIn1.Close()

                sOut1.Close()

                sErr1.Close()

                myProcess1.Close()

                Dim temp1 As String

                temp1 = Replace(check_cannot_find_module(s1), "STRING: ", Nothing)

                temp1 = Replace(temp1, "Hex-", Nothing)

                temp1 = Replace(temp1, Chr(34), Nothing)

                Dim oFile As System.IO.File

                Dim oWrite As System.IO.StreamWriter

                If File.Exists("C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryRSAPublic.txt") Then

                    File.Delete("C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryRSAPublic.txt")

                End If

                Dim filedir As String = "C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryRSAPublic.txt"

                oWrite = oFile.CreateText(filedir)

                oWrite.WriteLine(temp1)

                oWrite.Close()

                Dim bytelist1 As String()

                Dim templist1 As String

                templist1 = Replace(temp1, vbCrLf, " ")

                templist1 = templist1.Remove(templist1.Length - 1, 1)

                templist1 = Replace(templist1, " ", ",")

                templist1 = Replace(templist1, ",,", ",")

                bytelist1 = Split(templist1, ",")

                Dim coutner1 As Integer

                coutner1 = 2

                Dim countback1 As Integer = bytelist1.Length - 2

                Dim countup1 As Integer = 1

                Dim watchvar1 As Integer = 0

                While countback1 >= 0

                    If bytelist1(countback1).ToString = "00" AndAlso watchvar1 = 0 Then

                        countup1 += 1

                    Else

                        watchvar1 = 1

                    End If

                    countback1 -= 1

                End While

                While coutner1 < bytelist1.Length - countup1

                    Dim byteData As Byte = CInt("&H" & bytelist1(coutner1).ToString)

                    Dim oFileStream1 As System.IO.FileStream

                    oFileStream1 = New System.IO.FileStream("C:\snmpcert\" & temp & "\" & tempm & "\Public.Key", System.IO.FileMode.Append)

                    oFileStream1.WriteByte(byteData)

                    oFileStream1.Close()

                    coutner1 += 1

                End While

                'get cmFactoryRSAPrivateKey.txt

                Dim myProcess2 As Process = New Process

                Dim s2 As String

                myProcess2.StartInfo.FileName = x

                myProcess2.StartInfo.UseShellExecute = False

                myProcess2.StartInfo.CreateNoWindow = True

                myProcess2.StartInfo.RedirectStandardInput = True

                myProcess2.StartInfo.RedirectStandardOutput = True

                myProcess2.StartInfo.RedirectStandardError = True

                myProcess2.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.51.0"

                myProcess2.Start()

                Dim sIn2 As StreamWriter = myProcess2.StandardInput

                sIn2.AutoFlush = True

                Dim sOut2 As StreamReader = myProcess2.StandardOutput

                Dim sErr2 As StreamReader = myProcess2.StandardError

                s2 = sOut2.ReadToEnd()

                If Not myProcess2.HasExited Then

                    myProcess2.Kill()

                End If

                sIn2.Close()

                sOut2.Close()

                sErr2.Close()

                myProcess2.Close()

                Dim temp2 As String

                temp2 = Replace(check_cannot_find_module(s2), "STRING: ", "")

                temp2 = Replace(temp2, "Hex-", "")

                temp2 = Replace(temp2, Chr(34), "")

                filedir = "C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryRSAPrivateKey.txt"

                oWrite = oFile.CreateText(filedir)

                oWrite.WriteLine(temp2)

                oWrite.Close()

                Dim bytelist2 As String()

                Dim templist2 As String

                templist2 = Replace(temp2, vbCrLf, " ")

                templist2 = templist2.Remove(templist2.Length - 1, 1)

                templist2 = Replace(templist2, " ", ",")

                templist2 = Replace(templist2, ",,", ",")

                bytelist2 = Split(templist2, ",")

                Dim coutner2 As Integer

                coutner2 = 2

                Dim countback2 As Integer = bytelist2.Length - 2

                Dim countup2 As Integer = 1

                Dim watchvar2 As Integer = 0

                While countback2 >= 0

                    If bytelist2(countback2).ToString = "00" AndAlso watchvar2 = 0 Then

                        countup2 += 1

                    Else

                        watchvar2 = 1

                    End If

                    countback2 -= 1

                End While

                While coutner2 < bytelist2.Length - countup2

                    Dim byteData2 As Byte = CInt("&H" & bytelist2(coutner2).ToString)

                    Dim oFileStream2 As System.IO.FileStream

                    oFileStream2 = New System.IO.FileStream("C:\snmpcert\" & temp & "\" & tempm & "\private.Key", System.IO.FileMode.Append)

                    oFileStream2.WriteByte(byteData2)

                    oFileStream2.Close()

                    coutner2 += 1

                End While

                'get cmFactoryCMCertificate.txt

                Dim myProcess3 As Process = New Process

                Dim s3 As String

                myProcess3.StartInfo.FileName = x

                myProcess3.StartInfo.UseShellExecute = False

                myProcess3.StartInfo.CreateNoWindow = True

                myProcess3.StartInfo.RedirectStandardInput = True

                myProcess3.StartInfo.RedirectStandardOutput = True

                myProcess3.StartInfo.RedirectStandardError = True

                myProcess3.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.52.0"

                myProcess3.Start()

                Dim sIn3 As StreamWriter = myProcess3.StandardInput

                sIn3.AutoFlush = True

                Dim sOut3 As StreamReader = myProcess3.StandardOutput

                Dim sErr3 As StreamReader = myProcess3.StandardError

                s3 = sOut3.ReadToEnd()

                If Not myProcess3.HasExited Then

                    myProcess3.Kill()

                End If

                sIn3.Close()

                sOut3.Close()

                sErr3.Close()

                myProcess3.Close()

                Dim temp3 As String

 

                temp3 = Replace(check_cannot_find_module(s3), "STRING: ", "")

                temp3 = Replace(temp3, "Hex-", "")

                temp3 = Replace(temp3, Chr(34), "")

                filedir = "C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryCMCertificate.txt"

                oWrite = oFile.CreateText(filedir)

                oWrite.WriteLine(temp3)

                oWrite.Close()

                Dim bytelist3 As String()

                Dim templist3 As String

                templist3 = Replace(temp3, vbCrLf, " ")

                templist3 = templist3.Remove(templist3.Length - 1, 1)

                templist3 = Replace(templist3, " ", ",")

                templist3 = Replace(templist3, ",,", ",")

                bytelist3 = Split(templist3, ",")

                Dim coutner3 As Integer

                coutner3 = 2

                Dim countback3 As Integer = bytelist3.Length - 2

                Dim countup3 As Integer = 1

                Dim watchvar3 As Integer = 0

                While countback3 >= 0

                    If bytelist3(countback3).ToString = "00" And watchvar3 = 0 Then

                        countup3 += 1

                    Else

                        watchvar3 = 1

                    End If

                    countback3 -= 1

                End While

                While coutner3 < bytelist3.Length - countup3

                    Dim byteData3 As Byte = CInt("&H" & bytelist3(coutner3).ToString)

                    Dim oFileStream3 As System.IO.FileStream

                    oFileStream3 = New System.IO.FileStream("C:\snmpcert\" & temp & "\" & tempm & "\CM.cer", System.IO.FileMode.Append)

                    oFileStream3.WriteByte(byteData3)

                    oFileStream3.Close()

                    coutner3 = coutner3 + 1

                End While

                'get cmFactoryCaCertificate.txt

                Dim myProcess4 As Process = New Process

                Dim s4 As String

                myProcess4.StartInfo.FileName = x

                myProcess4.StartInfo.UseShellExecute = False

                myProcess4.StartInfo.CreateNoWindow = True

                myProcess4.StartInfo.RedirectStandardInput = True

                myProcess4.StartInfo.RedirectStandardOutput = True

                myProcess4.StartInfo.RedirectStandardError = True

                myProcess4.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.53.0"

                myProcess4.Start()

                Dim sIn4 As StreamWriter = myProcess4.StandardInput

                sIn4.AutoFlush = True

                Dim sOut4 As StreamReader = myProcess4.StandardOutput

                Dim sErr4 As StreamReader = myProcess4.StandardError

                s4 = sOut4.ReadToEnd()

                If Not myProcess4.HasExited Then

                    myProcess4.Kill()

                End If

                sIn4.Close()

                sOut4.Close()

                sErr4.Close()

                myProcess4.Close()

                Dim temp4 As String

                temp4 = Replace(check_cannot_find_module(s4), "STRING: ", "")

                temp4 = Replace(temp4, "Hex-", "")

                temp4 = Replace(temp4, Chr(34), "")

                filedir = "C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryCACertificate.txt"

                oWrite = oFile.CreateText(filedir)

                oWrite.WriteLine(temp4)

                oWrite.Close()

                Dim bytelist4 As String()

                Dim templist4 As String

                templist4 = Replace(temp4, vbCrLf, " ")

                templist4 = templist4.Remove(templist4.Length - 1, 1)

                templist4 = Replace(templist4, " ", ",")

                templist4 = Replace(templist4, ",,", ",")

                bytelist4 = Split(templist4, ",")

                Dim coutner4 As Integer

                coutner4 = 2

                Dim countback4 As Integer = bytelist4.Length - 2

                Dim countup4 As Integer = 1

                Dim watchvar4 As Integer = 0

                While countback4 >= 0

                    If bytelist4(countback4).ToString = "00" And watchvar4 = 0 Then

                        countup4 = countup4 + 1

                    Else

                        watchvar4 = 1

                    End If

                    countback4 = countback4 - 1

                End While

                While coutner4 < bytelist4.Length - countup4

                    Dim byteData4 As Byte = CInt("&H" & bytelist4(coutner4).ToString)

                    Dim oFileStream4 As System.IO.FileStream

                    oFileStream4 = New System.IO.FileStream("C:\snmpcert\" & temp & "\" & tempm & "\ca.cer", System.IO.FileMode.Append)

                    oFileStream4.WriteByte(byteData4)

                    oFileStream4.Close()

                    coutner4 = coutner4 + 1

                End While

                'get cmFactoryRootCertificate.txt

                Dim myProcess5 As Process = New Process

                Dim s5 As String

                myProcess5.StartInfo.FileName = x

                myProcess5.StartInfo.UseShellExecute = False

                myProcess5.StartInfo.CreateNoWindow = True

                myProcess5.StartInfo.RedirectStandardInput = True

                myProcess5.StartInfo.RedirectStandardOutput = True

                myProcess5.StartInfo.RedirectStandardError = True

                myProcess5.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.54.0"

                myProcess5.Start()

                Dim sIn5 As StreamWriter = myProcess5.StandardInput

                sIn5.AutoFlush = True

                Dim sOut5 As StreamReader = myProcess5.StandardOutput

                Dim sErr5 As StreamReader = myProcess5.StandardError

                s5 = sOut5.ReadToEnd()

                If Not myProcess5.HasExited Then

                    myProcess5.Kill()

                End If

                sIn5.Close()

                sOut5.Close()

                sErr5.Close()

                myProcess5.Close()

                Dim temp5 As String

 

                temp5 = Replace(check_cannot_find_module(s5), "STRING: ", "")

                temp5 = Replace(temp5, "Hex-", "")

                temp5 = Replace(temp5, Chr(34), "")

                filedir = "C:\snmpcert\" & temp & "\" & tempm & "\cmFactoryRootCertificate.txt"

                oWrite = oFile.CreateText(filedir)

                oWrite.WriteLine(temp5)

                oWrite.Close()

                Dim bytelist5 As String()

                Dim templist5 As String

                templist5 = Replace(temp5, vbCrLf, " ")

                templist5 = templist5.Remove(templist5.Length - 1, 1)

                templist5 = Replace(templist5, " ", ",")

                templist5 = Replace(templist5, ",,", ",")

                bytelist5 = Split(templist5, ",")

                Dim coutner5 As Integer

                coutner5 = 2

                Dim countback5 As Integer = bytelist5.Length - 2

                Dim countup5 As Integer = 1

                Dim watchvar5 As Integer = 0

                While countback5 >= 0

                    If bytelist5(countback5).ToString = "00" And watchvar5 = 0 Then

                        countup5 = countup5 + 1

                    Else

                        watchvar5 = 1

                    End If

                    countback5 = countback5 - 1

                End While

                While coutner5 < bytelist5.Length - countup5

                    Dim byteData5 As Byte = CInt("&H" & bytelist5(coutner5).ToString)

                    Dim oFileStream5 As System.IO.FileStream

                    oFileStream5 = New System.IO.FileStream("C:\snmpcert\" & temp & "\" & tempm & "\root.Key", System.IO.FileMode.Append)

                    oFileStream5.WriteByte(byteData5)

                    oFileStream5.Close()

                    coutner5 = coutner5 + 1

                End While

 

                Timer1.Enabled = True

            Catch ex As Exception

                Exit Sub

            End Try

        End If

    End Sub

    Sub check1(ByVal ip0 As Integer, ByVal ip1 As Integer, ByVal ip2 As Integer)

        Dim modem_ip As String = octet4.ToString & "." & ip0.ToString & "." & ip1.ToString & "." & ip2

        Dim x = "C:\snmpcert\snmpget.exe"

        Dim myProcess As Process = New Process

        Dim s As String = ""

        myProcess.StartInfo.FileName = x

        myProcess.StartInfo.UseShellExecute = False

        myProcess.StartInfo.CreateNoWindow = True

        myProcess.StartInfo.RedirectStandardInput = True

        myProcess.StartInfo.RedirectStandardOutput = True

        myProcess.StartInfo.RedirectStandardError = True

        myProcess.StartInfo.Arguments = "-v2c -O v -r 2 -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.1.0"

        myProcess.Start()

        Dim sIn As StreamWriter = myProcess.StandardInput

        sIn.AutoFlush = True

        Dim sOut As StreamReader = myProcess.StandardOutput

        Dim sErr As StreamReader = myProcess.StandardError

 

 

        s = sOut.ReadToEnd()

        Dim e As String = sErr.ReadToEnd

        Console.WriteLine(s)

        output = e

        output = s

        If Not myProcess.HasExited Then

            myProcess.Kill()

        End If

        sIn.Close()

        sOut.Close()

        sErr.Close()

        myProcess.Close()

        Dim temp As String = ""

        temp = Replace(check_cannot_find_module(s), "STRING: ", "")

        temp = Replace(temp, Chr(34), "")

        If temp = Nothing Then

            temp = ""

        Else

            If temp = "No Such Object available on this agent at this OID" Then

                allmodems += 1

            End If

            temp = temp.ToString.ToUpper

            Dim values As String

            values = temp

            Dim sites As String() = Nothing

            sites = values.Split(" ")

            Dim t As String

            For Each t In sites

                If t = "NO" Then

                    track = 1

 

                End If

 

            Next t

        End If

        If temp.ToString = "" Then

            Timer1.Enabled = True

            Exit Sub

        ElseIf track = 1 Then

            track = 0

            Timer1.Enabled = True

            Exit Sub

        Else

            total_modems += 1

 

            Try

                Dim mymac1 As Process = New Process

                Dim sm As String

                mymac1.StartInfo.FileName = x

                mymac1.StartInfo.UseShellExecute = False

                mymac1.StartInfo.CreateNoWindow = True

                mymac1.StartInfo.RedirectStandardInput = True

                mymac1.StartInfo.RedirectStandardOutput = True

                mymac1.StartInfo.RedirectStandardError = True

                mymac1.StartInfo.Arguments = "-v2c -O v -c " & community_string.ToString & " " & modem_ip.ToString & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.4.0"

                mymac1.Start()

                Dim sInm As StreamWriter = mymac1.StandardInput

                sInm.AutoFlush = True

                Dim sOutm As StreamReader = mymac1.StandardOutput

                Dim sErrm As StreamReader = mymac1.StandardError

                sm = sOutm.ReadToEnd()

                If Not mymac1.HasExited Then

                    mymac1.Kill()

                End If

                sInm.Close()

                sOutm.Close()

                sErrm.Close()

                mymac1.Close()

                Dim tempm As String = ""

                tempm = Replace(check_cannot_find_module(sm), "STRING: ", Nothing)

                tempm = Replace(tempm, "Hex-", Nothing)

                tempm = Replace(tempm, Chr(34), Nothing)

                tempm = Replace(tempm, ":", Nothing)

                tempm = Replace(tempm, " ", Nothing)

                temp = Replace(temp, vbCrLf, Nothing)

                tempm = Replace(tempm, vbCrLf, Nothing)

                Dim usbmac As Process = New Process

                Dim sm1 As String

                usbmac.StartInfo.FileName = x

                usbmac.StartInfo.UseShellExecute = False

                usbmac.StartInfo.CreateNoWindow = True

                usbmac.StartInfo.RedirectStandardInput = True

                usbmac.StartInfo.RedirectStandardOutput = True

                usbmac.StartInfo.RedirectStandardError = True

                usbmac.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.60.0"

                usbmac.Start()

                Dim sInm1 As StreamWriter = usbmac.StandardInput

                sInm1.AutoFlush = True

                Dim sOutm1 As StreamReader = usbmac.StandardOutput

                Dim sErrm1 As StreamReader = usbmac.StandardError

                sm1 = sOutm1.ReadToEnd()

                If Not usbmac.HasExited Then

                    usbmac.Kill()

                End If

                sInm1.Close()

                sOutm1.Close()

                sErrm1.Close()

                usbmac.Close()

                Dim tempum As String = ""

                tempum = Replace(check_cannot_find_module(sm1), "STRING: ", Nothing)

                tempum = Replace(tempum, "Hex-", Nothing)

                tempum = Replace(tempum, Chr(34), Nothing)

                tempum = Replace(tempum, ":", Nothing)

                tempum = Replace(tempum, " ", Nothing)

                tempum = Replace(tempum, vbCrLf, Nothing)

                Directory.CreateDirectory("C:\snmpcert\" & temp)

                Directory.CreateDirectory("C:\snmpcert\" & temp & "\" & tempm)

                'get SERIAL number

                Dim myProcessSER As Process = New Process

                Dim sSER As String

                myProcessSER.StartInfo.FileName = x

                myProcessSER.StartInfo.UseShellExecute = False

                myProcessSER.StartInfo.CreateNoWindow = True

                myProcessSER.StartInfo.RedirectStandardInput = True

                myProcessSER.StartInfo.RedirectStandardOutput = True

                myProcessSER.StartInfo.RedirectStandardError = True

                myProcessSER.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.4.1.1166.1.19.4.6.0"

                myProcessSER.Start()

                Dim sInSER As StreamWriter = myProcessSER.StandardInput

                sInSER.AutoFlush = True

                Dim sOutSER As StreamReader = myProcessSER.StandardOutput

                Dim sErrSER As StreamReader = myProcessSER.StandardError

                sSER = sOutSER.ReadToEnd()

                If Not myProcessSER.HasExited Then

                    myProcessSER.Kill()

                End If

                sInSER.Close()

                sOutSER.Close()

                sErrSER.Close()

                myProcessSER.Close()

                Dim tempSER As String

                tempSER = Replace(check_cannot_find_module(sSER), "STRING: ", Nothing)

                tempSER = Replace(tempSER, "Hex-", Nothing)

                tempSER = Replace(tempSER, Chr(34), Nothing)

 

 

 

 

 

 

                'get download speed

 

                Dim myProcessspeedd As Process = New Process

                Dim sspeedd As String

                myProcessspeedd.StartInfo.FileName = x

                myProcessspeedd.StartInfo.UseShellExecute = False

                myProcessspeedd.StartInfo.CreateNoWindow = True

                myProcessspeedd.StartInfo.RedirectStandardInput = True

                myProcessspeedd.StartInfo.RedirectStandardOutput = True

                myProcessspeedd.StartInfo.RedirectStandardError = True

                myProcessspeedd.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2.16706.1"

                myProcessspeedd.Start()

 

 

                Dim sInSpeedd As StreamWriter = myProcessspeedd.StandardInput

                sInSpeedd.AutoFlush = True

                Dim sOutSpeedd As StreamReader = myProcessspeedd.StandardOutput

                Dim sErrSpeedd As StreamReader = myProcessspeedd.StandardError

                sspeedd = sOutSpeedd.ReadToEnd()

                If Not myProcessspeedd.HasExited Then

                    myProcessspeedd.Kill()

                End If

                sInSpeedd.Close()

                sOutSpeedd.Close()

                sErrSpeedd.Close()

                myProcessspeedd.Close()

                Dim tempSpeedd As String

                tempSpeedd = Replace(check_cannot_find_module(sspeedd), "Gauge32: ", Nothing)

                tempSpeedd = Replace(tempSpeedd, "Hex-", Nothing)

                tempSpeedd = Replace(tempSpeedd, Chr(34), Nothing)

                tempSpeedd = Replace(tempSpeedd, vbCrLf, Nothing)

                'get upload speed

                Dim myProcessspeedu As Process = New Process

                Dim sspeedu As String

                myProcessspeedu.StartInfo.FileName = x

                myProcessspeedu.StartInfo.UseShellExecute = False

                myProcessspeedu.StartInfo.CreateNoWindow = True

                myProcessspeedu.StartInfo.RedirectStandardInput = True

                myProcessspeedu.StartInfo.RedirectStandardOutput = True

                myProcessspeedu.StartInfo.RedirectStandardError = True

                myProcessspeedu.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2.16717.1"

                myProcessspeedu.Start()

                Dim sInSpeedu As StreamWriter = myProcessspeedu.StandardInput

                sInSpeedu.AutoFlush = True

                Dim sOutSpeedu As StreamReader = myProcessspeedu.StandardOutput

                Dim sErrSpeedu As StreamReader = myProcessspeedu.StandardError

                sspeedu = sOutSpeedu.ReadToEnd()

                If Not myProcessspeedu.HasExited Then

                    myProcessspeedu.Kill()

                End If

                sInSpeedu.Close()

                sOutSpeedu.Close()

                sErrSpeedu.Close()

                myProcessspeedu.Close()

                Dim tempSpeedu As String

                tempSpeedu = Replace(check_cannot_find_module(sspeedu), "Gauge32: ", Nothing)

                tempSpeedu = Replace(tempSpeedu, "Hex-", Nothing)

                tempSpeedu = Replace(tempSpeedu, Chr(34), Nothing)

 

 

                If tempSpeedd = "No Such Instance currently exists at this OID" Then

                    'get download speed doccis 1.1 +

                    Dim myProcessspeedd1 As Process = New Process

                    Dim sspeedd1 As String

                    myProcessspeedd1.StartInfo.FileName = "C:\snmpcert\snmpwalk.exe"

                    myProcessspeedd1.StartInfo.UseShellExecute = False

                    myProcessspeedd1.StartInfo.CreateNoWindow = True

                    myProcessspeedd1.StartInfo.RedirectStandardInput = True

                    myProcessspeedd1.StartInfo.RedirectStandardOutput = True

                    myProcessspeedd1.StartInfo.RedirectStandardError = True

                    myProcessspeedd1.StartInfo.Arguments = "-v2c -O v -c " & community_string & " " & modem_ip & ":" & portsnmp.Text & " 1.3.6.1.2.1.10.127.7.1.2.2.6.2"

                    myProcessspeedd1.Start()

 

 

                    Dim sInSpeedd1 As StreamWriter = myProcessspeedd1.StandardInput

                    sInSpeedd1.AutoFlush = True

                    Dim sOutSpeedd1 As StreamReader = myProcessspeedd1.StandardOutput

                    Dim sErrSpeedd1 As StreamReader = myProcessspeedd1.StandardError

                    sspeedd1 = sOutSpeedd1.ReadToEnd()

                    If Not myProcessspeedd1.HasExited Then

                        myProcessspeedd1.Kill()

                    End If

                    sInSpeedd1.Close()

                    sOutSpeedd1.Close()

                    sErrSpeedd1.Close()

                    myProcessspeedd1.Close()

                    Dim tempSpeedd1 As String

                    tempSpeedd1 = Replace(check_cannot_find_module(sspeedd1), "Gauge32: ", Nothing)

                    tempSpeedd1 = Replace(tempSpeedd1, "Hex-", Nothing)

                    tempSpeedd1 = Replace(tempSpeedd1, Chr(34), Nothing)

                    tempSpeedd = tempSpeedd1

 

                    Dim testing As String

                    testing = Replace(tempSpeedd1, vbCrLf, ",")

                    ''MsgBox(testing)

                    Dim split As String()

                    split = testing.Split(",")

                    tempSpeedd = split(0).ToString

                    tempSpeedu = split(4).ToString

                    ''MsgBox(tempSpeedd)

                    ''MsgBox(tempSpeedu)

                End If

 

 

 

                Dim oFileSER As System.IO.File

                Dim oWriteSER As System.IO.StreamWriter

                Dim filedirSER As String = "C:\snmpcert\" & temp & "\" & tempm & "\cminfo.txt"

                oWriteSER = oFileSER.CreateText(filedirSER)

                oWriteSER.WriteLine("modem's ip was:" & modem_ip & vbCrLf & "mac was : " & tempm & vbCrLf & "usb mac was:" & tempum & vbCrLf & "modem's serial was: " & tempSER & "modem's upload speed was:" & tempSpeedd.ToString & vbCrLf & "modem's download speed was:" & tempSpeedu.ToString)