vbscript to replace text in a file

Thanks for the response, I does not appear to be reading the file, I have added in the echo and got nothing back.

'====================
'
' Type:      VBScript
'
' NAME:      TSMFix.vbs
'
' AUTHOR:    Bob Smith
'
' PURPOSE:   This script will parse a list of servers, and modify the TSM
'            config. It requires servers.txt in the same folder as this script.
'            Servers.txt should contain one machine name per line.
'
' COMMENTS:    
'
' *****************************************************
' ~~~Begin Script~~~

Option Explicit
' Declare Everything!
Dim objFSO, objTextFile, objTextFile1, objTextFile2, objWMIService, objItem, objService, objChksrv, i
Dim strComputer, Line, strNextLine, Srvpad, colItems, colListOfServices, oDrives, WshNetwork
Dim drive, objShell

On Error Resume Next

Const ForReading = 1, ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Opens the servers.txt file to find the server name(s)
' -----------------------------------------------------
Set objTextFile = objFSO.OpenTextFile("C:\TsmFix\servers.txt", ForReading)

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set objShell = WScript.CreateObject("WScript.Shell")

Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.Readline
'Check if the Server is online and has TSM folder
' -----------------------------------------------------
Srvpad = "\\"&strComputer&"\c$\program files\TIVOLI\TSM\baclient"

IF objFSO.FolderExists(Srvpad) = FALSE THEN
WScript.Echo "Server " & strServer & " doesn't have TSM or is offline!"
WScript.Quit
END If

' Backup current TSM config
objFSO.CopyFile Srvpad & "\dsm.opt" , Srvpad &"\dsm.opt.old"

' Wait for copy to complete
WScript.Sleep 10000

' Set TSM Service name
' -----------------------------------------------------
Set objService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" _
& strComputer & "/root/cimv2:Win32_Service.Name='TSM Scheduler'")

' Stop TSM Scheduler
' -----------------------------------------------------
objService.StopService

' Set the file for Reading / Writing
' -----------------------------------------------------
Set objTextFile2 = objFSO.OpenTextFile2(Srvpad & "\dsm.opt", ForReading)

       strText = objTextFile2.ReadAll
       Wscript.Echo strText       
       objTextFile2.Close
       strNewText = Replace(strText, "HYDRA1", "James")

Set objTextFile2 = objFSO.OpenTextFile(Srvpad & "\dsm.opt", ForWriting)
objTextFile2.WriteLine strNewText
objTextFile2.Close
' -----------------------------------------------------
' Wait 10 seconds for things to settle down
WScript.Sleep 10000

' Start TSM Scheduler
objService.StartService
Wscript.Echo "The TSM Scheduler service on " & strComputer & " has restarted succesfully."

' Go get next computer name and start over...
Loop

objTextFile.Close

' -----------------------------------------------------
' Functions
' -----------------------------------------------------

'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 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

OK I have wrapped some reponses around everything and the set objtextfile2 line seems to be the problem, any ideas, thank again for your help.

Bob Smith

Wscript.Echo Srvpad  <<<< this works got a response
Set objTextFile2 = objFSO.OpenTextFile(Srvpad & "\dsm.opt", ForReading)  <<<< this line seems to be the problem
Wscript.Echo objTextFile2  <<<< got no response

Check if this returns true:

Wscript.Echo objFSO.FileExists(Srvpad & "\dsm.opt")

'====================
I found a similar script and modified and this works, thank you for your help.

Bob Smith'


' Type:      VBScript
'
' NAME:      TSMFix.vbs
'
' AUTHOR:    Bob Smith
'
' PURPOSE:   This script will parse a list of servers, and modify the TSM
'            config. It requires servers.txt in the same folder as this script.
'            Servers.txt should contain one machine name per line.
'
' COMMENTS:    
'
' *****************************************************
' ~~~Begin Script~~~
Option Explicit        ' Declare Everything!
Dim objFSO, objTextFile, objWMIService, objItem, objService, objChksrv, i
Dim strComputer, Srvpad, colItems, colListOfServices, oDrives, WshNetwork
Dim drive, objShell

On Error Resume Next

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("servers.txt", ForReading)
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set objShell = WScript.CreateObject("WScript.Shell")

Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.Readline

'check if the server is online and has TSM folder
Srvpad = "\\"&strComputer&"\c$\program files\TIVOLI\TSM\baclient"
SET objChksrv = CreateObject("Scripting.FileSystemObject")
IF objChksrv.FolderExists(Srvpad) = FALSE THEN
WScript.Echo "Server " & strServer & " doesn't have TSM or is offline!"
WScript.Quit
END If

' Backup current TSM.opt
objFSO.CopyFile Srvpad & "\tsm.opt" , Srvpad &"\tsm.opt.old"

' Wait for copy to complete
WScript.Sleep 10000

' Set TSM Scheduler Service name
Set objService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" _
& strComputer & "/root/cimv2:Win32_Service.Name='TSM Scheduler'")

' Stop TSM Scheduler
objService.StopService

' *****************************************************
' Find and replace string

Dim FileName, Find, ReplaceWith, FileContents, dFileContents

Find = "serverold"
ReplaceWith = "servernew"
FileName = Srvpad &"\dsm.opt"

'Read source text file
FileContents = GetFile(FileName)
Wscript.Echo 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

' ****************************************************
' Wait 10 seconds for things to settle down
WScript.Sleep 10000

' Start TSM service
objService.StartService
Wscript.Echo "The TSM Scheduler service on " & strComputer & " has restarted succesfully."

' Go get next computer name and start over...
Loop

objTextFile.Close

' *************************
' Functions
' *************************

'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 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

In your original code, you were using ForWriting (Write) mode on the file in the first place, which would clear it's contents.  You can use ForAppending = 8 if you want to append to it.
Also, in your original code, you have the functions GetFile and WriteFile that you never use.
Do need more help with getting your original code to work?

Regards,

Rob.

Hi Rob

Yes I would like to debug the original so I know what I am doing wrong, still a newbie and would like to learn. I just had to hurry and deliver a solution.

Bob

OK, I take it what you wanted to do (judging by your code that works) is just modify the existing file (not delte a re-create it), by replacing "serverold" with "servernew".
Also, by looking at your code again, I have realised that my statement before was invalid.  You were using Write mode after you read in the full contents, which is fine.

You are right though, the original code clears the text file for some reason.  I'll check it out.

Rob.

Rob,

Thanks for explaining this, and for the tips.

Regards,
Bob Smith