Description:
This post shows how to use VBScript to amend the the Hosts/Services or any other text file. It contains two scripts to add/remove lines of text. This example adds to the C:\Windows\System32\drivers\etc\Services file.
Source:
N/A
Script:
Add to Services file
dim objFSO : set objFSO = CreateObject("Scripting.FileSystemObject")
dim windowsFolder: windowsFolder = objFSO.GetSpecialFolder(0)
dim targetFile : targetFile = windowsFolder & "\System32\drivers\etc\Services"
Dim arrobjFileLines()
dim i : i = 0
Const ForAppending = 8
Const ForReading = 1
if objFSO.FileExists(targetFile) Then
Dim objFile : Set objFile = objFSO.OpenTextFile(targetFile, ForReading)
strobjFile = objFile.ReadAll
objFile.Close
Set objFile = Nothing
Set objFile = objFSO.OpenTextFile(targetFile, ForAppending)
if right(strobjFile,2) <> VbCrlf then
objFile.WriteBlankLines 1
end if
objFile.WriteLine "alkaneTest1 3601/tcp"
objFile.WriteLine "alkaneTest2 3602/tcp"
objFile.WriteLine "alkaneTest3 3603/tcp"
objFile.close
Set objFile = Nothing
end if
Set objFSO = NothingRemove from Services file
dim objFSO : set objFSO = CreateObject("Scripting.FileSystemObject")
dim windowsFolder: windowsFolder = objFSO.GetSpecialFolder(0)
dim filename: filename = windowsFolder & "\System32\drivers\etc\Services"
Const ForReading = 1
Const ForWriting = 2
if objFSO.FileExists(filename) Then
Set objFile = objFSO.OpenTextFile(filename, ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If strLine <> "alkaneTest1 3601/tcp" _
AND strLine <> "alkaneTest2 3602/tcp" _
AND strLine <> "alkaneTest3 3603/tcp" Then
strNewContents = strNewContents & strLine & vbCrLf
End If
Loop
objFile.Close
Set objFile = Nothing
Set objFile = objFSO.OpenTextFile(filename, ForWriting)
objFile.Write strNewContents
objFile.Close
Set objFile = Nothing
end if
Set objFSO = Nothing
