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