VBScript para leer una línea específica y extraer caracteres y almacenarlos como una variable

Question

Aug 30, 2012, 09:41 PM

readline character variables vbscript extract

VBScript para leer una línea específica y extraer caracteres y almacenarlos como una variable

Tengo un script VB que lee la línea 11 de un archivo de texto. Sin embargo, desde esa línea necesito extraer los caracteres 48 a 53 y guardarlos como una variable. Una vez hecho esto, me gustaría usar esa variable y usarla en una URL web. Ejemplo a continuación:

El contenido del archivo szCPUSer.dat se ve así:

El guión que tengo lee la décima línea.

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("szCPUSer.dat", ForReading)

For i = 1 to 10
    objTextFile.ReadLine
Next

strLine = objTextFile.ReadLine
Wscript.Echo strLine

objTextFile.Close

Necesito el script para extraer 03187 de la línea 11 antes que almacenarlo como una variable SerNum. después de esto me gustaría usar ese número extraído en una url, por ejemplo:

http://seriallookup.com/serial=SerNum