变量路径要怎么写？请各位大虾帮帮！！

Question

本人一点编程不会，但又要改ＩＴ这块。（硬件还行）
最近因为公司服务器经常要改动，各客户端下的文件经常需要改文件内的ＩＰ。
我现在需求是这个文件不管是安装在Ｃ盘Ｄ盘还是其它盘，不管上面有几级路径都可以查差并修改掉文件里的ＩＰ
以下是我跟据网上所写的：（只解决修改文件里ＩＰ的问题）：
On Error Resume Next 
Dim Fso,IniFl,Str,IniFn 
IniFn="abctest.ini" 
Set Fso = CreateObject("Scripting.FileSystemObject") 
Set IniFl = Fso.OpenTextFile ("D:\NASA\TEST\"&IniFn,1) 
Str = Replace (IniFl.ReadAll,"ServerName=192.168.60.250","ServerName=192.168.10.250")
Set IniFl = Fso.OpenTextFile ("D:\NASA\TEST\"&IniFn,2) 
IniFl.Write Str 
IniFl.Close请各位大虾们帮帮忙，写个完成点的哈，我是一点都不会的人。
Ｐ.Ｓ最后最好是可以把这个ＶＢＳ给删除掉，当然最好也是不管是什么路径下都可执行完后自行删除。
!!!在线等，在线刷新!!!!

Answer 1

C:\>findstr /?
在文件中寻找字符串。FINDSTR [/B] [/E] [/L] [/R] [/S] [/I] [/X] [/V] [/N] [/M] [/O] [/F:file]
        [/C:string] [/G:file] [/D:dir list] [/A:color attributes] [/OFF[LINE]]
        strings [[drive:][path]filename[ ...]]  /B         在一行的开始配对模式。
  /E         在一行的结尾配对模式。
  /L         按字使用搜索字符串。
  /R         将搜索字符串作为一般表达式使用。
  /S         在当前目录和所有子目录中搜索匹配文件。
  /I         指定搜索不分大小写。
  /X         打印完全匹配的行。
  /V         只打印不包含匹配的行。
  /N         在匹配的每行前打印行数。
  /M         如果文件含有匹配项，只打印其文件名。
  /O         在每个匹配行前打印字符偏移量。
  /P         忽略有不可打印字符的文件。
  /OFF[LINE] 不跳过带有脱机属性集的文件。
  /A:attr    指定有十六进位数字的颜色属性。请见 "color /?"
  /F:file    从指定文件读文件列表 (/ 代表控制台)。
  /C:string  使用指定字符串作为文字搜索字符串。
  /G:file    从指定的文件获得搜索字符串。 (/ 代表控制台)。
  /D:dir     查找以分号为分隔符的目录列表
  strings    要查找的文字。
  [drive:][path]filename
             指定要查找的文件。除非参数有 /C 前缀，请使用空格隔开搜索字符串。
例如: 'FINDSTR "hello there" x.y' 在文件 x.y 中寻找 "hello" 或
"there"。'FINDSTR /C:"hello there" x.y' 文件 x.y  寻找
"hello there"。一般表达式的快速参考:
  .        通配符: 任何字符
  *        重复: 以前字符或类别出现零或零以上次数
  ^        行位置: 行的开始
  $        行位置: 行的终点
  [class]  字符类别: 任何在字符集中的字符
  [^class] 补字符类别: 任何不在字符集中的字符
  [x-y]    范围: 在指定范围内的任何字符
  \x       Escape: 元字符 x 的文字用法
  \<xyz    字位置: 字的开始
  xyz\>    字位置: 字的结束有关 FINDSTR 常见表达法的详细情况，请见联机命令参考。