Escape Function / VBS (Microsoft)

システム管理を自動化するVBScriptの典型的な4つのエラーと解決法で紹介されていた、Escape Function を使ってみるテスト。使い勝手?も考えて、クリップボードへも出力してみました(Hey, Scripting Guy! からまんまコピーですが･･･)。

Option Explicit
Dim strInput , objIE

strInput = InputBox("入力してください。")
MsgBox Escape(strInput),,"Escape Function test"

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", Escape(strInput)
objIE.Quit