Define and call Wscript function inside Javascript file to run in Windows Script Host

Question

I need exactly like I asked in question title.

I have a javascript file for calculating Thanksgiving date for every year, provided the year value input.

Now I want this javascript to be executable by Windows Script Host and also allowed to create as many InputBoxes as possible without changing the file type or extension.

I tried below code but it gives me error expected ;:

ws = WScript.CreateObject('WScript.Shell');
var myDate = new Date();
myDate.setHours(0, 0, 0, 0);

// Function WSHInputBox(Message, Title, Value)
//  ' Provides an InputBox function for JScript
//  ' Can be called from JScript as:
//  ' var result = WSHInputBox("Enter a name", "Input", test);
//  WSHInputBox = InputBox(Message, Title, Value)
// End Function

strYear = GetUserInput( "Enter some input:" )
ws.Popup('Year ?'+strYear);

//var strYear = WSHInputBox("Enter the year", "Thanksgiving Year")
myDate.setYear(parseInt(strYear));

// Determine November 1.
myDate.setDate(1);
myDate.setMonth(10);

// Find Thursday.
var thursday = 4;
while(myDate.getDay() != thursday) {
    myDate.setDate(myDate.getDate() + 1);
}

// Add 3 weeks.
myDate.setDate(myDate.getDate() + 21);

ws.Popup('Result: ' + myDate);

Function UserInput( myPrompt )
' This function prompts the user for some input.
' When the script runs in CSCRIPT.EXE, StdIn is used,
' otherwise the VBScript InputBox( ) function is used.
' myPrompt is the the text used to prompt the user for input.
' The function returns the input typed either on StdIn or in InputBox( ).
' Written by Rob van der Woude
' http://www.robvanderwoude.com
    ' Check if the script runs in CSCRIPT.EXE
    If UCase( Right( WScript.FullName, 12 ) ) = "\CSCRIPT.EXE" Then
        ' If so, use StdIn and StdOut
        WScript.StdOut.Write myPrompt & " "
        UserInput = WScript.StdIn.ReadLine
    Else
        ' If not, use InputBox( )
        UserInput = InputBox( myPrompt )
    End If
End Function

Function GetUserInput( myPrompt )
' This function uses Internet Explorer to
' create a dialog and prompt for user input.
'
' Version:             2.11
' Last modified:       2013-11-07
'
' Argument:   [string] prompt text, e.g. "Please enter your name:"
' Returns:    [string] the user input typed in the dialog screen
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
' Error handling code written by Denis St-Pierre
    Dim objIE

    ' Create an IE object
    Set objIE = CreateObject( "InternetExplorer.Application" )

    ' Specify some of the IE window's settings
    objIE.Navigate "about:blank"
    objIE.Document.title = "Input required " & String( 100, "." )
    objIE.ToolBar        = False
    objIE.Resizable      = False
    objIE.StatusBar      = False
    objIE.Width          = 320
    objIE.Height         = 180

    ' Center the dialog window on the screen
    With objIE.Document.parentWindow.screen
        objIE.Left = (.availWidth  - objIE.Width ) \ 2
        objIE.Top  = (.availHeight - objIE.Height) \ 2
    End With

    ' Wait till IE is ready
    Do While objIE.Busy
        WScript.Sleep 200
    Loop
    ' Insert the HTML code to prompt for user input
    objIE.Document.body.innerHTML = "<div align=""center""><p>" & myPrompt _
                                  & "</p>" & vbCrLf _
                                  & "<p><input type=""text"" size=""20"" " _
                                  & "id=""UserInput""></p>" & vbCrLf _
                                  & "<p><input type=""hidden"" id=""OK"" " _
                                  & "name=""OK"" value=""0"">" _
                                  & "<input type=""submit"" value="" OK "" " _
                                  & "OnClick=""VBScript:OK.value=1""></p></div>"
    ' Hide the scrollbars
    objIE.Document.body.style.overflow = "auto"
    ' Make the window visible
    objIE.Visible = True
    ' Set focus on input field
    objIE.Document.all.UserInput.focus

    ' Wait till the OK button has been clicked
    On Error Resume Next
    Do While objIE.Document.all.OK.value = 0
        WScript.Sleep 200
        ' Error handling code by Denis St-Pierre
        If Err Then ' user clicked red X (or alt-F4) to close IE window
            IELogin = Array( "", "" )
            objIE.Quit
            Set objIE = Nothing
            Exit Function
        End if
    Loop
    On Error Goto 0


    ' Read the user input from the dialog window
    GetUserInput = objIE.Document.all.UserInput.value

    ' Close and release the object
    objIE.Quit
    Set objIE = Nothing
End Function

WScript.Quit();

Can someone help out as I am stuck at how to include both types of code in this same Javascript file, I know there is some way, but what's that ?

Try to create .wsf file. Or execute VBS code with `ScriptControl` or `htmlfile` ActiveX. — omegastripes, Oct 18 '17 at 17:25

score 0 · Answer 1 · answered Apr 12 '19 at 16:03

Problem

Developer VickyDev wants to run a MSFT VBScript function within a MSFT JScript file
InputBox is a VBScript function and not a JScript function

       // Function WSHInputBox(Message, Title, Value)
       //  ' Provides an InputBox function for JScript
       //  ' Can be called from JScript as:
       //  ' var result = WSHInputBox("Enter a name", "Input", test);
       //  WSHInputBox = InputBox(Message, Title, Value)
       // End Function

Solution

Combine VBScript and JScript together using windows script host file with language declaration on script tags.
Make sure to declare all the VBScript functions first before declaring the JScript

Example

    <?xml version="1.0"?>
    <package>
    <job id="uu244trumpehant">

        <script language="vbscript">
        <![CDATA[
            Function HelloWorldVB
             msgbox "hello world from VB"
            End Function
        ]]>
        </script>

        <script language="jscript">
        <![CDATA[
            HelloWorldJS();
            HelloWorldVB();
            //HelloWorldVBTwo();    // this one will error
                                    // function defined below

            function HelloWorldJS(){
                WScript.Echo("hello world from JS");
            }
        ]]>
        </script>

        <script language="vbscript">
        <![CDATA[
            Function HelloWorldVBTwo
             msgbox "hello world from VBTwo"
            End Function
        ]]>
        </script>
    </job>
    </package>

Define and call Wscript function inside Javascript file to run in Windows Script Host

1 Answers1

Problem

Solution

Example