VBS IF语句替换文本

Question

我有一个数据库指向配置文件，我想用VBS控制。 下面我试图将配置文件设置为从数据库1指向5个可能的数据库中的3个。

示例：下面的此脚本将配置设置从数据库1更改为指向数据库3

Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim objFSO,objFile,strText,strNewText
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\newtons\Desktop\Live directory 1\test 1.txt",ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "<BaseUrl>https://test1-provident.saasloans.com</BaseUrl>", "<BaseUrl>https://test3-provident.saasloans.com</BaseUrl>")


Set objFile = objFSO.OpenTextFile("C:\Users\newtons\Desktop\Live directory 1\test 1.txt",ForWriting)
objFile.WriteLine strNewText
objFile.Close
set objFSO = Nothing
set objFile = Nothing


MsgBox "satzorapp4 is now pointing to test3-provident.saasloans.com" ,0, ""

上述脚本非常受限制，例如：当其他人使用配置文件时，我不知道配置文件在运行VBS脚本之前设置了什么数据库，这就是为什么我需要VBS脚本使用可能的IF / AND语句来考虑这一点，例如。

IF (already set to 3 THEN ignore + msgbox "Pointing to database 3")

我的最后一个问题是，例如如果配置文件设置为数据库2并且我的vbs脚本基线正在寻找数据库，则它将无法工作。