ScriptControl他、64ビット環境では実行できない場合に使えるかもしれません。
ScriptControlの場合は下記ページのような代替方法も有り。
「64ビット環境でのScriptControlの代わり」
http://www.ka-net.org/office/of32.html
Option Explicit '64ビットで実行した場合は32ビットで再実行する With CreateObject("WScript.Shell") If (InStr(.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%"), "64")) And _ (InStr(LCase(WScript.FullName), "system32")) Then Dim ExeName Dim ExePath Dim SysFolderPath ExeName = Mid(WScript.FullName, InStrRev(WScript.FullName, "\") + 1) With CreateObject("Scripting.FileSystemObject") SysFolderPath = .GetSpecialFolder(0).Path ExePath = SysFolderPath & "\SysWOW64\" & ExeName If .FileExists(ExePath) <> True Then MsgBox "SysWOW64フォルダ内に " & ExeName & " が見つかりませんでした。" & vbCrLf & _ "処理を中止します。", 16 WScript.Quit End If End With .Run """" & ExePath & """" & " " & """" & WScript.ScriptFullName & """" WScript.Quit End If End With 'MsgBox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") & vbCrLf & WScript.FullName '確認用 MsgBox EncodeURL("初心者備忘録") Private Function EncodeURL(ByVal sWord) With CreateObject("ScriptControl") .Language = "JScript" EncodeURL = .CodeObject.encodeURIComponent(sWord) End With End Function