Was in search of a vbscript which would remove line from services file located under C:\windows\system32\drivers\etc and came up with the following script by Tom Riddle
http://www.visualbasicscript.com/Delete-Line-Function-m63517.aspx

 

Option Explicit
'On Error Resume Next
Dim strFile, strKey,LineNumber, CheckCase,objshell,winFolder
set objshell=createobject("Wscript.Shell")
winfolder=objshell.expandenvironmentStrings("%WINDIR%")
strFile=winFolder & "\System32\Drivers\etc\services"

DeleteLine winFolder & "\System32\Drivers\etc\services","<strkey>","0","0"
DeleteLine winFolder & "\System32\Drivers\etc\services","<strkey>","0","0"

Function DeleteLine(strFile, strKey, LineNumber, CheckCase)
 'DeleteLine Function by TomRiddle 2008
 
 'Remove line(s) containing text (strKey) from text file (strFile)
 'or
 'Remove line number from text file (strFile)
 'or
 'Remove line number if containing text (strKey) from text file (strFile)
 
 'Use strFile = "c:\file.txt"   (Full path to text file)
 'Use strKey = "John Doe"       (Lines containing this text string to be deleted)
 'Use strKey = ""               (To not use keyword search)
 'Use LineNumber = "1"          (Enter specific line number to delete)
 'Use LineNumber = "0"          (To ignore line numbers)
 'Use CheckCase = "1"           (For case sensitive search )
 'Use CheckCase = "0"           (To ignore upper/lower case characters)
 
 
    Const ForReading=1:Const ForWriting=2
    Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    Set objFile=objFSO.OpenTextFile(strFile,ForReading)
    Do Until objFile.AtEndOfStream
       strLine=objFile.Readline
       If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
       If LineNumber=objFile.Line-1 or LineNumber=0 then
          If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then
             strNewFile=strNewFile
          Else
             strNewFile=strNewFile&strLine&vbcrlf
          End If
       Else
          strNewFile=strNewFile&strLine&vbcrlf
       End If
    Loop
    objFile.Close
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    Set objFile=objFSO.OpenTextFile(strFile,ForWriting)
    objFile.Write strNewFile
    objFile.Close
 
 End Function

 

 

 

Hope this helps the users