[nasha]

Option Explicit

Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "reg.exe export ""HKEY_LOCAL_MACHINE\Software\Classes\mailto"" ""E:\Песочница\0311\MyRegFile.reg""", 0, True
Set objWshShell = Nothing

WScript.Quit 0