SMS Script

On Error Resume Next

Const ForReading = 1
Const ForAppending = 8
strServerABC = "ServerABC" 'Replace with the name of the original server
strServerXYZ = "ServerXYZ" 'Replace with the name of the new server
strPath = "c:\" 'Replace this with the path to the ini file on the remote machine. Make sure you put a \ at the end of the path.
strOriginalIni = "original.ini" 'Replace with the name of the Ini File
strTempIni = "temp.ini"
strBackupIni = Replace(strOriginalIni, ".ini", ".old")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists (strPath & strOriginalIni) Then 
 objFSO.CopyFile strPath & strOriginalIni, strPath & strBackupIni, True 'This will make a backup copy of the ini file just in case of recovery
 If objFSO.FileExists (strPath & strTempIni) Then 'Check to see if the temp file exists from a previous run
 objFSO.DeleteFile(strPath & strTempIni) 'If so them remove it so that we can recreate it.
 End If
 Set objTempIniFileWrite = objFSO.OpenTextFile (strPath & strTempIni, ForAppending, True)
 Set objOriginalIniFileRead = objFSO.OpenTextFile(strPath & strOriginalIni, ForReading)

 Do While objOriginalIniFileRead.AtEndOfStream <> True
 strLineRead = objOriginalIniFileRead.Readline
 If InStr(strLineRead, strServerABC) > 0 Then
 strReplaceLine = Replace(strLineRead, strServerABC, strServerXYZ) 'This will replace the original server name with the new server name
 objTempIniFileWrite.WriteLine(strReplaceLine)
 Else 
 objTempIniFileWrite.WriteLine(strLineRead)
 End If
 Loop
Else
 WScript.Quit 'The Original INI file was not found on the system so therefore exit. You can put return codes here if you want or comments.
End If

objOriginalIniFileRead.Close
objTempIniFileWrite.Close

objFSO.CopyFile strPath & strTempIni, strPath & strOriginalIni, True 'This will then copy the temporary file back over top of the original file
objFSO.DeleteFile (strPath & strTempIni)