[VBScript]encodeURI

'
' VBScriptでencodeURI
'

Option Explicit



Function encodeURI(ByVal sBuff)

Dim oScriptControl
Dim oJavaScript

Set oScriptControl = WScript.CreateObject("ScriptControl")
oScriptControl.Language = "JavaScript"
Set oJavaScript = oScriptControl.CodeObject

encodeURI = oJavaScript.encodeURI(sBuff)

Set oJavaScript = Nothing
Set oScriptControl = Nothing

End Function

WScript.Echo encodeURI("文字列")