[Iska]

Нужен X:\RSWP\shell.vbs, который определил букву диска X , с которого он запускается »

Полагаю, что речь идёт всё-таки про диск, где находится скрипт, а не рабочий каталог, «с которого он запускается».

и изменил ВСЕ пути в shell.reg файле, с D:\\ на X:\\ »

Только в формате REG_SZ. Файл реестра ожидается в юникоде. Скрипт заменит все вхождения «D:\\RSWP» на путь, где находится скрипт. Пробуйте:

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

Код:

Option Explicit

Const ForReading   =  1
Const TristateTrue = -1


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, ForReading, False, TristateTrue)
			strContent = .ReadAll()
			.Close
		End With
		
		With .CreateTextFile(strFullFileName, True, TristateTrue)
			.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