text: How Can I Rename Files Using File Names I've Written to a Text File? - Scripting Blog
  Set objFile = objFSO.OpenTextFile("c:\scripts\names.txt", ForReading)
  arrParts = Split(strLine, ",")
  strFile = "C:\\Pictures\\" & arrParts(0)
  ("Select * From CIM_Datafile Where Name = '" & strFile & "'")
  strNewName = "C:\Pictures\" & arrParts(1)
  Note. What's that? Connect to the WMI service on a remote machine? We never said – oh, that's right: we did say something about using this script against remote machines, didn't we? Well, that's easy enough: just set the value of the variable strComputer to the name of the remote machine. For example, this line of code will cause the script to connect to (and thus rename the files on) a remote computer named atl-fs-01:
  Next we need to open our text file. Here we use – well, what do you know: the FileSystemObject. Like we said, we don't want to use this object to rename the files; however, it's about our only recourse when it comes to reading a text file. With that in mind, these two lines of code create the FileSystemObject and then use the OpenTextFile method to open the file C:\Scripts\Names.txt for reading:
  Because the first item in a VBScript array always has the index number 0, we now know two things: item 0 – or arrParts(0) – represents the current file name, and item 1 – arrParts(1) – represents the desired file name.