Scripting

What about this, how can I change hard coded entries becasue if it stays like that it workes:

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Sets variables
FilePath="c:\windows\system32\drivers\etc\hosts"
SearchTerm="# 127.0.0.1       localhost"
NewText=" 127.0.0.1       localhost"

'Opens text file in read mode (Read=1, Write=2, Append=8)
Set objFile = objFSO.OpenTextFile(FilePath, 1)

'Adds all text in text file to "FileContent" string
FileContent = objFile.ReadAll
objFile.Close

'Instr searches "FileContent" looking for "SearchTerm", if not found returns 0
if Instr(FileContent,SearchTerm) = 0 then
  
   'Not found code
   'Opens text file in append mode so you can add text (Read=1, Write=2, Append=8)
   Set objFile = objFSO.OpenTextFile(FilePath, 8)
   'Writes new line to text fle vbCrLf inserts a return(s) to ensure new line
   objFile.WriteLine (vbCrLf & NewText & vbCrLf)
   objFile.Close

Else
  
   'Found search term
   ReplaceOldLine = Replace(FileContent, "# 127.0.0.1       localhost", NewText)
   'Opens text file in write mode to replace old line (Read=1, Write=2, Append=8)
   Set objFile = objFSO.OpenTextFile(FilePath, 2)
   're-writes whole content of file with replaced values (if needed)
   objFile.WriteLine ReplaceOldLine
   objFile.Close

end If

WScript.Quit

Here is a VBS that worked for me when I had to either add or replace an entry.  Later (second script) I created a slightly better script that finds and deletes whole lines instead of having to match specific line of text exactly.  You could modify this script to find the line and replace as well.  Both should work.

 On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Sets variables
FilePath="c:\windows\system32\drivers\etc\hosts"
SearchTerm="TEXT to find in file"
NewText="New TEXT you want to add/replace"

'Opens text file in read mode (Read=1, Write=2, Append=8)
Set objFile = objFSO.OpenTextFile(FilePath, 1)

'Adds all text in text file to "FileContent" string
FileContent = objFile.ReadAll
objFile.Close

'Instr searches "FileContent" looking for "SearchTerm", if not found returns 0
if Instr(FileContent,SearchTerm) = 0 then
   
   'Not found code
   'Opens text file in append mode so you can add text (Read=1, Write=2, Append=8)
   Set objFile = objFSO.OpenTextFile(FilePath, 8)
   'Writes new line to text fle vbCrLf inserts a return(s) to ensure new line
   objFile.WriteLine (vbCrLf & NewText & vbCrLf)
   objFile.Close

Else
   
   'Found search term
   ReplaceOldLine = Replace(FileContent, "LINE/Text to replace", NewText)
   'Opens text file in write mode to replace old line (Read=1, Write=2, Append=8)
   Set objFile = objFSO.OpenTextFile(FilePath, 2)
   're-writes whole content of file with replaced values (if needed)
   objFile.WriteLine ReplaceOldLine
   objFile.Close

end If

WScript.Quit

 'This script finds text in a file and removes the WHOLE line if found.

On Error Resume Next

'Set variables
strTextFilePath="c:\windows\system32\drivers\etc\hosts"
strSearchTerm="TEXT to search"


''''''''''''''''''''''''''''''''''''''''''''''''''
'This section opens the file searches for the strSearchTerm, and shuts script down if not in doc.  If exists it continues to remove lines.  This is to avoid re-writting file when not needed,
'Opens text file in read mode (Read=1, Write=2, Append=8)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strTextFilePath, 1)

'Adds all text in text file to "FileContent" string
FileContent = objFile.ReadAll
objFile.Close

'Instr searches "FileContent" looking for "SearchTerm", if not found returns 0 and closes script.
if Instr(FileContent,strSearchTerm) = 0 then
   
    objFile.Close
    wscript.Quit
    
