|
|
@@ -0,0 +1,799 @@
|
|
|
+Public Class Form1
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
|
+
|
|
|
+ If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
|
|
|
+ TextBox1.Text = OpenFileDialog1.FileName
|
|
|
+ End If
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
|
+ If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
|
+ TextBox2.Text = FolderBrowserDialog1.SelectedPath
|
|
|
+ End If
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Public Shared oMyTest As New Generic.Dictionary(Of Integer, MyTestAttribs)
|
|
|
+
|
|
|
+ Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
|
|
+ oMyTest.Clear()
|
|
|
+ DataGridView1.Rows.Clear()
|
|
|
+
|
|
|
+ If Not My.Computer.FileSystem.FileExists(TextBox1.Text) Then
|
|
|
+ 'MessageBox.Show("The File " & TextBox1.Text & " does not exist!")
|
|
|
+ Exit Sub
|
|
|
+ End If
|
|
|
+
|
|
|
+ 'Dim oMyTest As New Generic.Dictionary(Of Integer, MyTestAttribs)
|
|
|
+
|
|
|
+ Dim Myfile As New System.IO.StreamReader(TextBox1.Text)
|
|
|
+ 'MessageBox.Show(Myfile.ReadToEnd)
|
|
|
+
|
|
|
+
|
|
|
+ Dim iCountExecutions As Integer = 0
|
|
|
+ Try
|
|
|
+
|
|
|
+
|
|
|
+ While Not Myfile.EndOfStream
|
|
|
+ Dim line As String = Myfile.ReadLine
|
|
|
+ If line.Contains(">sqlio") Then 'Set test specific parameters
|
|
|
+ iCountExecutions += 1
|
|
|
+ oMyTest(iCountExecutions) = New MyTestAttribs
|
|
|
+ oMyTest(iCountExecutions).Testnumber = iCountExecutions
|
|
|
+
|
|
|
+ Dim iStart As Integer = line.IndexOf(">sqlio") + 1
|
|
|
+ oMyTest(iCountExecutions).TestCommand = line.Substring(iStart, line.Length - iStart)
|
|
|
+ 'MessageBox.Show(oMyTest(iCountExecutions).TestCommand)
|
|
|
+
|
|
|
+ 'create splitted String
|
|
|
+ Dim sSplit As String() = oMyTest(iCountExecutions).TestCommand.Split(" "c)
|
|
|
+
|
|
|
+ 'Determine accessType
|
|
|
+ If oMyTest(iCountExecutions).TestCommand.ToLower.Contains("-kr") Then
|
|
|
+ oMyTest(iCountExecutions).AccessType = "Read"
|
|
|
+ End If
|
|
|
+ If oMyTest(iCountExecutions).TestCommand.ToLower.Contains("-kw") Then
|
|
|
+ oMyTest(iCountExecutions).AccessType = "Write"
|
|
|
+ End If
|
|
|
+
|
|
|
+ oMyTest(iCountExecutions).Threads = MyCmdparser(sSplit, "-t")
|
|
|
+ oMyTest(iCountExecutions).Outstandingrequest = MyCmdparser(sSplit, "-o")
|
|
|
+ oMyTest(iCountExecutions).IOFileAccessType = MyCmdparser(sSplit, "-f")
|
|
|
+ End If 'End of parsing the command String
|
|
|
+
|
|
|
+ 'Determining io rate -->IOs/sec:
|
|
|
+ If line.Contains("IOs/sec: ") Then
|
|
|
+ oMyTest(iCountExecutions).IOssec = MyCmdparser(line, "IOs/sec: ")
|
|
|
+ oMyTest(iCountExecutions).IOssec = oMyTest(iCountExecutions).IOssec.Replace("."c, ","c)
|
|
|
+ End If
|
|
|
+ If line.Contains("MBs/sec: ") Then
|
|
|
+ oMyTest(iCountExecutions).MBssec = MyCmdparser(line, "MBs/sec: ")
|
|
|
+ oMyTest(iCountExecutions).MBssec = oMyTest(iCountExecutions).MBssec.Replace("."c, ","c)
|
|
|
+ End If
|
|
|
+ If line.Contains("Min_Latency(ms): ") Then
|
|
|
+ oMyTest(iCountExecutions).Min_Latency = MyCmdparser(line, "Min_Latency(ms): ")
|
|
|
+ oMyTest(iCountExecutions).Min_Latency = oMyTest(iCountExecutions).Min_Latency.Replace("."c, ","c)
|
|
|
+ End If
|
|
|
+ If line.Contains("Avg_Latency(ms): ") Then
|
|
|
+ oMyTest(iCountExecutions).Avg_Latency = MyCmdparser(line, "Avg_Latency(ms): ")
|
|
|
+ oMyTest(iCountExecutions).Avg_Latency = oMyTest(iCountExecutions).Avg_Latency.Replace("."c, ","c)
|
|
|
+ End If
|
|
|
+ If line.Contains("Max_Latency(ms): ") Then
|
|
|
+ oMyTest(iCountExecutions).Max_Latency = MyCmdparser(line, "Max_Latency(ms): ")
|
|
|
+ oMyTest(iCountExecutions).Max_Latency = oMyTest(iCountExecutions).Max_Latency.Replace("."c, ","c)
|
|
|
+ End If
|
|
|
+ End While
|
|
|
+
|
|
|
+ Catch ex As Exception
|
|
|
+
|
|
|
+ End Try
|
|
|
+ 'MessageBox.Show(iCountExecutions)
|
|
|
+
|
|
|
+ Myfile.Close()
|
|
|
+
|
|
|
+ Label3.Text = TextBox1.Text + " is loaded"
|
|
|
+ If Label3.Text.Length > 60 Then
|
|
|
+ Label3.Text = "..." + Label3.Text.Substring(Label3.Text.Length - 60)
|
|
|
+ End If
|
|
|
+
|
|
|
+ If oMyTest.Count > 1 Then
|
|
|
+ DataGridView1.Rows.Add(oMyTest.Count - 1)
|
|
|
+ ElseIf Not oMyTest.Count = 0 Then
|
|
|
+ DataGridView1.Rows.Add(oMyTest.Count)
|
|
|
+ End If
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ Dim i As Integer = 0
|
|
|
+ Do While i < oMyTest.Count
|
|
|
+ DataGridView1.Rows(i).Cells(0).Value = oMyTest(i + 1).Testnumber
|
|
|
+ DataGridView1.Rows(i).Cells(1).Value = oMyTest(i + 1).AccessType
|
|
|
+ DataGridView1.Rows(i).Cells(2).Value = oMyTest(i + 1).Threads
|
|
|
+ DataGridView1.Rows(i).Cells(3).Value = oMyTest(i + 1).Outstandingrequest
|
|
|
+ DataGridView1.Rows(i).Cells(4).Value = oMyTest(i + 1).IOFileAccessType
|
|
|
+ DataGridView1.Rows(i).Cells(5).Value = oMyTest(i + 1).IOssec
|
|
|
+ DataGridView1.Rows(i).Cells(6).Value = oMyTest(i + 1).MBssec
|
|
|
+ DataGridView1.Rows(i).Cells(7).Value = oMyTest(i + 1).Min_Latency
|
|
|
+ DataGridView1.Rows(i).Cells(8).Value = oMyTest(i + 1).Avg_Latency
|
|
|
+ DataGridView1.Rows(i).Cells(9).Value = oMyTest(i + 1).Max_Latency
|
|
|
+ i += 1
|
|
|
+ Loop
|
|
|
+
|
|
|
+ If Not CheckBox2.Checked Then Button4.Enabled = True
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Public Function MyCalcMaxExec(ByVal FILE_NAME As String) As Integer
|
|
|
+ MyCalcMaxExec = 200
|
|
|
+
|
|
|
+ Dim Myfile As New System.IO.StreamReader(FILE_NAME)
|
|
|
+ 'MessageBox.Show(Myfile.ReadToEnd)
|
|
|
+
|
|
|
+
|
|
|
+ Dim iSum As Integer = 0
|
|
|
+ Try
|
|
|
+ While Not Myfile.EndOfStream
|
|
|
+ Dim line As String = Myfile.ReadLine
|
|
|
+ If line.Contains("-s") Then
|
|
|
+ iSum += CInt(MyCmdparser(line, "-s").Trim)
|
|
|
+ End If
|
|
|
+ End While
|
|
|
+ Catch ex As Exception
|
|
|
+ MessageBox.Show(ex.Message)
|
|
|
+ End Try
|
|
|
+
|
|
|
+ Myfile.Close()
|
|
|
+
|
|
|
+ If iSum > 0 Then MyCalcMaxExec = iSum
|
|
|
+ End Function
|
|
|
+
|
|
|
+
|
|
|
+ Public Function MyCmdparser(ByRef m_command As String(), ByVal sSearch As String) As String
|
|
|
+ MyCmdparser = String.Empty
|
|
|
+ Dim iStart As Integer = 0
|
|
|
+
|
|
|
+ For Each s As String In m_command
|
|
|
+ If s.Contains(sSearch) Then
|
|
|
+ iStart = s.IndexOf(sSearch) + sSearch.Length
|
|
|
+ MyCmdparser = s.Substring(iStart, s.Length - iStart)
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+ MyCmdparser = MyCmdparser.Trim
|
|
|
+ End Function
|
|
|
+
|
|
|
+ Public Function MyCmdparser(ByRef m_command As String, ByVal sSearch As String) As String
|
|
|
+ Dim s As String = m_command
|
|
|
+ MyCmdparser = String.Empty
|
|
|
+ Dim iStart As Integer = 0
|
|
|
+ If s.Contains(sSearch) Then
|
|
|
+ iStart = s.IndexOf(sSearch) + sSearch.Length
|
|
|
+ MyCmdparser = s.Substring(iStart, s.Length - iStart)
|
|
|
+ iStart = MyCmdparser.IndexOf(" ")
|
|
|
+ If iStart > 0 Then MyCmdparser = MyCmdparser.Substring(0, iStart)
|
|
|
+ End If
|
|
|
+ MyCmdparser = MyCmdparser.Trim
|
|
|
+ End Function
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
|
|
+ If Not My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
|
|
|
+ If TextBox2.Text.Length <= 1 Then
|
|
|
+ MessageBox.Show("Please select target folder!")
|
|
|
+ Exit Sub
|
|
|
+ End If
|
|
|
+ My.Computer.FileSystem.CreateDirectory(TextBox2.Text)
|
|
|
+ End If
|
|
|
+
|
|
|
+
|
|
|
+ If TextBox3.Text.Length <= 1 Then
|
|
|
+ MessageBox.Show("Please enter Targetfile name!")
|
|
|
+ Exit Sub
|
|
|
+ End If
|
|
|
+
|
|
|
+ Dim FILE_NAME As String = TextBox2.Text + "\" + TextBox3.Text
|
|
|
+
|
|
|
+ If Not System.IO.File.Exists(FILE_NAME) = True Then
|
|
|
+
|
|
|
+ Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
|
|
|
+ file.Close()
|
|
|
+ End If
|
|
|
+
|
|
|
+ Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ For Each sPair As Generic.KeyValuePair(Of Integer, MyTestAttribs) In oMyTest
|
|
|
+ objWriter.Write(sPair.Value.Testnumber + vbTab + sPair.Value.IOFileAccessType + vbTab + sPair.Value.Threads + vbTab + sPair.Value.Outstandingrequest + vbTab + sPair.Value.IOFileAccessType + vbTab + sPair.Value.IOssec + vbTab + sPair.Value.MBssec + vbTab + sPair.Value.Min_Latency + vbTab + sPair.Value.Avg_Latency + vbTab + sPair.Value.Max_Latency + vbTab + sPair.Value.TestCommand + vbNewLine)
|
|
|
+ Next
|
|
|
+
|
|
|
+ objWriter.Close()
|
|
|
+ MsgBox("File sucessful converted!")
|
|
|
+
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
|
|
+
|
|
|
+ Dim iMaxExecTime As Integer = 0
|
|
|
+ Try
|
|
|
+
|
|
|
+ For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
|
|
|
+ If s.Contains("sqlio") Then
|
|
|
+ If s.Contains("-s") Then
|
|
|
+ iMaxExecTime += CInt(MyCmdparser(s, "-s").Trim)
|
|
|
+ End If
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+ Catch ex As Exception
|
|
|
+ MessageBox.Show(ex.Message)
|
|
|
+ End Try
|
|
|
+
|
|
|
+ Label5.Text = ""
|
|
|
+ Label5.BackColor = Color.Empty
|
|
|
+ Dim result = MessageBox.Show("This will start the IO-test on your System." + vbNewLine + "The system will be not accessable during the test!" & vbNewLine & vbNewLine & " The test will take up to " & iMaxExecTime.ToString & " seconds!", "caption", MessageBoxButtons.OKCancel
|
|
|
+ )
|
|
|
+ If result = DialogResult.Cancel Then
|
|
|
+ Exit Sub
|
|
|
+ ElseIf result = DialogResult.OK Then
|
|
|
+ 'Do nothing :)
|
|
|
+ If TextBox1.Text.Length <= 1 Then
|
|
|
+ MessageBox.Show("No SQLIO Targetpfile was entered!")
|
|
|
+ Exit Sub
|
|
|
+ End If
|
|
|
+ If My.Computer.FileSystem.FileExists(TextBox1.Text) Then
|
|
|
+ result = MessageBox.Show("The SQLIO Targetfile already exist!" & vbNewLine & "Do you want to delete the file?", "caption", MessageBoxButtons.YesNoCancel
|
|
|
+ )
|
|
|
+ If result = DialogResult.Cancel Then
|
|
|
+ Exit Sub
|
|
|
+ End If
|
|
|
+ If result = DialogResult.Yes Then
|
|
|
+ deletefile(TextBox1.Text)
|
|
|
+ End If
|
|
|
+ End If
|
|
|
+
|
|
|
+ If Not My.Computer.FileSystem.FileExists("sqlio_tpass.bat") Then
|
|
|
+
|
|
|
+ Dim FILE_NAME As String = "sqlio_tpass.bat"
|
|
|
+
|
|
|
+ If Not System.IO.File.Exists(FILE_NAME) = True Then
|
|
|
+ Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
|
|
|
+ file.Close()
|
|
|
+ End If
|
|
|
+
|
|
|
+ Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
|
|
|
+ 'For Each sPair As Generic.KeyValuePair(Of Integer, MyTestAttribs) In oMyTest
|
|
|
+ 'objWriter.Write(xSettings.<config>.<Tparms>.Value)
|
|
|
+ 'Next
|
|
|
+
|
|
|
+ For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
|
|
|
+ objWriter.Write(s & vbNewLine)
|
|
|
+ Next
|
|
|
+ objWriter.Close()
|
|
|
+ End If
|
|
|
+
|
|
|
+ If ComboBox1.SelectedItem.ToString.Length > 1 Then
|
|
|
+ deletefile("param.txt")
|
|
|
+ createfile("param.txt")
|
|
|
+ Dim iTestfileSite As String = "45934"
|
|
|
+ If TextBox4.Text.Length > 0 Then iTestfileSite = TextBox4.Text
|
|
|
+ AppendorInserttoFile("param.txt", ComboBox1.SelectedItem.ToString & "testfile.dat 2 0x0 " & iTestfileSite, False)
|
|
|
+ End If
|
|
|
+
|
|
|
+ 'myStartProcess(".\", "sqlio_tpass.bat", " >>""" & TextBox1.Text & """")
|
|
|
+ MyRunAllexe()
|
|
|
+ deletefile("sqlio_tpass.bat")
|
|
|
+ deletefile("param.txt")
|
|
|
+
|
|
|
+ Label5.Text = "SQLIO TEST Executed!"
|
|
|
+ Label5.BackColor = Color.Green
|
|
|
+ Button3_Click(sender, e)
|
|
|
+
|
|
|
+ If CheckBox2.Checked Then
|
|
|
+ Button4_Click(sender, e)
|
|
|
+ End If
|
|
|
+
|
|
|
+ End If
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Public Function myStartProcess(ByVal sBasePath As String, ByVal sName As String, ByVal sArguments As String) As Integer
|
|
|
+ myStartProcess = 0
|
|
|
+ Dim oProcess As System.Diagnostics.Process
|
|
|
+ Try
|
|
|
+ oProcess = New System.Diagnostics.Process()
|
|
|
+ oProcess.StartInfo.FileName = sBasePath & sName 'ProcessPath
|
|
|
+ oProcess.StartInfo.Arguments = sArguments
|
|
|
+ oProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
|
|
|
+ oProcess.Start()
|
|
|
+
|
|
|
+ 'Wait until the process passes back an exit code
|
|
|
+ 'oProcess.WaitForExit()
|
|
|
+ Dim i As Double = 0
|
|
|
+ Dim b As Boolean = False
|
|
|
+ Dim x As Boolean = True
|
|
|
+
|
|
|
+ 'MyCalcMaxExec interval
|
|
|
+ '100 *x * time --> ms to wait
|
|
|
+
|
|
|
+ 'MyCalcMaxExec("sqlio_tpass.bat")
|
|
|
+
|
|
|
+ Do While x = True
|
|
|
+
|
|
|
+ If i = 100 Then b = False
|
|
|
+
|
|
|
+ If i = 0 Then b = True
|
|
|
+ If b Then
|
|
|
+ i += 1
|
|
|
+ Else
|
|
|
+ 'i -= 1
|
|
|
+ End If
|
|
|
+ ProgressBar1.Value = i
|
|
|
+ 'Threading.Thread.Sleep(300)
|
|
|
+ Threading.Thread.Sleep(CInt(MyCalcMaxExec("sqlio_tpass.bat")) * 10)
|
|
|
+
|
|
|
+ If oProcess.HasExited Then
|
|
|
+ ProgressBar1.Value = 0
|
|
|
+
|
|
|
+ x = False
|
|
|
+ End If
|
|
|
+ Loop
|
|
|
+
|
|
|
+
|
|
|
+ myStartProcess = oProcess.ExitCode
|
|
|
+
|
|
|
+ 'Free resources associated with this process
|
|
|
+ oProcess.Close()
|
|
|
+ Catch ex As Exception
|
|
|
+ myStartProcess = 9
|
|
|
+ End Try
|
|
|
+
|
|
|
+
|
|
|
+ End Function
|
|
|
+
|
|
|
+ Public Sub MyRunAllexe()
|
|
|
+ ProgressBar2.Value = 0
|
|
|
+ If ComboBox1.SelectedItem.ToString.Length > 1 Then
|
|
|
+ deletefile("param.txt")
|
|
|
+ createfile("param.txt")
|
|
|
+ Dim iTestfileSite As String = "45934"
|
|
|
+ If TextBox4.Text.Length > 0 Then iTestfileSite = TextBox4.Text
|
|
|
+ AppendorInserttoFile("param.txt", ComboBox1.SelectedItem.ToString & "testfile.dat 2 0x0 " & iTestfileSite, False)
|
|
|
+ End If
|
|
|
+
|
|
|
+ Dim iTestToRun As Integer = 0
|
|
|
+ Dim FILE_NAME As String = "sqlio_tpass.bat"
|
|
|
+ For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
|
|
|
+ If s.Contains("sqlio") Then
|
|
|
+ iTestToRun += 1
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ Dim dAdjustmentfactor As Double = 100 / iTestToRun
|
|
|
+ Dim iCount As Integer = 0
|
|
|
+ For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
|
|
|
+ If s.Contains("sqlio") Then
|
|
|
+ AppendorInserttoFile(FILE_NAME, s, False)
|
|
|
+ iCount += 1
|
|
|
+ Label8.Text = iCount.ToString & " / " & iTestToRun.ToString
|
|
|
+ myStartProcess(".\", "sqlio_tpass.bat", " >>""" & TextBox1.Text & """")
|
|
|
+ If ProgressBar2.Value + (dAdjustmentfactor) <= 100 Then
|
|
|
+ ProgressBar2.Value = (dAdjustmentfactor) * iCount
|
|
|
+ Else
|
|
|
+ ProgressBar2.Value = 100
|
|
|
+ End If
|
|
|
+ End If
|
|
|
+ Next
|
|
|
+ Label8.Text = ""
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Public Shared xSettings As XDocument
|
|
|
+ Public Shared sSettingsfile As String = "settings.xml"
|
|
|
+ Public Image1 As Image
|
|
|
+
|
|
|
+ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
+
|
|
|
+
|
|
|
+ For Each s As String In System.IO.Directory.GetLogicalDrives()
|
|
|
+ ComboBox1.Items.Add(s)
|
|
|
+ ComboBox1.SelectedItem = s
|
|
|
+ Next
|
|
|
+
|
|
|
+
|
|
|
+ If Not My.Computer.FileSystem.FileExists(sSettingsfile) Then
|
|
|
+ Dim XmlDoc As New System.Xml.XmlDocument
|
|
|
+
|
|
|
+ 'Write down the XML declaration
|
|
|
+ Dim XmlDeclaration As System.Xml.XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
|
|
|
+
|
|
|
+ 'Create the root element
|
|
|
+ Dim RootNode As System.Xml.XmlElement = XmlDoc.CreateElement("config")
|
|
|
+ XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
|
|
|
+ XmlDoc.AppendChild(RootNode)
|
|
|
+
|
|
|
+ Dim SQLIO_LOG_FilePath As System.Xml.XmlElement = XmlDoc.CreateElement("SQLIO_LOG_FilePath")
|
|
|
+ Dim SQLIO_LOG_FilePathTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("SQLIO_Meassures.log")
|
|
|
+ RootNode.AppendChild(SQLIO_LOG_FilePath)
|
|
|
+ SQLIO_LOG_FilePath.AppendChild(SQLIO_LOG_FilePathTextElement)
|
|
|
+
|
|
|
+ Dim TARGET_Path As System.Xml.XmlElement = XmlDoc.CreateElement("TARGET_Path")
|
|
|
+ Dim TARGET_PathTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode(".\")
|
|
|
+ RootNode.AppendChild(TARGET_Path)
|
|
|
+ TARGET_Path.AppendChild(TARGET_PathTextElement)
|
|
|
+
|
|
|
+ Dim TARGET_FILENAME As System.Xml.XmlElement = XmlDoc.CreateElement("TARGET_FILENAME")
|
|
|
+ Dim TARGET_FILENAMETextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("Converted_SQLIO_Meassures.csv")
|
|
|
+ RootNode.AppendChild(TARGET_FILENAME)
|
|
|
+ TARGET_FILENAME.AppendChild(TARGET_FILENAMETextElement)
|
|
|
+
|
|
|
+ Dim TParms As System.Xml.XmlElement = XmlDoc.CreateElement("Tparms")
|
|
|
+ Dim TParmsTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("sqlio -kW -t2 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t2 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t4 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t8 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t16 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t32 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kW -t64 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t2 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t4 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t8 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t16 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t32 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
|
|
|
+"sqlio -kR -t64 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txt")
|
|
|
+ RootNode.AppendChild(TParms)
|
|
|
+ TParms.AppendChild(TParmsTextElement)
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ Try
|
|
|
+ XmlDoc.Save(sSettingsfile)
|
|
|
+ Catch ex As Exception
|
|
|
+
|
|
|
+ End Try
|
|
|
+
|
|
|
+
|
|
|
+ End If
|
|
|
+
|
|
|
+
|
|
|
+ If My.Computer.FileSystem.FileExists(sSettingsfile) Then
|
|
|
+
|
|
|
+ Try
|
|
|
+ xSettings = XDocument.Load(sSettingsfile)
|
|
|
+
|
|
|
+ Catch ex As Exception
|
|
|
+ MessageBox.Show(ex.Message)
|
|
|
+ End Try
|
|
|
+ Me.TextBox1.Text = xSettings.<config>.<SQLIO_LOG_FilePath>.Value
|
|
|
+ Me.TextBox2.Text = xSettings.<config>.<TARGET_Path>.Value
|
|
|
+ Me.TextBox3.Text = xSettings.<config>.<TARGET_FILENAME>.Value
|
|
|
+ End If
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
|
+
|
|
|
+ 'If MessageBox.Show("Do you want to save changes to your text?", "My Application", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
|
|
+ ' ' Cancel the Closing event from closing the form.
|
|
|
+ ' e.Cancel = True
|
|
|
+ 'End If ' Call method to save file...
|
|
|
+ Try
|
|
|
+ xSettings.<config>.<SQLIO_LOG_FilePath>.Value = Me.TextBox1.Text
|
|
|
+ xSettings.<config>.<TARGET_Path>.Value = Me.TextBox2.Text
|
|
|
+ xSettings.<config>.<TARGET_FILENAME>.Value = Me.TextBox3.Text
|
|
|
+ xSettings.Save(sSettingsfile)
|
|
|
+ Catch ex As Exception
|
|
|
+
|
|
|
+ Finally
|
|
|
+ 'e.Cancel = True
|
|
|
+ End Try
|
|
|
+
|
|
|
+ End Sub 'Form1_Closing
|
|
|
+
|
|
|
+ Private Sub deletefile(ByVal FILE_NAME As String)
|
|
|
+ If System.IO.File.Exists(FILE_NAME) = True Then
|
|
|
+ Try
|
|
|
+ System.IO.File.Delete(FILE_NAME)
|
|
|
+ Catch ex As Exception
|
|
|
+
|
|
|
+ End Try
|
|
|
+
|
|
|
+ End If
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Private Sub createfile(ByVal FILE_NAME As String)
|
|
|
+ If Not System.IO.File.Exists(FILE_NAME) = True Then
|
|
|
+ Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
|
|
|
+ file.Close()
|
|
|
+ End If
|
|
|
+ End Sub
|
|
|
+
|
|
|
+ Public Sub AppendorInserttoFile(ByVal FILE_NAME As String, ByVal Value As String, Optional ByVal bAppend As Boolean = True)
|
|
|
+ If Not System.IO.File.Exists(FILE_NAME) = True Then
|
|
|
+ createfile(FILE_NAME)
|
|
|
+ End If
|
|
|
+ Dim objWriter As New System.IO.StreamWriter(FILE_NAME, bAppend)
|
|
|
+ objWriter.WriteLine(Value)
|
|
|
+ objWriter.Close()
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
|
|
|
+ 'If CheckBox2.Checked Then
|
|
|
+ ' Button4.Enabled = False
|
|
|
+ 'End If
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
|
|
|
+ Button3_Click(sender, e)
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
|
|
+ Dim Myfile As New System.IO.StreamReader(".\sqlio.exe")
|
|
|
+ 'MessageBox.Show(Myfile.ReadToEnd)
|
|
|
+
|
|
|
+
|
|
|
+ Dim iCountExecutions As Integer = 0
|
|
|
+ Try
|
|
|
+
|
|
|
+
|
|
|
+ While Not Myfile.EndOfStream
|
|
|
+ Dim line As String = Myfile.ReadLine
|
|
|
+ AppendorInserttoFile("sqlio.txt", line, True)
|
|
|
+ End While
|
|
|
+ Catch
|
|
|
+ End Try
|
|
|
+ Myfile.Close()
|
|
|
+
|
|
|
+ 'Dim l As New System.IO.Stream() '= Reflection.Assembly.GetEntryAssembly.GetManifestResourceStream(String.Format("{0}.{1}", "ApplicationProjectName", "sqlio.exe"))
|
|
|
+ Dim l As System.IO.Stream = New System.IO.FileStream(".\sqlio.exe", IO.FileMode.Open)
|
|
|
+
|
|
|
+ Dim path As System.IO.Stream = l 'New System.IO.FileStream(".\sqlio.exe", IO.FileMode.Open)
|
|
|
+ Dim bytes(path.Length) As Byte
|
|
|
+ path.Position = 0
|
|
|
+ path.Read(bytes, 0, path.Length)
|
|
|
+ Dim data As String = System.Text.Encoding.ASCII.GetString(bytes)
|
|
|
+
|
|
|
+ AppendorInserttoFile("test.csc", data, False)
|
|
|
+ MessageBox.Show(data)
|
|
|
+ Debug.WriteLine(data)
|
|
|
+
|
|
|
+ SaveStreamToFile(l, "test222.exe")
|
|
|
+
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ Private Sub SaveStreamToFile(ByVal p_stream As System.IO.Stream, ByVal p_fileName As String)
|
|
|
+ Dim l_streamWriter As System.IO.FileStream = System.IO.File.Create(p_fileName)
|
|
|
+
|
|
|
+ Try
|
|
|
+ Dim l_bytes(65536) As Byte
|
|
|
+ Dim l_offset As Integer = 0
|
|
|
+ Dim l_readBytes As Integer
|
|
|
+
|
|
|
+ Do
|
|
|
+ l_readBytes = p_stream.Read(l_bytes, 0, 65536)
|
|
|
+ l_streamWriter.Write(l_bytes, 0, l_readBytes)
|
|
|
+
|
|
|
+ l_offset += l_readBytes
|
|
|
+
|
|
|
+ Loop While (l_readBytes > 0)
|
|
|
+ Debug.WriteLine("Num Of bytes Read: " + l_offset.ToString)
|
|
|
+
|
|
|
+ Catch ex As Exception
|
|
|
+ 'log error
|
|
|
+ Finally
|
|
|
+ p_stream.Close()
|
|
|
+ l_streamWriter.Close()
|
|
|
+ End Try
|
|
|
+ End Sub
|
|
|
+
|
|
|
+
|
|
|
+End Class
|
|
|
+
|
|
|
+
|
|
|
+Public Class MyTestAttribs
|
|
|
+ Public TestCommand As String
|
|
|
+ Public Testnumber As String 'Read/Write
|
|
|
+ Public AccessType As String 'Read/Write
|
|
|
+ Public Threads As String
|
|
|
+ Public Outstandingrequest As String
|
|
|
+ Public IOFileAccessType As String
|
|
|
+ Public IOssec As String
|
|
|
+ Public MBssec As String
|
|
|
+ Public Min_Latency As String
|
|
|
+ Public Avg_Latency As String
|
|
|
+ Public Max_Latency As String
|
|
|
+End Class
|
