A VB script to read the first line of a file into system clipboard
Sub Main() Dim objFile, File, line Dim objClip 'Read File Set objFile = CreateObject("Scripting.FileSystemObject") Set File = objFile.OpenTextFile("\your_path\your_file.vbs", 1) line = File.Readline File.Close 'Save ClipBoard set objClip = CreateObject("htmlfile") objClip.parentWindow.clipboardData.SetData "text", line xsh.dialog.msgbox("'"&line&"' copied to the system clipboard") End Sub