Код:

reg.exe export "HKEY_LOCAL_MACHINE\Software\Classes\mailto" "E:\Песочница\0311\MyRegFile.reg"
Код:

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