[Iska]

Если я правильно вновь перечитал указанную статью, то примерно так (cкрипт VBScript, на указанной ОС не проверялось по причине отсутствия оной):

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

Код:

Option Explicit

Dim strPath2Folder
Dim strNewFilePath
Dim lngCount

If WScript.Arguments.Count <> 0 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strPath2Folder = WScript.Arguments.Item(0)
		
		strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ.txt")
		lngCount = 1
		
		Do
			If Not .FileExists(strNewFilePath) Then
				Exit Do
			Else
				lngCount = lngCount + 1
				strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ (" & CStr(lngCount) & ").txt")
			End If
		Loop
		
		With .CreateTextFile(strNewFilePath)
			.Close
		End With
	End With
Else
	WScript.Echo "Do not use this script directly"
End If

WScript.Quit 0