blob: 47511b2727d79a8de919adbc0943e710501e843b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Set shell = CreateObject( "WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject")
Set ip = CreateObject("WScript.Network")
Set procEnv = shell.Environment("Process")
ME_NAME = Wscript.ScriptFullName
TEST_DIR = fso.GetParentFolderName(fso.GetFile(ME_NAME))
ACTUAL_CMD = TEST_DIR + "\..\..\test\ctest\run-tests.vbs"
if (NOT fso.FileExists(ACTUAL_CMD)) Then
MsgBox "Could not find actual script at " + ACTUAL_CMD
WScript.Quit
End If
shell.Run ACTUAL_CMD
|