end If
'''''''''''''''''''''''''''''''''''''''''''''''''''

'Opens text file in read mode (Read=1, Write=2, Append=8)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strTextFilePath, 1)

'Loop through text file line by line, if NOT equal to strSearchTerm line is added to strNewContents (which is later written to text file).  Thus any line that matches strSearchTerm is omitted and not written (or removed).
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If InStr(strLine, strSearchTerm) = 0 Then
        strNewContents = strNewContents & strLine & vbCrLf
    End If
Loop
objFile.Close

'Opens text file in write mode (Read=1, Write=2, Append=8)
Set objFile = objFSO.OpenTextFile(strTextFilePath, 2)

'Writes content of strNewContents to file, which should be missing lines that contain the strSearchTerm.
objFile.Write strNewContents
objFile.Close

I belive that is not the best practice to do that, that is why I need just remove hash when installing and after uninstalling app put it back.

here is a find and replace script (case insensitive)

[cscript|wscript] replace.vbs Find Replacewith File

Find … Required. Substring being searched for.
Replacewith … Required. Replacement substring.
File … Source and destination file for the replacement

Dim FileName, Find, ReplaceWith, FileContents, dFileContents
Find         = WScript.Arguments(0)
ReplaceWith  = WScript.Arguments(1)
FileName     = WScript.Arguments(2)

'Read source text file FileContents = GetFile(FileName)

'replace all string In the source file dFileContents = replace(FileContents, Find, ReplaceWith, 1, -1, 1)

'Compare source And result if dFileContents <> FileContents Then
  'write result If different   WriteFile FileName, dFileContents

  Wscript.Echo "Replace done."
  If Len(ReplaceWith) <> Len(Find) Then 'Can we count n of replacements?     Wscript.Echo _
    ( (Len(dFileContents) - Len(FileContents)) / (Len(ReplaceWith)-Len(Find)) ) & _
    " replacements."
  End If
Else
  Wscript.Echo "Searched string Not In the source file"
End If

'Read text file function GetFile(FileName)
  If FileName<>"" Then
    Dim FS, FileStream
    Set FS = CreateObject("Scripting.FileSystemObject")
      on error resume Next
      Set FileStream = FS.OpenTextFile(FileName)
      GetFile = FileStream.ReadAll
  End If
End Function

'Write string As a text file. function WriteFile(FileName, Contents)
  Dim OutStream, FS

  on error resume Next
  Set FS = CreateObject("Scripting.FileSystemObject")
    Set OutStream = FS.OpenTextFile(FileName, 2, True)
    OutStream.Write Contents
End Function

If you just want to add entries then you can use this script

On Error Resume Next

Dim IPAddress, HostName, Line

IPAddress="192.168.1.1"
HostName="MYCOMPUTERNAME"

Line=IPAddress & "       "  & HostName

Call AddValues(Line)

Sub AddValues(Line)
    Dim varFile
    Dim varFileLines
    Dim WshShell
    Dim WinDir, objFSO, objFile, Flag
  
    Set WshShell = CreateObject("WScript.shell")

    WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
    sFileName = WinDir & "\system32\drivers\etc\Hosts"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(sFileName,1)

    Flag=0
   

    Do Until objFile.AtEndOfStream

        varFileLines = objFile.ReadLine
            If Trim(varFileLines) <> Line Then
  
            If Trim(varFile) = "" Then
                varFile = Trim(varFileLines)
            Else
                varFile = varFile & vbCrLf & Trim(varFileLines)
            End If
    Else
        Flag=1
        End If
    Loop

        objFile.Close

    If Flag=0 then

        varFile = varFile & vbCrLf & Line
 
        Set objFile = objFSO.CreateTextFile(sFileName, True, False)
    
        objFile.WriteLine varFile

    objFile.Close
    End if
    Set objFile = Nothing
    Set objFSO = Nothing
    Set WshShell = Nothing

End Sub

Thank you "dandrink" your script was really helpfull and it worked like sharm :)

Hi, How can I replace in dandrink script hard coded pass?