I didn't get any value when I execute the command below from Perl.
my $final = qx("cscript out2.vbs");
print STDOUT "Final: $final\n";
Final: Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.
my $final2 = system("cscript out2.vbs");
print STDOUT "Final2: $final2\n";
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.
Final2: 56320
Is 56320 the process ID from CScript?
out2.vbs
Dim num1, num2, final, str
num1 = 30
num2 = 50
str = "Final Value: "
final = num1*num2
'MSGBOX str & final
WScript.Quit(final)
'Wscript.Echo final