Программирование "удобняшек" на VBScript (Часть 2) (778) / Продолжение

sundraw:
Всем доброго здоровья!
В VBS не силён, поэтому прошу помощи.
Имеется скрипт, его нужно доработать

Код:

clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text") file = "c:\users\admin\Desktop\1.bat" '2 - перезапись, True - создавать, если set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(file, 2, True) ofile.WriteLine("IP.bat " & clipboard) ofile.Close WScript.Echo "IP записан"

В конечной папке "c:\users\admin\Desktop\" лежат 2 исполнительных файла 1.bat и 2.bat. В первый записываются IP по маске "IP.bat 11.11.11.11". В другой - прокси "PRX.bat 22.22.22.22:80". Выделенные значения есть переменные и вставляются из клипборда. Что нужно сделать. При выполнении скрипта он сначала должен сверить содержимое буфера обмена и содержимое файла 1.bat, чтобы, допустим, в файл с IP не вписать случайно прокси и наоборот. Содержимое можно сверять по разделительному двоеточию порта. Если в буфере обмена и конечном файле 1.bat совпадение есть, то даётся команда на дальнейшее выполнение. Если совпадения нет, то выдаётся сообщение "Смените файл". А ещё лучше, если 1.bat и 2.bat обменяются названиями (1-й станет 2-м, а 2-й 1-м) после чего желательна повторная проверка на совпадение и дальнейшее выполнение.
P.S. Наверное, в скрипте понадобится ещё и команда "ofile.WriteLine("PRX.bat " & clipboard)".