Write the below code in a notepad and save it as a .vbs file. Either run it from command prompt or run it by double-clicking on it.
VBScript Code - Reads first line of a file.
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set FSO = CreateObject("Scripting.FilesystemObject")
Set filetxt = FSO.OpenTextFile("c:\myfile.txt", ForReading, False)
x=filetxt.ReadLine
filetxt.Close
msgbox x