angel_lyucifer, Не вчитываюсь в Ваш код, но главное: Вы определили SLOGIN и Вы за него отвечаете. Поставьте текст Вашего скрипта после моего @Echo Off, удалите
>>"%~dpnx0.vbs" echo 'MsgBox File_In
>>"%~dpnx0.vbs" echo File_In = "Z:\Box_In\config.xml" ''''''''''''
>>"%~dpnx0.vbs" echo File_Out = "Z:\Box_In\config.xml.vbs.tmp" ''''''''''''
Должно получиться.
Вот второй вариант: имеем Ваш скрипт, Вы определили SLOGIN и Вы за него отвечаете. Необходимо иметь VBS -скрипт, при его вызове в него передадим путь к конфигу.
Итак, пусть vbs - скрипт находится Z:\vbsscript.vbs (естественно, Вам определять его имя и местоположение)
В Вашем батнике после определения SLOGIN пишем:
Код:
Set "VBS=Z:\vbsscript.vbs"
Call wscript "%VBS%" "%AppData%\Skype\%SLOGIN%\config.xml"
vbsscript.vbs имеет вид
Код:
Set WSA = WScript.Arguments
If WSA.Count = 0 Then
MsgBox "Не передан аргумент"
Else
File_In = WSA(0)
File_Out = File_In
' MsgBox File_In
Set WSS = CreateObject("WScript.Shell")
ReMass = Array( _
"<AdvertPlaceholder>1</AdvertPlaceholder>", _
"<AdvertPlaceholder>0</AdvertPlaceholder>", _
"<AdvertEastRailsEnabled>1</AdvertEastRailsEnabled>", _
"<AdvertEastRailsEnabled>0</AdvertEastRailsEnabled>" _
)
N1 = LBound(ReMass)
N2 = UBound(ReMass)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set NFile = FSO.OpenTextFile(File_In, 1, False)
S = NFile.ReadAll
NFile.Close
For i = N1 To N2 Step 2
S = Replace(S, ReMass(i), ReMass(i + 1))
Next
Set NFile = FSO.OpenTextFile(File_Out, 2, True)
NFile.Write S
NFile.Close
End If
