Scripting

Have a search through the forums, as this has been discussed and solutions posted previously.

Sorry to be thick , but could not find any as i've searched before posting

Try this link: [link]http://itninja.com/question/installshield-vs-wise-for-repackaging40&mpage=1&key=hostsຜ[/link]

Thanks Mr. B hunter, but that post really does not say much, i'm sure the guy who posted it also did not get anything out of the replies

Sorry, it was this part I was referring to:

set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.opentextfile("myhost.txt")
file.writeline "myhost1...."
file.close

So to append a line of text to your services file, the script should look like this:

set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.opentextfile("c:\windows\system32\drivers\etc\services.", 8)
file.writeline "db2 3700/tcp #Required for DB2"
file.close

Thanks B hunter, Thats worked

Thanks B hunter, Thats worked

Hi Noodles,

I used this vbscript to write to a file....
See if this is of some help to you...................

Option Explicit
On Error Resume next

Dim fso
Dim WinDirPath
Dim PathToHosts, PathToServices
Dim iReturnValue
Const TAB = " "
Set fso = CreateObject("Scripting.FileSystemObject")
WinDirPath = fso.GetSpecialFolder(0)
PathToHosts = WinDirPath & "\system32\drivers\etc\hosts" ' path to file
PathToServices = WinDirPath & "\system32\drivers\etc\services"

iReturnValue = WriteToFile (PathToHosts, "127.0.0.1","localhost","","")
iReturnValue = WriteToFile (PathToServices, "qotd","17/tcp","quote","#Quote of the day")


Set fso = Nothing

'--------------------------------------------------------------------------------------------------
' Description :Function to write to file
' Return Value :1 if changes made
' 0 if file doesnt exist
'--------------------------------------------------------------------------------------------------
Function WriteToFile (ByVal pathToFile,byval para1,byval para2,byval para3,byval para4)
Dim TempFile
Dim msg

If fso.FileExists(pathToFile) Then

Set TempFile = fso.OpenTextFile(pathToFile,8,True)
msg = para1 & TAB & para2 & TAB & para3 & TAB & TAB & para4
msg = rtrim(msg)
MsgBox(msg)
TempFile.WriteLine msg
TempFile.Close
Set TempFile = Nothing
WriteToFile = 1

Else
WriteToFile = 0
End If

End Function