'/*
' * Copyright 2014, Gregg Tavares.
' * All rights reserved.
' *
' * Redistribution and use in source and binary forms, with or without
' * modification, are permitted provided that the following conditions are
' * met:
' *
' *     * Redistributions of source code must retain the above copyright
' * notice, this list of conditions and the following disclaimer.
' *     * Redistributions in binary form must reproduce the above
' * copyright notice, this list of conditions and the following disclaimer
' * in the documentation and/or other materials provided with the
' * distribution.
' *     * Neither the name of Gregg Tavares. nor the names of its
' * contributors may be used to endorse or promote products derived from
' * this software without specific prior written permission.
' *
' * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
' * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
' * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
' * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
' * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
' * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
' * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
' * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
' * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
' * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
' */
Dim wshShell, btn, msg, title, style
Set wshShell = WScript.CreateObject("WScript.Shell")

msg = WScript.Arguments.Item(0)
style = WScript.Arguments.Item(1)
title = "Question:"

if WScript.Arguments.Count > 2 then
  title = WScript.Arguments.Item(2)
end if
btn = WshShell.Popup(msg, 0, title, style)

WScript.Echo btn