VBS（VBScript）によるファイルを先頭の一行だけ読み込む方法を紹介
ファイルを先頭の一行だけ読み込む方法 ⇒ 指定行を読み込む方法
サンプルソース
（入力）
Dim fs
Dim fn
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fn = fs.OpenTextFile("e:\test.txt")
WScript.Echo fn.ReadLine
fn.Close
e:\test.txtの内容
（出力）
テスト1行目