[megaloman]

Вы забыли экранировать »

Я забыл убрать экранирование в 2 местах,

я поправил код, не надо экранировать

Код:

@Echo Off

>"%~dpnx0.vbs" echo Set WSS = CreateObject("WScript.Shell")

>>"%~dpnx0.vbs" echo File_In = "%AppData%\Skype\%SLOGIN%\config.xml"
>>"%~dpnx0.vbs" echo File_Out = File_In

>>"%~dpnx0.vbs" echo ReMass = Array( _
>>"%~dpnx0.vbs" echo     "<AdvertPlaceholder>1</AdvertPlaceholder>", _
>>"%~dpnx0.vbs" echo     "<AdvertPlaceholder>0</AdvertPlaceholder>", _
>>"%~dpnx0.vbs" echo     "<AdvertEastRailsEnabled>1</AdvertEastRailsEnabled>", _
>>"%~dpnx0.vbs" echo     "<AdvertEastRailsEnabled>0</AdvertEastRailsEnabled>" _
>>"%~dpnx0.vbs" echo )
>>"%~dpnx0.vbs" echo N1 = LBound(ReMass)
>>"%~dpnx0.vbs" echo N2 = UBound(ReMass)

>>"%~dpnx0.vbs" echo Set FSO = CreateObject("Scripting.FileSystemObject")
                                                                                        
>>"%~dpnx0.vbs" echo Set NFile = FSO.OpenTextFile(File_In, 1, False)
>>"%~dpnx0.vbs" echo     S = NFile.ReadAll
>>"%~dpnx0.vbs" echo NFile.Close

>>"%~dpnx0.vbs" echo For i = N1 To N2 Step 2
>>"%~dpnx0.vbs" echo     S = Replace(S, ReMass(i), ReMass(i + 1))
>>"%~dpnx0.vbs" echo Next

>>"%~dpnx0.vbs" echo Set NFile = FSO.OpenTextFile(File_Out, 2, True)
>>"%~dpnx0.vbs" echo     NFile.Write S
>>"%~dpnx0.vbs" echo NFile.Close

Call wscript "%~dpnx0.vbs"
del "%~dpnx0.vbs"