[Iska]

Сохраняет REG файл в ANSI(начало reg файла REGEDIT4)!!!! »

Пробуйте (не проверялось):

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

Код:

Option Explicit

Dim strFileName
Dim strPath

Dim strFullFileName
Dim strContent


strFileName = "shell.reg"

With WScript.CreateObject("Scripting.FileSystemObject")
	strPath         = .GetParentFolderName(WScript.ScriptFullName)
	strFullFileName = .BuildPath(strPath, strFileName)
	
	If .FileExists(strFullFileName) Then
		With .OpenTextFile(strFullFileName)
			strContent = .ReadAll()
			.Close
		End With
		
		With .CreateTextFile(strFullFileName, True)
			.Write Replace(strContent, "D:\\RSWP", Replace(strPath, "\", "\\"))
			.Close
		End With
	Else
		WScript.Echo "Can't find file [" & strFullFileName & "]."
	End If
End With

WScript.Quit 0

откуда запущен!!! »

Ещё раз: «откуда запущен» — это рабочий каталог приложения, а не его местоположение.