[Iska]

Давайте проделаем ещё раз то же самое с таким кодом:

читать дальше »

Код:

Option Explicit

With WScript.CreateObject("Scripting.FileSystemObject")
	With .CreateTextFile(.BuildPath(.GetParentFolderName(WScript.ScriptFullName), "list.txt"), True)
		.WriteLine SetLocale("ru")
		.WriteLine DateAdd("s", 1, 0)
		
		.WriteLine SetLocale("en-us")
		.WriteLine DateAdd("s", 1, 0)
		.WriteLine GetLocale()
	End With
End With

WScript.Quit 0