주어진 명령에 따른 관련 값을 디스플레이한다.

<BUTTON onClick="QueryCommand()">명령에 따른 관련 값 얻기</BUTTON>

<SCRIPT language=VBScript>
Sub QueryCommand()  '특정 명령의 문자열을 출력한다.
  Dim objApp As FrontPage.Application
  Dim objDoc As DispFPHTMLDocument
  Dim strUser As String
  Dim strValue As String

  Set objApp = FrontPage.Application
  Set objDoc = objApp.ActiveDocument
  strUser = InputBox("수행할 명령을 입력하라.")
  strValue = objDoc.queryCommandText(strUser)
  MsgBox "지정한 명령의 결과값은 " & strValue
End Sub
</SCRIPT>