set objWSH = WScript.CreateObject("WScript.Network")

Dim WshShell, tmp
Set WshShell = WScript.CreateObject("WScript.Shell")
tmp = WshShell.RegWrite("HKLM\SOFTWARE\システム・フューチャー株式会社\FESInstanceName","")