Solved: VBS To Read Text File Into Array

Const ForReading = 1    
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objTextFile = objFSO.OpenTextFile ("c:\words.txt", ForReading) 
Dim wordArray(1)
wordCount = 0 
Do Until objTextFile.AtEndOfStream      
    strNextLine = objTextFile.Readline 
    wordCount = wordCount + 1
    ReDim Preserve wordArray(wordCount)
    wordArray(wordCount-1) = strNextLine
 Loop

Dim computername
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\dictionary.txt", ForReading)
Dim wordArray(1)
wordCount = 0

Do Until objTextFile.AtEndOfStream
	strNextLine = objTextFile.ReadLine
	wordCount = wordCount + 1
	Redim Preserve wordArray(wordCount)
	wordArray(wordCount-1) = strNextLine
Loop

objTextFile.Close

For Each computername In wordArray
	Randomize
	strComputer = computername(Int(Rnd*4344))
Next

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
    err = objComputer.Rename(computername)
Next

'http://www.vb-helper.com/howto_net_randomize_array.html
    Private Sub RandomizeArray(ByVal items() As String)
        Dim max_index As Integer = items.Length - 1
        Dim rnd As New Random
        For i As Integer = 0 To max_index - 1
            ' Pick an item for position i.
            Dim j As Integer = rnd.Next(i, max_index + 1)
            ' Swap them.
            Dim temp As String = items(i)
            items(i) = items(j)
            items(j) = temp
        Next i
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sComputername As String
        Const ForReading As Integer = 1
        Dim oFSO, oTextFile As Object
        oFSO = CreateObject("Scripting.FileSystemObject")
        oTextFile = oFSO.OpenTextFile("dictionary.txt", ForReading)
        Dim asWords(1), sNextLine As String
        Dim iWordCount As Integer = 0

        Do Until oTextFile.AtEndOfStream
            sNextLine = oTextFile.ReadLine
            iWordCount = iWordCount + 1
            ReDim Preserve asWords(0 To iWordCount - 1)
            asWords(iWordCount - 1) = sNextLine
        Loop
        oTextFile.Close()
        RandomizeArray(asWords)

        For Each sComputername In asWords
            Dim oWMIService, oComputers, oErr As Object
            oWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" & sComputername & "\root\cimv2")

            oComputers = oWMIService.ExecQuery("Select * from Win32_ComputerSystem")

            For Each oComputer In oComputers
                oErr = oComputer.Rename(sComputername)
            Next
        Next sComputername
        
    End Sub