vbscript读取xml中的属性值，并根据值的大小进行更改

我有一个vbscript，它通过cmd:cmd/c cscript“c:\Temp\port.vbs”12更改端口值

下面是脚本：

Set xmlDoc = CreateObject("FILE.XMLDOM")
xmlDoc.Async = "False"
xmlDocName = "C:\Temp\Config.xml"
xmlDoc.Load(xmlDocName)

Set xmlNode = xmlDoc.documentElement.selectSingleNode("//TCPIPLink")
xmlNode.SetAttribute "RemotePort", WScript.Arguments(0)
xmlDoc.Save(xmlDocName)

我被要求做的是将“RemotePort”编号10改为12，如果设置为13，则改为14 改编此脚本的最佳方式是什么？

---

我不懂脚本编写，所以请友好一点，谢谢诸如此类的工作：

Dim iRemotePort
iRemotePort = WScript.Arguments(0)

Select Case iRemotePort
    Case 10
        iRemotePort = 12
    Case 13
        iRemotePort = 14
    Case Else
        ' Leave it as-is
End Select

xmlNode.SetAttribute "RemotePort", iRemotePort
xmlDoc.Save (xmlDocName)