Remove empty and duplicate line

Set objSet = CreateObject("Scripting.Dictionary") 
Set objFSO = CreateObject("scripting.filesystemobject")
Set objTS = objFSO.OpenTextFile("input.txt")

While Not objTS.AtEndOfStream
    strLine = objTS.ReadLine
    If strLine <> "" then
        On Error Resume Next
        Call objSet.Add (strLine, "share source code")
        If Err = 0 Then
            Wscript.Echo strLine
        End If
    End if
Wend


Usage: cscript //NoLogo //U source-code.vbs >> output.txt